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The world of -telecommunications is a jungle of con- 
fusing terms. From ASCII to protocols to terminal 
emulations, there's a lot for the computer novice to 
remember. That's why we wrote MTERM. 

MTERM is the smart terminal package from 
Micro-Systems Software that goes beyond "user- 
friendly." MTERM is the first terminal program to be 
"novice-friendly." You can be an MTERM expert in 30 
minutes. And because MTERM functions on so 
many different microcomputers, there is no need to 
keep re-learning the program. Universal command 



compatibiity makes transition easy. 

Feature for feature, there Isn't a better terminal 
on the market Superior programming with top 
notch documentation make MTERM worth many 
times its reasonable price. 

So in the foreign land of telecommunications, 
don't despair. Get the best translator money can 
buy. Maximum power and minimum effort. Finally, 
these two are in one program. 

For your TRS-80* IBM. Apple'. Zenith, or compatible 
Microcomputers. Only $79.95 most versions. 



TRS-SO and Apple are registered Uademarkes of Tandy Corp. and Apple Computers, respectively 
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MICRO-SYSTEMS SOFTWARE, INC. 

4301-18 Oak Circle. Boca Raton, Florida 33431. Telephone: (305) 983-3390 

Orders Only 1-800-327-8724 
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Percom Data Corporation has one hard disk drive system for just about ALL personal computers 

. . . including of course . . IBM '-PC. APPLE" II, and TRS-80*. Percom Data's innovations 

with 5' ." Winchester technology mean that for most personal computers . . . 

having a reliable hard disk system is as easy as hooking up a cable. 

A Percom Data PHD " will interface with your present system . . . and your future system . . . 

so if you do change computers, you can still keep your most important investment . . . 

your Percom Data Hard Disk Drive. 

Because Percom Data helped create the industry standards of today . new designs in software 

and hardware will make your selection of a Percom Data Hard Disk Dnve pay off 

tomorrow through system compatibility. 

A Percom Data PHD works to capacity because we take the time to correctly develop interface 

software to your computer which leaves no performance holes for you to fall into. 

Percom Data knows software functionality is the key to hardware performance. 

Today. Percom Data PHD supports a variety of software to match your computer: 

IBM -PC. PC DOS u 1.1 OR 1.0 

CPM-86 . CONCURRENT CP M-86 

APPLE , DOS 3.3, CPM 

TRS-80 MODELS III & I. DOPLUS, LDOS 

IMAGINE . . . Percom Data Winchester 5%" technology . . for today's computers . . . 

and tomorrow's. 

To receive an informational booklet describing Percom Hard Disk Systems, or to determine if we 

have a system for your computer call our 

Hard-Line Hot-Line at 1-800-527-1222. 

We will also give you the name of a nearby authorized Percom Data Dealer 

Dealer inquiries are welcome. 

[PEFGOM 3A1A 
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Expanding Your Peripheral Vision 



DRIVES 



NETWORKS 



SOFTWARE 



(214) 340-7081 • 1-800-527-1222 • TELEX: 73-0401 (PERCOM) 



IBM is a registered trademark of International Business Machines APPLF is a registered trademark ol Apple Computer Inc 

TRS-80 is a registered trademark ot Tandy Radio Shack Corp PHD is a registered trademark ot Porcorti Date Corporation 

COPYRIGHT 1983 PERCOM DATA CORPORATION 
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Assembly Language Made Simple — 
Parti 

The first step to writing Assembly 
programs: Learn how the Z80 pro- 
cesses instructions. 
Hardin Brothers 

Making Sense of Those Crazy 
Numbers 

Binary and hexadecimal explained. 
Amee Eisenberg 

Assembly-Language Disk I/O 

Write efficient programs by master- 
ing Assembly's I/O techniques. 
David G. Haan 



110. Finding the Search Solution 

Search text files fast with the state 
of the art in signature screening. 
Joseph E. Trojak 

116. Assembly-Language Shortcuts — 
Part n 

How to handle the stack, plus a 
reassuring look at logarithms. 
Bob Bowker 
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your Model Ill's software library. 
Terry Kepner 




132. Protected Tape Programs 

Two anti-copy routines 
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Dan Robinson 
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140. Channels of Communication 

A satellite dish can bring you over 

140 TV stations. Here's how to 

assess your location and aim your 

antenna. 

Dan Keen and Dave Dischert 



Articles 



Hardware 

152. Real-World Control— Part II 

Lgi-1 Connecting Part I's hardware to let 
your Model III run household 
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David L Engelhardt 



Review 

146. A Modem Sampler 

UDS' 212A/D and Novation's J-Cat 
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suit your direct-connect needs. 
R.A. Langevin 
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174. Basic, Faster and 
Readable— Part IV 

Making variables work for you. 
John Corbani 

Utility 

170. Chameleon Code 

U^y From Assembly to Basic in the blink 
of an eye. 
Bradley Murray 
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36. Suite 16 

1 10. Finding the Search Solution 



177. Take It Off 

Crack TRSDOS 6.0's password to 
erase utilities and clear disk space. 
David L Engelhardt 

179. The Password Is. . . 

Discover the password of a protected 
Model 4 file. 
David Lantis 
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The so-called computer revolution. 
Eric Maloney 

8. Proof Notes 

Assembly language without fear. 

12. Input 

MaxiStat is now StatPac. DMP200, 
LPVII printer patches. Separate 
Model I and III programs. Save AIDS- 
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Speed up Model 4's Mod III mode. 
TRSDOS 6.0 shortcomings. 

18. Aid 

Readers in need. 
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One last look at the world of CoCo 

software. 

Scott Norman 

36. Suite 16 

Multiple multi-user systems: Arcnet 

and Xenix. 

Dan Keen and Dave Dischert 

38. Reviews 

The Statistician. Newbasic 2.1. Four 
Model 100 games. CP/M from Omi- 
kron. MicroSpooler. Monty Plays 
Scrabble. Businesspak + . Instant 
Assembler. Using Scripsit. 




232. ONotes 

For serious Model 100 owners: a 
memory map, Basic tokens, do-it- 
yourself modem cable, and program 
length counter. For frivolous Model 
100 owners: blackjack. 

251. RAM Files 

Monitor 100 and Foxfighter fixes. 
Calculator program. 

254. News 

The Model 100 gets a 14,000-mile 
road test. Apple/Franklin lawsuit and 
ROM copyright. Christmas shopping 
for micros. Small business auto- 
mation. Magic/L challenges Basic. 
Hegel versus videotex. 

268. The Gamer's Cafe 
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Rodney Gambicus 

274. Fun House 

Santa and Leon host the Fun House 
Christmas pageant. 
Richard Ramella 
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296. New Products 

Plantrac. Floppy Pockettes. Minute- 
man. Programmer's Pipeline. Infidel. 
Micro Matrix II. Dancing Sailors. 
Volksmodem. Paperwork. Brain- 
stormer. Video Filters. RamPak. Sur- 
face Plot. Byte Bat. 
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SIDE TRACKS 



by Eric Maloney 



We've already seen one so-called 
revolution fail. It evaporated into 
thin air shortly after Kent State, unable 
to bear the weight of its own rhetoric. 
So pardon me if I'm skeptical about this 
latest revolution supposedly being fo- 
mented by the personal computer. 

At least, the media and self-styled ex- 
perts on social change are calling it a 
revolution. If so, it's got to be the 
happiest one in the history of the world. 
It sparkles beneath a California sun that 
shines like a big yellow smile button. It 
glows brightly from the pages of News- 
week and The New York Times, from 
quarter-million dollar television com- 
mercials, from the zippy pop-computer 
magazines that hang fat and lazy from 
the newsstands. 

Here is one revolution that promises 
to do you no harm. Nobody gets hurt, 
nobody gets agitated. With the excep- 
tion of a few malcontents, nobody even 
gets upset. 

I can't claim to be an expert on revo- 
lutions, since I've never been in one. 
But it's my understanding that a revolu- 
tion is aimed at the fundamental con- 
cepts upon which a political or social 
structure is built. Take the Industrial 
Revolution, for example. It caused 
social and economic upheaval on a 
massive scale. It shifted power from the 
land-owners to the factory owners, 
from the rural areas to the cities, and 
completely changed the way people lived 
and worked. 

But the microcomputer revolution is 
another story. It does nothing to chal- 
lenge the basic relationship between 
people and their supporting institu- 
tions. It does not change the make-up of 
the ruling class, nor does it alter our per- 
ceptions of that class. 

Some people say that microcom- 
puters will give us more control over our 
lives, that computers will let us access 
information heretofore available only 
to the rich and powerful. This may, to 
some extent, be true; if information is 
power, greater access to information 
means greater power. But if the average 
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America's 
happiest 
revolution 



citizen gains a little, the ruling class will 
gain a good deal more. 

Ultimately, computers will serve to 
reaffirm the social and political hierar- 
chies in this country. The strong will be 
stronger and the weak weaker, a trend 
that hardly can be called revolutionary. 



Adam Osborne has been one of the 
micro industry's most caustic critics. So 
more than a few people chortled when 
Osborne Computer Corp. collapsed last 
summer. 

In some respects, Osborne comes out 
looking like a fool. When he introduced 
the Osborne, he let loose a barrage of 
criticism at his fellow manufacturers, 
predicting in the May 1981 issue of Mi- 
crocomputing that "their unrealistic 
perspective will trigger disaster with all 
the tragic ruthlessness that early success 
had on such companies as Imsai and 
Processor Technology." 

But Osborne's failure was not due to 
lack of insight. In retrospect, his com- 
ments in that article often hit the mark. 
"Hardware manufacturers must con- 
centrate on driving down the price of 
hardware," he warned. And further on, 
he predicted "a new, massive round of 
hardware price reductions." 

Osborne also saw the impact his new 



computer would have on the micro 
market, and predicted "a rapid evolu- 
tion of new, low-cost portable micro- 
computers that appeal to individuals 
and are used with the frequency of type- 
writers." And, in a forecast fraught 
with irony, he saw that by 1983 the Os- 
borne would "have a lot of company." 

Finally, though IBM had not yet en- 
tered the arena, Osborne saw the even- 
tual establishment of industry-standard 
software and hardware. "Those who 
stray from industry standards will be 
forced to leave the microcomputer mar- 
ketplace," he said. 

Osborne's sin was that he was as 
lousy a businessman as the early losers 
he criticized. And apparently, the major 
manufacturers were not as misguided as 
he thought they were. Ultimately, they 
changed their ways, learning to see and 
respond to shifts in the marketplace. 

Osborne was an important stimulus 
to those changes. He may not have 
practiced what he preached, but he had 
a major impact on the industry and the 
way it sold itself. He should be given ap- 
propriate credit. 



Last week at the Peterborough Diner, 
I gave the cashier $2 for a $1.95 turkey 
sandwich. The computerized cash regis- 
ter credited me with 9 cents' change. 
The waitress dutifully gave me a nickel 
and four pennies. 

"Wait a minute," I said, and point- 
ed out that $2 minus $1.95 was not 9 
cents. She puzzled over the problem for 
a moment, finally saw the light, and 
took back the surplus change. 

This little tale has several morals. 
First, we must retain our ability to do 
simple math. 

Second, we must not believe every- 
thing the computer says, or let it subvert 
our common sense. 

And third, we must be watchful con- 
sumers. As long as human beings punch 
the buttons, the buyer's motto remains 
"caveat emptor." ■ 



ANYONE CAN USE OUR SOFTWARE! 




MAIL PAC II and CHECKING PLUS represent a 
new generation of computer software. Our 
software doesn't even need a manual! Any- 
one can quickly learn to use either package 
by following simple, explicit on-screen 
instructions. But, for those of you who insist 
— we've included a complete user's manual 
as well. 
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MAIL PAC II 
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MAIL PAC II FEATURES: 
High Capacity -- 

Stores from one to one million names in Zip Code. Numerical or Alpha- 
betical order The only limitation is your disk storage space. 

Flexibility - 

Prints your mailing list on 1,2, 3, or 4-across labels (with up to 5 user- 
defined lines on each label) or as a compact, user-designed directory 
The record length is completely user-defined, and each field within 
each of your records is completely variable (allowing storage of any 
number of characters for any particular address entry) Devote fields 
to telephone numbers, codes, or even special messages related to each 
particular name on file 

Powerful — 

A built-in word processor allows you to create personalized form letters 
for each address on your list (or just a particular group of addresses) 

Ease of Use — 

Create new mailing lists, review existing lists, handle changes of 
address, delete cancelled names, sort lists, and purge duplicate names 
from your files Complete on-screen instructions tell you in plain 
english exactly how to accomplish all of these tasks 

MAIL PAC II $99.95 
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CHECKING PLUS 
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CHECKING PLUS FEATURES: 
Complete Check Register — 

Checking Plus stores your entire check register in a disk file, and then 
uses the data to balance your account, track your expenses, and help 
you make budget projections Review the entire checkbook, enter 
checks, deposits, fees and adjustments, mark outstanding checks when 
paid, and get an instant cash balance at any time All data can be viewed 
onscreen or printed out in report form 

Tax Preparation — 

Storage of monthly and yearly totals and other important information 
aids in income tax preparation, for your personal use or for your 
accountant 

Handles the Details — 

Store names and addresses for frequently written checks then print 
checks to fit standard window envelopes, eliminating the need forextra 
typing You can even store any comment, explanation or other message 
(up to 255 characters) related to a particular check 

Automatic Monthly Bill Payments — 

Enter amounts and names of payees for all of your fixed-cost monthly 
payments, and then sit back while the system automatically prints 
checks 

CHECKING PLUS $99.95 



Both Programs Require 48K And At Least One Disk Drive (2 Drives For 
Higher Storage Capacities). And All Hard Disk Systems Are Supported. 



FREE -TRS-80 Mod I.IH & 4 programs suppled on DosPlus (minimum system) 
Complete DosPlus also available 



FOR YOUR TRS-80 - " • APPLE" • IBM PC" • NEC" • OSBORNE" • XEROX" • KAYPRO" • TELEVIDEO'" • ZENITH" • SANYO" 
DEC" • Tl PROFESSIONAL COMPUTER" • SUPERBRAIN JR " • EPSON" • Any CP/M" Computer 

CP M-besed Computer* must be •quipped with Microsoft BASIC (MBASIC or BASIC-*)) 

TRS-80 trademark Tandy Corp APPlE trademark Apple Corp IBM PC trademark IBM Corp • ATARI trademark Alan. Inc - OSBORNE Mdwwl Osborne Corp • XEROX trademark Xeroi Corp 
KA/PP.O trademark Non Linear Systems. Inc ■ TELEVIDEO trademark T«<«vKt*ro Systems Inc - SANYO trademark Sanyo Corp NEC trademark NEC Corp DEC trademark Digital Equipment Corp 
ZENITH trademark Zenith Corp - Tl PROFESSIONAL COMPUTER trademark Te.a» Instruments Inc SUPERBRAIN trademark intenec Corp CP. M trademark Digital Reseaech EPSON trademark Eps 
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OUR SOFTWARE CATALOG 

H & E Computronics. Inc , has mailed more than 1 million 
software catalogs since 1978 Send $2 for our new64-page 
catalog today 1 (We also send you our catalog FREE with 
every order) DEALER INQUIRIES WELCOME 



30-DAY MONEY BACK GUARANTEE 

••• ALL PRICES ft SPECIFICATIONS SUBJECT TO CHANGE •" 
DELIVERY SUBJECT TO AVAILABILITY 
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50 N PASCACK R.D., SPRING VALLEY. N.Y. 10*77 



ADD $3 00 FOR SHIPPING IN UPS AREAS 
ADD $4 00 FOR C O D OR NON UPS AREAS 
ADD »5 00 TO CANADA ft MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U S 
CANADA ft MEXICO 
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The left bracket, I replaces the up ar- 
row used by Radio Shack to indicate 
exponentiation on our printouts. When 
entering programs published in 80 
Micro, you should make this change. 

80 formats its program listings to 
run 64-characters wide, the way they 
look on your video screen. This ac- 
counts for the occasional wrap-around 
you will notice In our program listings. 
Don't let it throw you, particularly 
when entering assembly listings. 

Article submissions from our read- 
ers are welcomed and encouraged. In- 
quiries should be addressed to: Sub- 
missions Editor, 80 Pine Street, Peter- 
borough, NH 03458. Include an SASE 
for a copy of our writers' guidelines. 
Payment for accepted articles is made 
at a rate of approximately $50 per 
printed page; all rights are purchased. 
Authors of reviews should contact the 
Review Editor, 80 Pine Street, Peter- 
borough, NH 03458. 



You asked for it, though in a round- 
about fashion and probably 
without your knowing it. 80 Micro's 
readership surveys tell us a lot about 
your needs. One thing we've noticed is 
your growing interest in Assembly 
language. This isn't too surprising since 
most of you (88.5 percent to be exact) 
use your TRS-80 for home or hobby ap- 
plications. And we all know what that 
means: software programming. 

Designing and writing software, es- 
pecially games, is both fun and reward- 
ing. It can also be frustrating. There's 
nothing worse than programming a fan- 
tastic game in Basic only to have it run 
as slow as molasses uphill. Screen 
changes take seconds and your rockets 
never quite seem to reach their targets in 
time. This is usually when your interest 
in Assembly language begins to take 
root and grow. This issue will nurture 
that growth. 

Communicating with your computer 
in a high-level language like Basic is like 
talking with someone who speaks a for- 
eign language. When you say goodbye 
to a Frenchman, he has to use a dictio- 
nary to see that you mean au revoir. The 
computer follows the same process. If 
you write a Basic instruction in your 
program, the computer has to translate 
this instruction to its "native tongue," 
machine code. 

When you use a low-level language 
like Assembly language, the interpretive 
process is greatly simplified. The com- 
puter operates on Assembly-language 
instructions much faster because that 
language is closer to the Z80's machine 
code. 

Assembly-language programs ex- 
ecute up to 300 times faster than Basic. 
They also require less memory: you can 
run an Assembly-language program in 
4K that normally requires 24K in Basic. 
And if you ever had an urge to see how 
the Z80 processes all of those routines in 
ROM or TRSDOS, Assembly language 
lets you do that as well. 
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Assembly language can be intimidat- 
ing at first with its extensive use of 
binary and hexadecimal data. But be as- 
sured that it's no more difficult to learn 
than when you mastered Basic years 
ago. To ease your nerves, and to help 
build your confidence, we've put to- 
gether a collection of articles that cover 
the entire spectrum of Assembly lan- 
guage. Whether you're a neophyte test- 
ing the waters, or an advanced pro- 
grammer doing the backstroke, you'll 
find something to meet your needs be- 
tween this month's covers. 

For example, Hardin Brothers pre- 
sents his first installment of Assembly 
Language Made Simple for this issue. 
In this comprehensive piece he gently 
introduces you to your first dose of 
Assembly language. And since everyone 
loves to leam shortcuts, Bob Bowker 
continues to share some of his secrets 
with us. You'll find them in part two of 
his article, Assembly-Language Short- 
cuts (p. ). They are especially useful for 
those of you who've been introduced to 
the language. 

Other articles of interest include 
David Haan's technique titled Assembly 
Language Disk I/O, Terry Kepner's 
feature review, CP/M III Ways, and 
Joseph Trojak's Finding the Search So- 
lution, a program that lets you search 
text files quickly. And when the day 
ends, you can relax in your easy chair 
and watch one of over 140 TV channels, 
made available with help from Dan 
Keen and Dave Dischert's article, 
Channels of Communication. If you 
don't want to sit in front of the boob 
tube all night, there's always the antics 
of the Gamer's Cafe to keep you smil- 
ing. So sit back and enjoy! ■ 

— S.F.T. 
01010000 
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nife 



1-800-321-3552 








TOLL FREE 
1800-321 -3552 



BARE DRIVES 


This Month's Special OEM Version ol Shugart 
SA455 (2S. 40/40) Slimline $219 00 


Manufacturer 




Model 


No of 
Heads 


No of 
Tracks 


Full or 
Slimline 


Price 


Tandon ■ 




SV TM100-1 


i 


40 


Full 


$179 00 


Tandon' 




5'A" TM 100-2 


2 


40/40 


Full 


239 00 


Tandon* 




5V." TM 100-4 


2 


80/80 


Full 


31900 


MPI* 




5 V Model 51 


1 


40 


Full 


179 00 


MP!* 


5 '.* " Model b? 


2 


40 '40 


Full 


239 00 


MPr 




5'/." Mdi 501 


1 


40 


Slimline 


179 00 


MPI* 




b'U" Mdl 50? 


2 


40/40 


Slimline 


239 00 


MPI' 




5 V." Mdi 902 


2 


80/80 


Slimline 


329 00 


MPI" 


8" Mdl 41 


l 


77 


Slimline 


399 00 


MPI" 




8" Mdl 42 


2 


77/77 


Slimline 


499 00 


Foe TRS 80 Healh /emlh IBM and Others 

■ For complete Case and Power SuDDi* 300 $54 9S 


*• For Ouai case antj power 


supply add $99 9'j 





MODEL III & IV 
n S-232 Communication 

DIRECT REPLACEMENT FOR 
RS-232, FULLY TESTED & 
BURNED IN, EASY INSTALLA- 
TION. 120 DAY WARRANTY. 
RS-232 78.95 



SPRINTER 

Double Your Speed 

Speed-up cuts computer 
operation time in half, saves 
time and money. Fast4 MHz 
Z80B CPU included, installs 
in 15 minutes with no solder-- 
ing or cutting. 

SPRINTER III for MOD III $89.95 
SPRINTER I for MOD I $89.95 



\ 



ELECTRONIC 
PROTECTION DEVICES 

The PLUM 3-way EMI-RFI AC Power Line 

Noise Filler (wail ou'let) S44 9S 

The LEMON 6 way Surge Suppressor lor 

AC Power Lines (wall outlet) $54 95 

The LIME - same as LEMON w/5ft 

cord and on off switch $79 95 

The PEACH 5 way Surge Suppressor, 

EMI RFI Line Filter (wall outlet) $89 95 
The ORANGE same as LIME w/EMI RFI 

Filtering PLUM & LIME Combined $129 95 



PRINTER BUFFERS 



QUADRAM MICROFAZER 

Parallel to Parallel w/8K $149.00 

Parallel to Serial w/8K 179.00 

Serial to Serial w/8K 179.00 

Serial to Parllel w/8K 179.00 

Each Add'l 8K Upgrade 10.00 

All come with pause control and copy 
feature, and can be upgraded to 512K. 

PRACTICAL PERIPHERALS 

MPB/EPSON W/16K $149.00 

MPB/EPSONw/32K 189.00 

In-Line Parallel or Serial w/32K 289.00 
In-Line Parallel or Serial w/64K 339.00 



'Jill 



FOR ORDERS 
1-800-321-3552 

IN OHIO and all other inquiries 
call (216) 481-4993 



WE ACCEPT 

• Visa 

• MasterCard 

• en**** 

• Money Order 

• COD 



ALL PRICES 

ARE FO : . 

MAIL ORDER ONLY 

Prices Specifications 

and Ollenngs suffer! 

lo change without 

notice 




LNW 

TRS-80 Mod. I Expansion 

$349.00 

• RS232c serial I/O • Full 32k 200ns RAM 

• Parallel printer port • Real time clock 

• Gold plated • 6 month warranty 
connectors • Heavy steel case 

• Floppy disk controller • Thousands of users 
• Works with any DOS 100% 

NEWl MODEL IV FEATURES ON YOUR 

MODELS I & til FOR 1/2 THE PRICEI 

BUT ONLY WITH... 

The HOLMES VID-80 

•0 CHARACTER VIDEO INCLUDES: 
Eaay plug-In Installation Inalda cut. 

Software patchaa avallabla tor many program*. 

Improved Graphic Raaolutlon 

60 X 24 or 64 X 16 aalactabla modaa. 

CP/M 2.2. 112K RAM. 

(CP/M 3.0 4th quartar '63) 

ALL of these features for 
a SPECIAL price of $499.00 

MODEL I DOUBLE 
DENSITY PACKAGE 

Everything you need to convert your TRS-80 
Model I to run double density Complete with 
software hardware, and instructions, installs 
m minutes with no soldering, wiring or cutting. 



Dosplus V 3 4 w/LNDOUBLER 5/8 
LNDOUBLER 5/8 Board w/o dos . 



$199 00 
$169.00 



16 K RAM SPECIAL 

4116.200ns Guaranteed one full year $17 95 

MODEL IV — 64K 

MEMORY EXPANSION 

GUARANTEED 1 FULL YEAR 

SET OF 8 
4164 RAM CHIPS 69.95 

w/ PAL CHIP lo go from 64 to 128K $84.95 




/ 



Seasons Greetings . . . 

Thanks to you. this past year has seen Micro Data Supplies growing by leaps and bounds. 
Sure we offer the highest quality products at low warehouse prices, but its you, our 
satisfied customers who are spreading the good word about Micro Data Supplies. And 
we want you to know we really appreciate it! 

DEALER INQUIRIES WELCOME 



CALL OUR NEW TOLL-FREE NUMBER 



C llllll 



Happy Holidays, 
Russ Knotts • President 




3fe 



I 




NEWDOS/80 
Version 2.0 

Model I and Model III 

The hottest Disk Operating System is now avail 
able in its latest version. This is the ONE from 
Apparat. Inc., the people whose systems have 
made the TRS-80 the reliable computer 

$13995 

Lei your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

DISK DRIVE ft MEMORY DIAGNOSTIC PROGRAM 

by David Stambauqh 

A complete checkup tor your MODEL I or 
MODEL III. THE FLOPPY DOCTOR Version 3 
completely checks every sector ot single or 
double density 3S-. 40- 77 . or 80 track disk 
drives Tests motor speed head positioning. 
controller functions, status bits and provides 
complete error logging. THE MEMORY 
DIAGNOSTIC checks lor proper wnte'read. 
refresh, executability and exclusivity ol all ad 
dress locations Includes both diagnostics and 
complete instruction manual. 

For MODEL I $24.95 

For MODEL III $29.95 

GEAP/Dot writer 

GEAP lets you create words and drawings 
quickly and easily, right on the screen of 
your TRS-80. 

"DOTWRITER" uses high-resolution "dot 
graphics" to create fancy lettersets 

Special: 

GEAP AND DOTWRITER $84.95 

DATAGRAPH 

Transform your VISI-CALC™ files into 
high-resolution custom graphs on your 
TRS-80™ computer and graphics printer 
Super 3rd generation printer graphics 
program. 

DATAGRAPH $74.95 

ULTRA TERM 

Supports both manual and auto dial modems 
Exclusive Ultra Term direct disk Me transfer 
mode, allows unattended operation at the 
receiving computer Line printer support with a 
IK print buffer. Half & lull duplex support 
Universal ASCII lormal file transfer with a 33K 
buffer and a toll leatured host progiam $49.95 




PRINTERS Ne*\$gs 

NEW SILVER REED 

EXP DAISY WHEEL $49*00 

GEMINI lOx by Star Micronics $319.00 

GEMINI 15x by Star Micronics $479.00 

NEW EPSON RX 80 $349.00 

PROWRITER 8510 $399.00 

NEC 8023 $399.00 



PRINTER EPSON 
ACCESSORIES 

Grattrax Plus $65 95 

MX-80 Ribbons 7.95 

MX-100 Ribbons 18.95 

Epson Service Manual MX 80/ 100 34 95 

PRINTER CABLES 



TRS-80 Model I & III 

10 ft Parallel 

10 It Parallel cable extensions 



$19.95 
$19.95 



ELECTRIC PENCIL 
Version II 

Model I and Model III 

An expanded version of the critically acclaimeo 
original word processing system' Includes all 
features of Version I plus many new extensions 

Disk Version $79.95 

Tape Version $69.95 

ELECTRIC WEBSTER 

"Cadillac" of Spelling Checkers 80 Micro 9/82. 

• 50,000 WORD DICTIONARY 

• FAST and ACCURATE - No other Spelling 
Checker comes close 1 

• INTEGRATED - Proofs and corrects from within 
most popular word processing programs! 

• SMART Finds and displays correct spelling! 

• HYPHENATES automatically - inserts discre 
tionary hyphens with 100% accuracy (optional). 

• COMPLETE - One step proofing system 

Electric Webster w/correcting feature $129.95 

Hyphenation feature $49.95 

Grammatical feature $39.95 

COMPLETE SYSTEM all Four Programs $199 00 

NEWSCRIPT 7.0 

NEWSCRIPT is the versatile TRS-80 word pro- 
cessing program It supports "smart" printers 
like the Epson, Okidata, NEC. C.ltoh, Spinwnter. 
Centronics 739 and more 

NEWSCRIPT $109 95 

THE HOME 
ACCOUNTANT 

The #1 best selling program for home and small 
business accounting is now available for TRS- 
80 Model 3 Handles up to 99 accounts, live 
checkbooks, multiple income accounts, and 
can split transactions to any number of ac- 
counts Prints net worth statements, income 
statements, as well as custom designed reports 
Displays a bar chart and trend lor any selected 
category 1 1 is easy to use and yet provides all the 
power you'll need (By Continental Software, 
requires Model 3, 2 drives, 48K ) $62 95 
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ROLLTOP 100 Disk Fll«™ 
Model «RT100 

Twice the capacity (100 ■ 5V4 " Disks) 
ot the leading "flip top" file. But it 
takes no more desk space! An out 
standing design that combines con- 
temporary styling with the elegance 
of a rolltop enclosure and a textured 
buff plastic body. It includes 10 
diskette dividers and anti-skid 

feet $36.00 

Locking Model #RT100L $46.00 



SUPPLIES 



V. File Box lor 75 diskettes 
AVERY TABUIABIES 

5.000 3* x 15/16 

FAN FOLD PAPER (Prices F B S P ) 

9*. x 1 1 18 lb WHITE 3.000 ct 

145* x 11 18 1b WHITE 3.000 ct . 



$15 95 

$29 95 

$39 95 



• THIS MONTH'S SPECIAL * 

Head Cleaning Kit «/ 10 Bulk Diskettes $ 34 9b 







BULK PACK of 10 
SS/DD 5 1/4" Diskettes 
for ONLY $10.95 with any 
purchase of $50. or more. 

LIMIT (1) pack ot 10 per Order. 



, Call 1-800-321-3552 

MONDAY thru SATURDAY 

IN OHIO AND OTHER INQUIRIES (216) 481-4993 



gSefr^ 



AS LOW AS 



$1.59 



5V4 



SOFT 

SECTORS 

BULK 



Single siw 
single density 
w 'hub ring 

100% certified 
• vr warrantv 

$1.59* 



pi/ n SOFT 
J 74 SECTORS 

BULK 

SlNGlE SiOE 
DOUBLE DENSITV 
W/HUB RING 

100V. CERTIFIED 
1 VR WARRANTY 

$1.89* 



5 1 /4 



SOFT 

SECTORS 

BULK 



DOUBLE SIDE 

.'..'•).-. '•',: 'I 

W'HUB RING 

100% CERTIFIED 
1 YR WARRANTY 

$2.79* 



r 1/ » I BOX 

5 74 of 10 
LOGO PRODUCT 

S SOI i SIDF 
SiNGlE DENSITY 
W'HUB RING 

100V, CERTIFIED 
7 YR WARRANTY 

$18.95 



5 1 A" C-r 
LOGO PRODUCT 

SINCE SDE 
DOUBlE DENSI'Y 
W/HUB RING 

100V, CERTIFIED 
2 YR WARRANTY 

$22.95 



5 1 /4 



OF 1C 
LOGO PRODUCT 

DOUBlE SIDE 
DOUBlE DENSITY 
W'HUB RING 

100K CERTIFIED 
? YR WARRANTY 

$31.95 



•Now Get High Quality at a Low Price 

Manufactured by a Maior Disc Company 

For MDS Without Then Name on Diskettes 

•Minimum order 20 diskettes with 

Tyvek envelope and storage shipping box 

•Quantity discounts 100 deduct 3% 

1000 deduct 5%, 10,000 deduct 10% 

BOOKS 

OTHER MYSTERIES 

TRS80DISK $19 95 

Microsoft Basic Decoded $24 °o 

The Custom TRS 80 $2P 95 

Basic Faster & Better $29 95 

How To Do It On The TRS 80 $28 95 

TRSDOS 2 3 Decoded $28 95 

The Custom Apple $28 95 

Machine Language Disk I/O $29 95 

CP/M Primer $15 95 

LABLMAKER ~"~ 

The most uselui program you'll ever own 
Prints Marking Labels on standard 1 ■ J - 
labels Sixteen prml lormals lo choose Irom 
including Ihe Mi Visibility Jumbo Pnnl Type 
TRS-80Modeil&lll 48K. 1 Drive. Epson MX-BO 
type printer (Or equivalent) 

LABLMAKER KIT - w 400 
b '16 « 3 -.'■ labels . $29 95 

CASSLABEL Kii - w?00 
cassette labe's & 200 
5/16' « 3 ',' labels $34 95 




\ferbatim 



WE ACCEPT 

• Visa 

• MasterCard 

• Checks 

• Money O'dei 

• COD 



ALL PRICES 

ARE FOR 

MAIL ORDER ONLV 

Prices Speci'icalions 

and Offerings subject 

to change without 

notice 




DATALIFE™ 

VERBATIM DATALIFE- 
DISKETTES 

Seven data-shielding improvements 

mean greater durability and longer data 

life. 

VERBATIM DATALIFE Vfy\A\t*t 

DISKETTES S S iJpia. i 

5V.-inch (box of 10) J ££ t-'}' 
MD525-01 X c5.?S ^ 

1S/D Den **^V*/»**^ 

Soft-Sectored Diskettes 

5 ." 2S/D Den |MD550-01) $39 95 

5 •" 2S 4 Den (MD557 01) S51 50 

8 IS D Den (FD34-80O0) $43 95 



ISN'T IT TIME YOU SCORED 
. . .WITH SCOREPAC!™ 

Get a SCORE of diskettes in a 
sturdy, new PAC and SAVE! 

LIMITED TIME OFFER 

Buy ANY SCOREPAC™ at its 
regularly advertised price and you're 
entitled to purchase a 5V*" File Box 
for the added cost of only $17.95." 
•Limit 1 File Box per SCOREPAC™ 

SCOREPAC™ w/20 Paragon 
Plain Jane™ Diskettes 
IS/SD . • $38.95 

SCOREPAC™ 
w/20 Paragon Gold Diskettes 
1S/DD $46.95 

SCOREPAC™ 
w/20 Paragon Gold Diskettes 
2S/DD $56.95 



GREftT 



•BUVS ^ ; 

m\ 



3M SS/DD/SS 

5 1/4".. ..$23. 95 
3M DS/DD/SS 

5 1/4' ....$35.95 

Dysan 

^CORPORATION 
DYSAN SS/DD/SS 5 1/4".$35.95 
DYSAN DS/DD/SS 5 1/4" 
— $44.95 




INPUT 



MaxiStat Now StatPac 

John Harrell did an excellent job re- 
viewing MaxiStat (September 1983, 
p. 50). 

Your readers should be aware, how- 
ever, that we have made important 
changes relative to MaxiStat since your 
review appeared. 

MaxiStat is no longer published or 
marketed by The Business Division. 
Walonick Associates now markets and 
supports an updated version of the 
package under its original name of 
StatPac. 

This update contains substantial 
changes from the version you reviewed, 
including more statistics, printing op- 
tions, and machine-language subrou- 
tines for speed. 

Anyone interested in further infor- 
mation should contact Walonick Asso- 
ciates. 

DavidS. Walonick 

President, Walonick Associates 

5624 GirardAve. South 

Minneapolis, MN 554 J 9 




Printer Fix 

The DMP200 printer has one draw- 
back: Its superscripts are low, and the 
rest of the text after a subscript is no- 
ticeably lower than the text preceding 
the subscript. 

To rectify this, change the half- 
reverse line feed action to a full-reverse 
line feed followed by a half-forward line 
feed (see Program Listing 1). This has 
an insignificant effect on print speed, 
and it works. 

This fix also works on the Radio 
Shack Line Printer VIII, and with other 
Radio Shack printers that use the same 
printer drivers. 

To install this modification, define 



PATCH 
PATCH 
PATCH 
PATCH 
PATCH 
PATCH 
PATCH 

PATCH 
PATCH 
PATCH 
PATCH 
PATCH 
PATCH 
PATCH 



DMP400/CTL 
DMP400/CTL 
DMP400/CTL 
DMP400/CTL 
DMP400/CTL 
DMP400/CTL 
DMP400/CTL 



(ADD = BCAC.FIND 
(ADD = BCB0,F1ND = 
(ADD = BCB8,FIND = 
(ADD = BB4D,FIND = 
(ADD = BB50.FIND = 
(ADD = BC76,FIND = 
(ADD = BC82.FIND = 

OR 



= 1C,CHG = 0A) 
C9,CHG = 00) 
1E,CHG = 1Q 
A5,CHG = B1) 
B1.CHG-A5) 
B1,CHG = A5) 
A5,CHG = B1) 



LP8/CTL (ADD = BC9E.FIND = 1C.CHG = 0A) 
LP8/CTL (ADD = BCA2.FIND = C9.CHG = 00) 
LP8/CTL (ADD = BCAA.FIND = 1E.CHG = 1Q 
LP8/CTL (ADD = BB4D.FIND = 97.CHG - A3) 
LP8/CTL (ADD = BB50.FIND = A3.CHG = 97) 
LP8/CTL (ADD = BC68.FTND = 97.CHG = A3) 
LP8/CTL (ADD = BC74.FIND = 97,CHG = A3) 



Program Listing I. Patch for the DM P2O0 printer. 



900 BKS - CHR$(255)+CHR$(255)+CHR$(255) 

910 SP$ - CHR$(128)+CHR$(128)+CHR$(128) 

920 TB$ » CHR$(27)+CHR$(16)+CHR$(0)+CHR$(48) 

1000 LPRINT CHR$(18) ; 

1010 FOR H = TO 47 

1015 LPRINT TB$; 

1020 FOR W = TO 127 

1030 IF POINT (W,H) THEN LPRINT BK$; ELSE LPRINT SP$; 

1040 NEXT W 

1050 LPRINT "" 

1060 NEXT H 

Program Listing 2. LPVHl print adjustment. 



the user print code as the control-® key 
sequence, since the @ key is close to 
the * key. Use the System Set-up option 
from the main menu and then the Enter 
Printer Codes option. 

Under the @ key, enter for the units 
and 27,10,27,28 for the sequence of 
codes. 

You can also change printer driver 
DMP400/CTL or LP8/CTL by replac- 
ing the half-reverse line feed code with 
the code for a full-reverse line feed fol- 
lowed by a half-forward line feed (sec- 
ond half of Listing 1). This lets you use 
the control-* code exactly as normal, 
and there is no interference with any 
observable function of SuperScrip- 
sit 1.1. 

You must type in the patches exactly 
as shown below, and only to your back- 
up copies of the program (building a 
do-file is a very convenient way to save 
on repeated typing). 

Ian McCauley 

Department of Biochemistry 

University of Western Australia 

Nedlands, 6009 



LPVm Expanded Graphics 

In Jim Hanson's letter to Input (June 
1983, p. 12), his program to display 
screen graphics to the LPVIII prints 
graphics horizontally shortened by one 
third. 

Program Listing 2 is a modification 
to Hanson's program that solves this 
problem. Lines 900 and 910 define the 
block and space print location. Line 920 
defines the tab (LPVIII POS command) 
to center the display on the page. 

Don Moore 

P.O. Box 1405 

Coconut Grove, FL 33133 



Machine-Specific Programs 

I am distressed by the concept, 
stressed throughout 80 Micro, that 
every program published must be com- 
patible with both the Model I and 
Model III. 

Most of the programs in your maga- 
zine that run on the Model III also run 
on a Model I, and it's the same story for 
many software companies. 

The reasons for this phenomenon are 
simple and well intentioned: Having the 
same program work on both machines 
satisfies twice as many people, means 
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LOOK WHO'S 

NEW DEMO HOTLINE (212} 296 0399 

TALKING 

vsioo 

VOICE SYNTHESIZER FOR 
MODEL I, III, IV 




• Unlimited vocabulary. 

• Automatic inflection. 

• Proven VOTRAX technology. 

• We use the famous VOTRAX 
SC01 phoneme synthesizer. 4 pro- 
gramable pitch level. 

^Built in audio amplifier with volume 
control. 

• You can add voice to any basic pro- 
gram in minutes. 

^Super efficient: one single line in 
Basic will produce a full sentence! 

• Works with any speaker (or add 
$5.95 for handsome speaker 
module). 

• Price breakthrough: same perfor- 
mance as units costing hundreds 
of dollars. 



• Voice editor will help you create 
unlimited number of words, sound 
effects, etc. 

• Hundreds of applications— now 
cost effective in education, robo- 
tics, speech therapy, monitoring, 
games, aid to handicapped, secur- 
ity, prompting... . 

• Fully assembled and tested, 90-Day 
warranty. 

^Ready to plug in and talk. 

• As usual our 15-day money back 
guaranty protects you. 

Toll Free Order Line 
800-221-0916 

O'at'iOnl,. NY t into call t?l2)296 59»6 Houn 95f ST 



SPEAK ENGLISH AUTOMATICALLY! 



TALKER 1 .4 TEXT TO SPEECH CONVERTER • Unlimited vocabulary including: words, letters, symblols 
and numbers up to 99.999.999.999.999! Talking is as simple as: PRINT • "I talk!" Machine language DISK or TAPE 
only $19 95 



VS 100 



Order #C201 for MODEL I 

C203 for MODEL III or IV 

Price includes Synthesizer Module, Power Supply, 
Instructions, Editing and Demo Software. 
Speaker Module not included, add $5.95 
Text to Speech Software $19.95 

mimiiiiii SUPER CONTEST ■■■■■■■■■■■iiiiiiiiim 

Win $1000 + Royalties for tne best talking game 
+ Win $1000 for the best "serious application" software 
Clubs: Contact us at (212) 296-5916 if you would like to arrange 
for a product presentation. voi«» u • rtguuwi tr#d«nw* oi voicm. 

Toll Free Order Line 800-221-0916 

ORDERS ONLY. INFORMATION AND NY. ORDERS CALL (212) 296-5916. HOURS: 9 5 E.S.T. 




800-221-0916 



jm ALPHA 




* 17 



rica Ave.. Woodhaven, NY 11421 



® (21 2) 296-5916 



ADD 13.00 PER ORDER FOR SHIPPING AND HANDLING. 

WE ACCEPT VISA. MASTERCARD. CHECKS. MO. 

COO ADD J3 00 EXTRA. 

NY RESIDENTS ADO SALES TAX 

OVERSEAS. FPO. APO. ADO 10% 

DEALER DISCOUNTS AVAIl 
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INPUT 



EO 



In our "Buyer's Guide to Disk 
Drives and Disks" (June 1983, p. 
234), we omitted Micro Design. 
Micro Design (6301 Manchaca 
Road, Austin, TX 78745, 800-531- 
5002) markets one 40-track, 5 '/i -inch 
disk drive for the Model I, and three 
systems for the Model 111. 

Micro Design offers 40-track, 
single-sided 5 '/4-inch disk drives with 
250K storage capacity (first upgrade 
is $399, second internal drive is 
$189.95). Also available are 40- 
track, double-sided disk drives with 
500K storage capacity (first drive 
upgrade is $474, second drive is 
$274), and 40-track, 5 '4 -inch, 
double-sided drives with 500K stor- 
age capacity (disk drive upgrade is 
$495, additional slim line drive is 
$295). 

In the September Input column (p. 
12), we omitted the program listing 
for Howard Potvin's letter. Program 
Listing 6 eliminates the extra alpha 
column headings in John Corbani's 
Minicalc program (May 1983, p. 
140). 

Line 470 contains the code to set 
an Epson printer to 132 characters 
per inch, and Potvin changed the 
reference to the number of columns 
in line 110 from 14 to 15. Line 475 
sets unidirectional printing and 
checks for number of columns. 

If you have eight or fewer col- 
umns, set Q to 1 and drop to line 480. 
If you have more than eight, set Q to 
9 and go to line 476 to print the first 
eight columns. Then go to line 480 
and print the rest. Line 49 keeps the 
underline length correct. 

These changes print the full ^col- 
umns by 26 rows on one sheet of 
standard sized paper. 

Richard Green's review of Power 
DOT (October 1983, p. 80) contains 
a minor error. On page 84, the two 
angles referred to as 150 degrees are 
actually 15 degrees. 



you have to write only one version of 
the program, and guarantees that you 
can keep the software if you upgrade 
from a Model I to a Model III. 

I cannot help thinking, however, that 
this practice is short-changing owners of 
Model Ills and modified Model I's. 
These programs don't let me use my 
special features at all. 

As an example, Radio Shack obvi- 
ously designed its Series I Editor/ Assem- 
bler for a Model I. Only the left shift key 
works, and I must use the low cassette 
speed. To generate lowercase charac- 
ters, I have to depress the shift key. 

Ideally you should have two versions 
of the same program, each designed for 
its own individual machine. An excel- 
lent example of this is Frolic, the ma- 
chine-language monitor contained in 
the book TRS-80—More Than Basic, 
by John Froehlich. 

Mr. Froehlich wrote two different 
monitor programs, one for each model, 
each version using its own model's 
special features. Why can't major soft- 
ware manufacturers do this as well? 

I urge the editors of 80 Micro to en- 
courage machine-specific program sub- 
missions. Once you have such pro- 
grams, you could convert them, much 
the same as you do in the Take II 
column. 

I have used both the Model I and the 
Model III, and it isn't difficult to alter 
existing generic programs to fully utilize 
each machine's specialties. 

Once people stop bunching together 
the Model I and III as one machine, the 
owners of both will be better off. How- 
ever, the trend does not seem to be in 
that direction. 

A serious flaw in Model 4 Basic is the 



necessity of separating each Basic key 
word with a space. Will programs pub- 
lished in the future in magazines and on 
disk and tape have spaces between each 
keyword, to make every program com- 
patible with that machine too? I sincere- 
ly hope not. 

Mark Allen Reed 

Box 459- A 

Lyme Center, NH 03769 

AIDS-UI Space Saver 

Although the AJDS-III packages pub- 
lished in the March and April 1983 is- 
sues (p. 136 and p. 168, respectively) of 
80 Micro are the most useful to be 
found, they take up a lot of disk space. 

I've come up with a way to save a 
great deal of disk space and keep several 
files on one disk. 

Make up individual data lists (all 
starting at line 5000) and save them as 
ASCII files (use the ,A option). Then 
make up a menu for the programs 
you've developed (see Program Listing 
3), plug the menu into lines 1-7 of the 
AIDS package, and you can use the 
same basic AIDS program to load any 
number of data files. 

After you type in RUN, the program 
asks if you've loaded a program yet. 
Answer anything but Y. The program 
then brings up the menu. By selecting 
the number of the desired data file, you 
can merge it with the original AIDS 
package. At the ready prompt, type 
RUN, answer Y this time, and press the 
enter key. 

Using this procedure, I'm able to get 
A1DS-III, MAPS-III, MERGE-III, 
CALCS-III, and eight data files (saved 
in ASCII), their descriptor files, and 
their record files on one disk. 



1 CLS:PRINT§596, "HAS A PROGRAM BEEN LOADED YET?": INPUT A$: IF 
A$="Y" THEN 10 ELSE 3 

3 CLS:PRINT§74, "THE FOLLOWING PROGRAMS ARE DEVELOPED:": PRINTG2 
02, "1. VIDEO LISTINGS.": PRINTG266 , "2. FOOD CABINET INVENTORY.": 
PRINTS330,"3. FREEZER INVENTORY. ":PRINT§3 94, "4. FRIENDLY PARTIES 
.":PRINT§458,"5. HOUSEHOLD INVENTORY." 

4 PRINTg522,"6. SUBORDERS.": PRINT§586 , "7. UNDEFINED.": PRINTg65 
0,"8. EXIT PROGRAM.": PRINT§842, "SELECT CHOICE...": INPUTN: IFN< 
10RN>8 THEN- CLS: GOTO 3 ELSE CLS 

5 IFN=1 THENPRINTG596, "MERGING VIDEO PROGRAM": MERGE "VIDEODES/F 
IL" ELSEIFN-2 THEN PRINT§596, "MERGING FOOD CABINET PROGRAM": ME 
RGE "FOODDES/FIL" ELSEIFN-3 THEN PRINTg596, "MERGING FREEZER PRO 
GRAM": MERGE"FREEZDES/FIL" ELSE6 . 

6 IF N-4 THENPRINTG596, "MERGING FRIENDLY PROGRAM": MERGE'FRENDDE 
S/FIL" ELSEIFN=5 THEN PRINT3596 , "MERGING INVENTORY PROGRAM": MER 
GE "HOUSEDES/FIL" ELSEIFN=6 THENPRINT3596 , "MERGING SUBORDER PROG 
RAM": MERGE "SUBSDES/FIL" ELSE7 

7 IF N-8 THEN STOP: ENDELSEIF N>80RN<8 THENCLS: FORI=1TO100: PRI 
NTS596 , "UNDEFINED. . . " : NEXTI :GOT03 

Program Listing 3. Menu for the A1DS-III program. 
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THE 

ALPHA 

JOYSTICK 

NOW ONLY $28 QO 

SPECIFY MOD I OR III 







m m n u t m i mm 



30% 



DON'T WAIT! 

Limited time special 

Works with all 
joystick games. 

Model IV: order model III version 



$59.95 NEWCLOCK-80 



MOD III 
version 





M0D1 
ON E/l 



Wouldn't It be nice if your computer 
could always boot up with the right time 
and date and then stay accurate New- 
clock-80 will enhance your Model I or 111 
system with powerful clock/calendar/timer 
functions. 



Using LSI (large scale integration) and 
custom circuits, Newclock-80 provides 
MO/DATE/YR. HR:MN SEC plus 
AM/PM and day of week and even takes 
care of leap years! It continues to keep time 
and date with quartz accuracy when the 
computer is turned off or experiences a 
power failure. A single battery lasts over 2 
years 

Compatibility: Newclock-80 is 
compatible with any operating system, 
including DOSPLUS. NEWDOS. LDOS 
With its fully decoded circuitry it will work 
with any other hardware you may own. 
Bus expanders are available. 




© 




TIME w/o Exp. Int The complete package 



Installation is very simple, no tools, no 
disassembly, no soldering. Just plug it in. 
that's all. There is no power supply or 
messy cable. Newclock-80 plugs into the 
rear of the keyboard © or side of the Exp 
Int. © Model III Newclock fits the 50 pin 
card edge (underneath) Q 

The Software: Newclock 80 is as easy to 
use as it is to install. "SET", a Basic 
program, is used only once to set the time 
and date and select 12 or 24 hour format. 
"TIMESTR", also in Basic, patches your 
computer "TIMES" function to read 
Newclock-80. It also adds "TIMES" to 
keyboard-only systems, a short routine is 
simply "poked" into low memory 

Newclock-80 uses 12 ports (176 to 188) 
6 for the time, 6 for the date. The data is 
conveniently stored in decimal form, no 
conversion is needed You can read or 
modify any digit using simple Basic "1NP" 
and "OUT" statements. 



No risk trial. Order your Newclock-80 
today, see how easy it is to install and 
operate then decide within 30 days if you 
want to keep it. If for any reason you are 
not delighted with its quality and 
performance, you may return it for a 
prompt and courteous refund. 

Your unit will come complete © with 
software on tape, detailed instructions, 
handy reference card, and a 90 day 
warranty. Specify Model 1 or 111. Software is 
also available on disk: add $5. 
Lithium battery (not included) available 
from RADIO-SHACK (*23-162) or add 
SI. 50 to your order 

Thanks to outstanding engineering and 
efficient manufacturing, ALPHA Products 
is once again able to offer a great product at 
a surprising price. Order your Newclock-80 
at no obligation today. 

Toll Free Order Line 

800-221-0916 

Orders Only. NY * Into call (212) 296 S9t6. Hours 9S£.S.r 



jm ALPHA 

79-04 Jamaica Ave., Woodhaven, NY 11421 




(212) 296-5916 



ADD S2 SO PER ORDER FOR SHIPPING AND HANDLING 
WE ACCEPT VISA. MASTERCARD. CHECKS M O 
COD ADD J3.00 EXTRA ^^^ 

NY RESIDENTS ADO SALES TAX J "^M 

OVERSEAS. FPO APO ADD 10°' o ^^™ ^* 

DEALER DISCOUNTS AVAILABLE 



INPUT 



Now if someone can show me a way 
to get Basic to run after a merge without 
typing in RUN, I'd really be happy! 

James T. Krywalski 
80 Lockwood A ve. 
Buffalo, NY 14220 

AIDS-m Error 

An error exists in the lowercase sup- 
port program modifications that ap- 
peared in the August 1983 issue of 80 
Micro (p. 12). The modifications sup- 
port the lowercase characters, but dis- 
able the up-arrow (Kl) key so it no 
longer functions to move the cursor to 
the previous entry lines. 

I corrected this by adding and chang- 
ing the following program lines to the 
AIDS-HI program, in addition to mak- 
ing the changes that appeared in the 
August 1983 issue. 

170 IFIC = 91THENIC = 6 

2000 U$ = CHR$(91): CC$ = U$+ CHR$(K2) + 

CHR$(K5)+ CHR$(K6)+ CHR$(K9) 
3744 DATA 13,6,10,8,9,27,26,24.25,31,3 

I use 123 instead of 6 in lines 170 and 
3744, but suggest the use of 6. It's 
shorter and appears to work, although I 
haven't tested it thoroughly. 

Also, line 640 of the August modifi- 
cations for AIDS-III has a slight error in 
the last statement. SV = FV$ should 
read SV$ = FV$ to conform with the 
original program and the MAPS-III and 
CALCS-III changes. 

Darrell Lee 

The Food and Drug Administration 

c/o Administration Building, 

Room 1033 

1745 W. 1700 South St. 

Salt Lake City, UT 84104 

Maze Chase PEEK 

The changes in Program Listing 4 are 
for Leonard Karr's Maze Chase game 
(August 1983, p. 272). They let you hold 
one key down and continue to move un- 
til you release the key. 

Mike Cessna 

610 N. 54th St. 

Springfield, OR 97477 

High-Speed POKE 

For the Model 4 owner, Model III 
software operates at the Model 4's 
higher speed by utilizing the following 

POKE from Basic: 

POKE 16912,104 (to speed up) 

POKE 16912,40 (to slow down) 

When assembled, the source code in 
Program Listing S permits toggling the 
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speed-up off and on from the DOS 

READY command line. 

R. L. Stuart 
15434 Sherman Way 
Van Nuys, CA 91406 

More on the Model 4 

Regarding the Model 4 review, 
"Once More, with Feeling" (August 
1983, p. 100), I've found that other 
commands not supported by Microsoft 
Basic 5.0 include Set, Reset, and Point, 
limiting graphics production. 

Also, space delimiters required after 
reserved words in Microsoft Basic 5.0 
don't take up additional memory. The 
program removes these spaces when it 
converts Basic commands to single-byte 
tokens, and they are restored at print or 
list time. 



It is true that the conversion utility 
(CONV) lets you copy files from TRS- 
DOS 1.2 and 1.3 formatted disks to 
TRSDOS 6.0 formatted disks. How- 
ever, this conversion is of minimal help 
in converting Model III Basic to Micro- 
soft Basic 5.0 because mapping Basic 
commands to single-byte tokens is en- 
tirely different in the two Basics. 

Finally, my greatest frustration is the 
unavailability of the Model 4 Technical 
Reference Manual referred to in the 
Model 4 Disk System Owner's Manual. 
Without this manual, it's impossible to 
interface Assembly language with either 
the Model 4 hardware, or with 
TRSDOS 6.0. 

Gregory E. Nutt 

23 Pendleton Lane 

Londonderry, NH 03053 



2100 L-PEEK(14400) 

2110 IF L-8ANDPEEK(S+PL-64) ... 

2120 IP L-32ANDPEEK(S+PL-3) ... 

2130 IP L-16ANDPEEK(S+PL+6 4) ... 

2140 IF L-6 4ANDPEEK ( S+PL+3 ) . . . 

3070 PRINT" UP ARROW MOVES YOU UP" 

3080 PRINT" DOWN ARROW MOVES YOU DOWN" 

3090 PRINT" LEFT ARROW MOVES YOU LEFT" 

3100 PRINT" RIGHT ARROW MOVES YOU RIGHT" 

Program Listing 4. PEEK for Maze Chase. 



00100 ; 
00110 ; 
00120 ; 
00130 ; 
00140 ; 
00150 ; 
00160 ; 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 LPl 
00250 LP2 
00260 



SPEED/ SRC 
Speed Toggling Program 
For Model III Software 
Used on TRS-80 Model 4 



ORG 
LD 

LD 
CP 
JP 
LD 
JP 
LD 
JP 
END 



0FF00H 
HL, 16912 
A, (16912) 
104 
Z,LP1 

(HL) ,104 
LP 2 

(HL) ,40 

402DH 

0FF00H 



; PROGRAM LOAD ADDRESS 

?HL POINTS TO SPEED ADDRSS 

;A-VALUE IN SPEED ADDRESS 

;IS IT 104? (HIGH)? 

;IF HIGH, JUMP LPl FOR LOW 

;IF LOW, MAKE HIGH 

;AND JUMP LP2 TO EXIT PGM. 

;IF HIGH, MAKE LOW (40) 

;JUMP TO DOS READY 



Program Listing 5. Speedup toggling program for the Model 4. 



470 IFPEEK(14312) 061THEN PRINT@960, "PRINTER NOT READY"; : GOTO 470 

ELSE LPRINT CHRS( 15) TAB( 10) TYS:LPRINT 
475 LPRINT CHR$(27) "U" : IFMV<8THENQ=1 :GOT04 80 ELSE Q=9 



"CHR$(R+64) " 
LPRINT TAB(5) A5TAB(9) 
LPRINT 



476 LPRINT TAB(5);: FORR=l TO 8: LPRINT " 
";: NEXT: LPRINT: LPRINT: FORA5=l TO MH+1 

;: FORR=l TO 8:TS=MID$( A$( A5) ,R*15-13 ,14) : GOSUB 510: NEXT 

477 IF A5=MHLPRINT TAB(5) STRINGS ( 120, "-" ) 

478 NEXT: LPRINT: LPRINT: LPRINT 

480 LPRINTTAB(5) ; : FOR R=Q TO HV+1 : LPRINT " "CHRS(R+6 4) 
: NEXT: LPRINT: LPRINT: FOR A5=l TO MH+1: LPRINTTAB(5 
) A5 TAB(9);: FOR R=Q TO MV+1 : T$=MID$ ( A$( A5) ,R*15-13 ,14) : 
10: NEXT: LPRINT 

490 IF A5*MHL PRINTTAB(6) STRINGS ( 15* (MV-Q+2) ,"-" ) 

500 NEXT: LPRINT: LPRINT: LPRINT: RETURN 

510 V=VAL (T$) : IF V=0 LPRINT" "T$;:RETURN 

520 LPRINTUSING " ##*#**## . ##";V; :LPRINT" "; .-RETURN 

Program Listing 6. Adjustment program for Minicak. 



GOSUB 5 



NOW MODEL I AMD MODEL III ! 



Now Model III users can take advantage of the ALPHA I/O system too* Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95. 






>ro?' 



2 Printers' 



PRINTSWITCH 

Have 2 printers on line at an times ana select printer 1 o- 
2 by means ol a conveniently located switch End the problem 
ol constantly plugging and unplugging pnnter cables PHINT- 
SWITCH is a compact module that plugs onto the pareMei printer 
port ol your IRS-80 and provides an edge connector tot each 
ol your two printers It works with any two types ol printers 
dot matnx. daisy wheel, plotters IRS-80 converted select rtcs. 
etc Assembled tested, ready to use with connector and in- 
structions. For Model i or III tpiease specily) ONLY $59 00 



OOD 4opi 

©OD 34P 



r _P CABLES 



©£D 34P*.54- ra ra @ ra 
©OD 34PK2n. r> 

© OD 34 P*v 4ft ("^ 



® S 40 Pin. 2 or 4 ft [~fi 



SUPERIOR QUALITY REPLACEMENT & EXTENSION CABLES 

Highest quality cable and high force, gold plated contacts 
ensure the utmost in connection reliability 

KEYBOARD TO EXPANSION INTERFACE $21 

© DISK DRIVE CABLE FOR I OR 2 ORIVES $32 

• DISK DRIVE CABLE FOR 3 OR 4 DRIVES $45 
e DISK DRIVE CABLE EXTENDER $22 

• PRINTER CABLE EXTENDER $24 

• 4(1 PIN BUS EXTENDER 2 ft $22 4 ft $24 



\a 




5 xa xs X2 



YOU ASKED FOR IT EXPANOABUS XI X? X3 AND X4 

CONNECT ALL VOL.R IRS 80 DEVICES SlMUiTA-.F 

on the 40 pin TRS-80 bus Any device that normally plugs 
into the Keyboard edge connector milt also plug into the 
EXPANOABUS' the X4 is shown with protective 
cove's uncludedi The TRS-80 keyboard contains the bus 
drivers (74153671 tor up to 20 devices more than you will 
ever need Using the E/l it plugs either between KB and E/i 
or in trie Screen Printer port Professional quality gold 
plated contacts Computer grade 40 conductor nDDon can* 
X2 $29 X3 $44 X4 $59 X5 $'4 

Custom configurations are also available call us 




ANALOG 80 A WORLD OF NEW APPLICATIONS POSSIBLE 
8 DiGlTAt MUlTiMETfRS PLUGGED INTO VOUR IRS-80'" 
■«je Current light Pressure etc 
. . ,'ause loi example let •> 'pad input enartrMti «. 10 
OUT 4 Selects input #4 and also Marts the conversion 20 
A - INP(0I Puts the result m variable A voiia' 
Specifications Input range 0-5V 10 0-500V Each channe- 
can oe set to a ditte'ent scale 

Resolution 20mV (on 5V 'angei Accuracy 8 hits S'i. i Port 
Address lumper selectable Plugs into keyboard Bus or E'l 
i screen prmte' pot i Assembled ana tested 90 da* warranty 
Complete with power supply connector manual $t39 



SPECIAL THIS MONTH!, 



$Q9_5 I 



OISK ORIVE EXTENDER CABLE. FREE YOUR MINI-DRIVES 
End the daisy-chain mess once and lor an Fits all mini 

drives. Percom. Aerocomp. Shugart Micropenis. MTl. Vista. 

Pertec Siemens BASF East to install |usl remove the drive 

cover, plug in the EXTENDER CABLE and replace the cover 
Now you can change and move your drives without dis 

assembly Keep the cover on and the dust out High reliability 

gold plated contacts computer grade 34 conductor cable 

Tested and guaranteed 

Gel one lor each drive ONLY 18.9! 




TIMEOATE 80 REAL TIME CLOCK/CALENOAR MODULE 
Keeps quart? accurate time lo' 3 yea's on 2 replaceable 

. i 7 . '-.- I 7 -■ 

CAI FNDAR Md : ■ -. 

module simply plugs into ieai ol Keyboa'd oi side ot 
- I includes 

cassette soltware loi stilting clock and patching to any (K)S 
NEWD0S8 

; union I oi MocW i fully assembled and 

aim msiructi - -tie ONIY 

I- 00 V option me ' 

your | 




■ c 


? 

o 



INTERFACER 80 II rnosi powerful Sense- Conno: module 
•a mdust'iai grade relays, single pole double two* isolated 
contacts ?Amo ©125 Volts TTl latched outputs are also 
accessible to dnveexlernat solid stall 
• Bconvc"":' ii 'y display the ii' , 

Simple OUI commands en basic i control me 8 relays 
>8 optically isolated inputs lor easy direct interlacing to 
external switches photocells keypads sensors etc 
Simple iNP' commands read the status ot the 8 inputs 
Selectable port address Clean, compact enclosed design 
Assembled tested. 90 days warranty Price includes power 
supply cable connector superb use' s manual $159 



GREEN SCREEN 

WARNING 

BM and ai tie Digg>es die usmg g«een screen "lomtors 

'ts advantages are now widely advertised We lee! that eve'y 

TRS-80 user shou enjoy the benefits it provides But 

WARNING' ai' Green Screens are not created equal He-e is 

what we lound 

•Several are |ust a fiat piece ot standard colored luoie The 

green tint was not made tor this purpose and is |udged by 

many to be too dark Increasing the brightness control will 

result m a fuzzy display 

•Some are simply a piece ot thin plastic trim taped onto a 

cardboard frame the color is satisfactory but the wobbly dim 

gives it a poor appearance 

•One optical tiller is m tact piam acrylic sheeting 

•False claim A lew pretend lo reduce glare' intact then 

Hat and shiny surfaces (both Mm and lucite typei ADD then 

own reflections to the screen 

•A tew laughs One ad claims to reduce screen contrast 

Sony gentleman but it's |ust the opposite One ot the Green 

Screen's maior benelrts is to increase the contrast between 

the text and the background 

•Orawbacks Most are using adhesive strips to taslen their 

screen to the monitor This method makes it awkward to 

remove tor necessa'y periodical cleaning All lexcept oursi 

are Hat Light pens win not work reliably because of the big 

gap between the screen and the tube 

Many companies have been manufacturing video filters lor 

years We are not the tirst (some think they a'e I i ut ap ban 

done our homework and we mink we manuiacture the best 

Green Screen Here is why 

•it fits right onto the picture tube like a skin oecause it is the 

only CURVED screen MOLDED exactly lo the picture tube 

curvature it >s Cut precisely to cover the exposed area of the 

picture lube The lit is sucn that the static electricity is 

sufficient to xeep it m place' We also include some invisible 

reusable tape lor a more secure fastening 

•The filter material mat we use is |ust right not too dark nor 

too light the result is a really eye pleasing display 

We are so sure that you win never take your Green screen on 

lhat we offer an unconditional money-back guaraniy try our 

Green Screen lor 14 days II tw any reason you are not 

delighted with it. return it lor a prompt refund 

A last word We think that companies nke ours who are 

selling mainly by mail should «list their street address*nave a 

phone numoer lor question! and orders "accept CODs not 

every one likes lo send checks to a PO BtMOflM the 

convenience ol charging their purchase to maior credit cards 

How come we are the only green screen people doing it' 

Order your ALPHA GREEN SCREEN today $1 2 50 




►-17 



ALPHA Products 



ADD S? 50 PER ORDER FOR SHIPPING AND HANOI INC^ 

All OROERS SHIPPED FIRSt CLASS MAIL 

WEACCFPTVISA MAStER CHARGE CHECKS MO 

COO AOOS? 00 EXTRA 

QUANTITY DISCOUNTS AVAIlABLf "L . 

N Y RESIDENTS ADD SALES IAX («■■» 



79-04 Jamaca Ave., Woodhaven, N.Y. 1 1421 S info and order : (212) 296*5916 



AID 



Selecting Records 

I'd like to select records in a variables 
file when merging with the master file in 
Scripsit. Does anyone know of a pro- 
gram that will accomplish this? It would 
also be nice if the selection criteria could 
accommodate more than OR or AND 
connectives. 

Paulo Guarinetto 

Emiliano Pemeta, 837/802 

Curitiba, Parana 

Brazil 

Up and Running 

Can someone help me get Microsoft's 
Level II Basic Compiler up and running 
on a Model III? 

John S. Letcher Jr. 

P.O. Box 104 

Southwest Harbor, ME 04679 

Line-Renumbering Program 

I have a Model III cassette operating 
system. After writing lengthy programs 
in Bask, I desperately need a line renum- 
bering program. Does anyone know 
where I can get such a program? 

Robert Leland 

737 Knollwood Lane 

San Dimas, CA 91773 

Sell Me Yours 

I can't find Microsoft's Extended 




Searching 

for 
answers 



muMath for the Model HI anywhere. 
Does anyone know where I can get a 
copy? If you're willing to sell yours, 
contact me. 

Kenneth Meyer 

1314 Ault View Ave. 

Cincinnati, OH 45208 



Needs a Conversion Program 

I have been using a Wang 2200 B 
system for several years, and now that I 
have a Model H, I have no way to access 
my engineering programs on the Wang 



disks. I'd like to know if there's a refor- 
matter/conversion program available 
that can exchange data files from Wang 
to TRSDOS and vice versa. 

Julio E. Sosa 

P.O. Box 6473 

Panama City 

Republic of Panama 

A Call from Nature 

I'm a teacher at a natural resource 
college, and I'd like to hear from others 
on how they use their TRS-80s in the 
natural resource fields. Also, I'd like to 
know how to get double-width charac- 
ters in Assembly language. 

Robert Johnson 

274 Grey St. 

Brantford, Ontario N3S 4W8 

Canada 



Footnotes 1 

I'm looking for a Model I footnote 
program integrated with Scripsit that 
features pagination, formatting, and 
numbering. Can anyone help me? 

Also, has anyone figured out how to 
save either a Basic or ASCII file onto 
tape from the Atari 400 and then read 
that tape into a Model I? 

E. Judson Jennings 

299 Ridgewood A ve. 

Glen Ridge, NJ 07028 



Radio Shack TRS-80 



...MODEL„4.UTJILjTJES 4 

■ KW H:H KJDU. * UMKRS 

utilities to MMM Model « features unite 10 
Hwlel III ao<Je. 

iMrWBC Your rn.rMinj :.y»e<l << Wr) 

Test Mi^-.ry Up to 1?8K'< Sootine 

LI ear linaory auutlne 

Use Sound Uteepj 



A 



nur Utilities or Disicetu 



SUPERSCRIPSIT 
PRINTER DRIVERS 



rfitn jn JLP3 printer 0r»»er ( software < . 
attach your printer to the iuperSCHIP^. I M -' 
processer. Over SO printer* now supported. Cell 
or write for latest product Revie. ..:.•.••.■'.. v,y 



Mail / Phone Orders Accepted 

ALPS 



S3 



23 Angus Road 
Warren. New Jersey 07060 

201 • 6477230 



PAPER 



>/ TOP QUALITY FANF0LD BOND 

9:i 11 size lilt most csmputer primers 
Perloraied both sides, snaps out to 8 .- i II sktets 

V FREE SHIPMENT - NEXT DAY 

Fran aur CA. IL. NJ ind GA warehouses 

V LOW PRICES - INCLUOE REGULAR UPS 

20 Ik. waits keel 2500 streets 30.95 

IS Ik. white heed. 3000 steels 32.99 

15 Ik. white ktai. 3200 sheets 32.95 

20 Ik. smooth-affe heal. 1000 sheets . . 22.95 

20 Ik. m iHi H n •»».. 2500 sheets . . 39.95 

20 Ik. si te et hei|o rtf, keei. 2300 sheets 89.95 

CALL TOLL FREE: 1 - 800-628-8736 

Open M-F 7 Ham a 1 5pm PST In CA. call |213| 804 1270 

A-1 COMPUTER PAPER CO. 

405 E. Third #206. Long Beach CA 90802 

We accept checks. MO's. American Eipress. Visa. 
MC. and purchase orders subject to credit approval. 
For COO. add S2 per order. No orders accepted 
from outside continental U.S. Calif, residents add 
6 s o tax. Satisfaction guaranteed. 

CALL FOR SUPER QUANTITY DISCOUNT PRICES 



TABLES 



<& 



SUCH 



A line of solid computer furniture of 
sufficient size to acconodate your 
computer with space for your working 
papers. Designed to be lifted apart lor 
easy cleaning, moving or storage. 

The hardwood veneered tops of oak or 
birch are trimmed with select 11/2" 
hardwoods. The basic computer table top 
is 26" x 48" with the printer tabletop 
of 18" X 24". 

Unfinished, the computer table is $90.00 
and the printer table is SbO.OO. 
Finshed, the computer table is SI 20.00 
and the printer table is $90.00. plus 
shipping. 



For further information or t 
write or call: 

Wooaen Hen 

4665 Ruhle Ha. 

Coleman, Michigan 48618 

(517) 465-6441 



lrder 
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From Computer Plus to YOU 



j i ij- mj 1 1 1 mu 1 1 



r 



M 



J 




ModeM00 8K$679 
ModeM00 24K$835 





Color Computer 111 6K $ 1 85 

W/16K Ext. Basic $245 

W/64K Ext. Basic $305 



Model IV 16K $849 

Model IV 64K 
2Disk8cRS232$1699 




CITOHProwriter$375 
CITOHProwriterll$649 




CoCo Drive $329 
CoCo Drivel $235 




DWP210S629 



BUY DIRECT 



Here are just a few of our fine offers . . . 
call TOLL FREE for full information. 



COMPUTERS 




PRINTERS 




DISK DRIVES 




ModeM2 64K1 Drive 


$2699 


Smith Corona TPI D.W. 


469 


R.S. Model 4 Drive 


515 


ModeM264K2Dnve 


3375 


Silver Reed EXP500 D.W. 


425 


Color Computer Drive 


329 


Model416K 


849 


Silver Reed EXP550 D.W. 


645 


Color Computer Drive 1 


235 


Model464K 




Daisy Wheel II 


1745 


Primary HarC Disk M12 


2689 


2 Disk & RS232 


1699 


DWP210 


629 


Primary Hard Disk Mill 


1799 


Model 4 Portable 




DWP410 


1159 


ETC. 




64K2Disk 


1525 


CGP115 


159 


CCR-81 recorder 


52 


Color Computer II 16K 


145 


CGP220 Ink Jet 


545 


C.C. Joysticks (pair) 


22 


w;16Kext. basic 


210 


DMP100 


215 


16K Ram Chips 


25 


w/64K ext. basic 


305 


DMP120 


395 


64K Ram Chips 


75 


Pocket Computer 2 


165 


DMP200 


520 


8K Pan Par Microfaser 


135 


ModeM6B1Dr256K 


4249 


DMP420 


735 


Printer Cables 




Model 16B2Dr256K 


4915 


DMP500 


1219 


Printer Stands 




ModeM00 8K 


679 


DMP2100 


1745 


Printer Ribbons 




Model 1 00 24K 


835 


Gemini 10X 


315 


Printer Paper 




MODEMS 




Delta-10 


515 


Dust Covers 




Hayes Smartmodem II 


235 


Gemini 15 


425 


Computer Books 




Hayes Smartmodem 1200 


565 


CITOH Prowriter 


375 


R.S. Software 10% oft list. 




Novation Smartcat 1200 


459 


CITOH Prowriter II 


649 


Send for listing ot 




Novation J-Cat 


125 


Okidata 


CALL 


brand name software. 




R.S. AC-3 


129 


Epson 


CALL 






R.S. Modem I 


89 










R.S. Modem II 


160 






TAII CDCC 






We have the lowest possible 
Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 



Prices subject to change without notice. 
Not responsible for typographical errors. 
TRS-80 is a registered trademark of Tandy Corp. 



1-800-343-8124 





com 



P.O. Box 1094 
480 King Street 
Littleton, MA 01460 
617-486-3193 free catalog 

SINCE 1973 — 



plus 

| Write for your 



• 18 
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Now You Can Talk 

There is an error in Program Listing 5 
of Douglas Payne's article, "Talk to the 
Big Guys" (September 1983, p. 230). In 
the program UT5, lines 1490, 1510, 
1580, 1630, 1650, 1700, 1720 have been 
incorrectly printed as DEFB "'. You 
must change them to read DEFB '27H' 
for the program to work correct- 
ly.— Eds. 



Blackjack 

The last part of line 1230 and all of 
line 1240 is missing in Program Listing 4 
of my "Model II Casino" article (Au- 
gust 1983, p. 148). These lines should 
read: 




Flaws 
and 
fixes 



1230PRINTCHRJ(2);:PRINT@L," " 

:PRINT@L + 80," ":PRINT@L+ 160," " 

:PRINTCHR$(1);:RETURN 

1240 PRINTCHRJ(2);:L = 683:GOSUB1230 

:RX = R6:GOSUBl 160:T$ = M$(R6) 

:GOSUB1200:PRINTCHR$(1);:RETURN 



IRAND: PUSH HL 

CALL RANDOM ;reinitialize random numbers 

POP HL 

LD A,(HL) ;and so on 



Figure 1. Catling Random. 



Also, in the "Black Friday" conver- 
sion program (Take II, July 1983, p. 
342), the last equals sign in line 510 
should be an asterisk. 

Byron Lou 

913 Inverness Way 

Sunnyvale, CA 94087 



A Random Breakout? 

There is a minor problem with J.B. 
Harrell's "Fortran Breakout" article 
(July 1983, p. 186). The IRAND func- 
tion in USRLIB/MAC isn't very ran- 
dom after the first two or three calls (to 
be sure, I checked the routine with 
TASMON). It does have an easy fix, 
however. Just call RANDOM every 
time (see Fig. 1). 

In addition, three bytes can be saved 
for each of the one-command calls 
(CLS, RANDOM, GETCH) by simply 
setting the entry equal to the address 
(ex. CLS EQU 01C9H). 

Mary Jo Kostya 

Oppenheimer Str. 17 

D-6000 Frankfurt 70 

Federal Republic of Germany 



100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY — FULL WARRANTY 



rs. 






MOD 12 MOD 4 MOD16B 

1 DR 80K $2499 16K Ext. Bas. $ 799 1 DR 256K $3898 

2 DR 80K $31 49 64K 2DR RS232 $1 579 2 DR 256K $451 

CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

(817) 825-4027 

NOCONA ELECTRONICS » P.O. Box 593 * Nocona.TX 76255 



^ 232 
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The Answer is... 

NEWSCRIPT! 



TM 



THE WORD PROCESSOR 
FOR BUSINESSMEN AND 
PROFESSIONALS 

With ongoing support directly 
from us 

A FEW OF NEWSCRIPT's 200 
STANDARD FEATURES: 

• FORM LETTERS WITH MERGING OF NAMES AND ADDRESSES 

• GIVES SUPERB APPEARANCE TO YOUR FINAL DOCUMENTS 

• COMPREHENSIVE MANUAL WITH TUTORIAL AND EXAMPLES 

• CENTERING. TOP BOTTOM TITLES. INDENTS. PAGINATION 

• UNDERLINING. BOLDFACE, DOUBLE-WIDTH. ITALICS* 

• SUB SUPER SCRIPTS. RIGHT JUSTIFIED PROPORTIONAL* 

• CREATES TABLE OF CONTENTS. SORTED INDEX 

• "LEGAL" LINE NUMBERING 

• SCREEN GRAPHICS. SPECIAL PRINTER SYMBOLS* 

• SEARCH REPLACE GLOBALLY OR WITHIN LINES. COLUMNS 

• BLOCK MOVE. COPY. DELETE. INSERT FILE MERGES 

• AUTOSAVE. WHOOPS. DIRECTORY. KILL 

• SUPPORT FOR ALL LISTED PRINTERS IS INCLUDED •• 
(NO PATCHES INVOLVED) •• 

• SUPPLIED READY-TO-RUN ON "TINY" DOSPLUS 

• ALSO RUNS UNDER NEWDOS 80. LDOS. MULTIDOS. TRSDOS 




BUILT-IN SUPPORT FO 

MOST POPULAR 
PRINTERS^ INCLUDING: 

Anadex. Brother. Centronics. C.Itoh. Diablo. Epson. Gemini. 
Microline. NEC. Prowriter. Qume. Radio Shack (LP 1-8. DW2. DMP- 
410. DWP 200-2100). Smith Corona. Teletype. Typewriter, anything 
compatible with any of these, and many others, parallel and RS-232. 

SPECIAL AVAILABLE OPTION: Right-justified 
proportional for Diablo. F-10, 9ume, Spinwriter. 
etc. Requires "Daisywheel Proportional" Option 
plus NEWSCRIPT. " /*~S 

REVIEWERS AND USERS AGREES^ 



NEWSCRIPT 7.1: 

Mailing Labels Option: 

Special: NEWSCRIPT + LABELS: 

Daisywheel Proportional Option: 

"Pencil" /"Scripsit" File Convertor: 

NEWSCRIPT Manual & Reference card only: 

Electric Webster + Correction Feature: 

Hyphenation Feature for Electric Webster: 

Grammatical Feature for Electric Webster: 

Dot\vriter3.0: 

Dorwriter + Letter Utilities: 

6.0 PLUS-MSS Model 4 utility pak 



$124.95 
29.95 

139.95 
49.95 
24.95 
29.95 

149.50 
49.95 
39.95 
79.95 
99.95 
49.95 



"NEWSCRIPT" is the best 
word procesor I have seen 
. . . unsurpassed in printer 
control ... no other 
TRS-80 word processor 
can match its ability to 
format text ... its editor is 
fast. easy, and powerful." 
(80 MICRO. Oct. 1982) 

"Your phone information 
system and the prompt 
and courteous staff that 
you provide to help your 
clients . . . are worth the 
cost of the system." 
(V.H.H.) 

"Better than cold beer on 
a hot day!! Thank you!!" 

(R.S.) 

"What a program. So easy 
to learn and easier to use. 
I waited too long before 
ordering!" (PJM.) 



". . . takes the TRS-80 to a 
new level of text handling 
. . . very user-friendly . . . 
superb documentation, 
adaptability to many 
printers and operating 
systems ... a standard 
against which other 
TRS-80 word processing 
programs will be judged." 
[SOFTSIDE. Dec. 1982) 

". . . ongoing support 
second to none, with 
superb documen- 
tation." (80 U.S. Journal. 
Feb. 1982) 



c 



REQUIRED CONFIGURATION: 

48K TRS-80. MAX-80. LNW. or 
compatible, with one or more 
disk drives. Specify Model I or 
Model III. 
♦ some features work only if your 

printer has the mechanical 

capability. 
** Daisy Wheel Proportional is an 
extra-cost option. 

TO ORDER, CALL NOW, 

TOLL-FREE: (800) 

824-7888, Operator 422 

For orders, information, or names of nearby dealers- 
(213) 764-3131. or write to us. 

Order from your Software dealer or from: 
Dep't. C, Box 560 No. Hollywood, CA 91603 

TERMS: VISA, Mastercard, checks, money orders. COD. No P.O.'* accepted. Most orders shipped 
within 24 hours. Please add 83.00 for surface LPS in U.S.A.. or 96.00 for UPS Blue Label. Add S6.00 in 
Canada. $15.00 overseas air shipment. 6's% sales tax in California. 




THE NEXT STEP 



by Hardin Brothers 



Last month, I explained a simple util- 
ity that displayed all current vari- 
ables in a running Basic program. This 
month, as promised, I'D explain how to 
add a new feature to that utility: the 
ability to display the current value of 
any current variable. 

After the program displays each 
screen of active variables, you'll be able 
to either press the enter key to go on to 
the next page or type in a variable name. 
If you enter a variable name, its value 
appears on the screen until you press a 
key; then you again face the choice of 
pressing the enter key or typing in an- 
other variable name. 

Much of Program Listing 1 is iden- 
tical to last month's program. Realizing 
you probably won't want to type in the 
same program again, I've marked all 
new or modified lines with an asterisk at 
the beginning of the comment column. 
Some line numbers have changed, but if 
a program block doesn't have any 
marked lines, you won't need to change 
anything in the source code. You will, 
however, have to delete lines 2550 and 




Displaying 

the values 

of variables 



2610-2670 from last month's program. 
After you've added the new lines, type 
N 100, 10 and be sure you end up with 
the same last line as the listing. 

The first major change in the pro- 
gram, aside from some new EQU state- 
ments and a new ORG address, occurs 
in lines 960-1040, where I've added a 



Address Description 

RST 18 hex Compares the values in the DE and HL register pairs. Sets flags to show results: 

Carry HL<DE 

No Carry HL> = DE 

Zero HL = DE 

Not Zero HLODE 

0049 hex Waits for single keyboard input — returns ASCII value of input key in A regis- 

ter. Uses AF and DE registers. 

01C9 hex Clears screen, resets cursor to top of screen, sets 64-character mode, and turns 
off cassette port (Basic's CLS routine). 

033A hex Displays character in A on screen at next print position. Uses AF. 

05D9 hex Inputs line from keyboard. On entry, HL points to buffer to hold input, B holds 
maximum number of characters to input. You terminate input by pressing the 
enter or break key. On output, HL points to start of text, B equals actual input 
length (except terminator), C holds original value of B, A holds ASCII value of 
terminating character, C flag is set only if input is terminated with the break key. 

0A9A hex Current value in HL is loaded into Basic's workspace/accumulator, and the 
variable type flag is set to 02 (integer). 

0ACC hex Value in workspace/accumulator changed from integer to single precision. 

0FDB hex Converts value in work workspace/accumulator into display form, and returns 
address of resulting string in HL. 

2540 hex Loads value of variable into workspace/accumulator. On entry, HL points to 

first character of variable name. On exit, HL points to first character following 
variable name. 

2B75 hex Output a string to current output device. On entry, HL points to first character 

of string, which must end with a zero byte. 

Figure. ROM routines used in the variable display programs. 



flag-handling routine. This program 
uses ROM routines to read and decipher 
the keyboard. However, the entire pro- 
gram starts with decoding a special 
combination of three keys: the shift, 
down-arrow, and V keys. If the utility is 
active (displaying variables) and the op- 
erator again pushes the control/V key 
combination, the program doubles 
back on itself recursively. The screen 
and cursor buffers are overwritten, and 
the program ends up in an endless loop. 

To avoid such problems, line 970 
reads a flag that shows whether the util- 
ity program is currently running. If the 
program sets the 1-byte flag to zero, it 
ignores control/V and invokes the regu- 
lar keyboard driver. If the utility pro- 
gram sets the flag to any other value 
(generally OFF hexadecimal (hex)) it 
knows that it's not currently running 
and lets itself be invoked. The utility 
sets the flag to zero when you enter the 
program and resets to OFF hex during 
the Done routine as the program returns 
control to Basic. 

The flag avoids the problems that re- 
cursion would create, but it can cause 
another problem: Some ROM routines 
that the program calls generate an error 
condition. If an error occurs, the ROM 
routine reports the error on the screen 
and returns control to Basic's READY 
prompt, bypassing the normal flag reset 
in Done. The flag remains set at zero 
and you won't be able to use the utility 
because it reacts as if it's already being 
used. To reactivate the program, you 
have to POKE any non-zero value into 
the flag's location (0BFFF hex if you 
don't change the ORG value). 

The second addition to the pro- 
gram is the routine called NOKEY. 
I found that I occasionally fail to 
release the control/V key sequence 
quickly enough, so one of the keys is 
read as part of the variable name. The 
NOKEY routine guards against this by 
refusing to let the program start until 
you've released all the keys. The B regis- 
ter is used as a counter to help delay the 
NOKEY reading to avoid keybounce. If 
you still have a problem with spurious 
key reads, increase the time of the loop 
by using BC as a counter. 

The ENDSCR routine is almost en- 
tirely new and contains the crux of this 
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month's modification. After correctly 
positioning the print cursor, the pro- 
gram prints a CHR$(1F hex) on the 
screen. That control character clears the 
screen from the present print position to 
the end of the screen. This is necessary 
to erase any characters left from a 
previous variable and value display. 

Then, after the program displays the 
prompt message, line 2830 points HL at 
an input buffer and sets B to the 
buffer's length in preparation for ac- 
cepting a typed-in variable name. Since 
both DOS and Basic have input buffers, 
you may wonder why they weren't used 
instead of dedicating space to a third 
buffer. I didn't use the DOS buffer be- 
cause there is no guarantee it will be in 
the same position with different DOS 
systems, or with different versions of 
the same DOS. I left the Basic buffer 
alone because you might want to call up 
the variable display while writing or 
editing a line of Basic and not wish to 
return to a line filled with garbage. 

After you set up HL and B, the pro- 
gram calls the ROM routine LINEIN. 
This routine accepts keyboard input of 
a string up to the maximum length set in 
register B. With each keystroke, the 
character appears on the screen and is 
stored in the buffer to which HL points. 
The routine reacts normally to back- 
spacing and other control characters. 
On return, the B register contains the 
number of characters actually entered 
except for the terminating character 
(enter or break). If you press the break 
key, the program sets the carry flag. 

If you press the break key during 
variable input and set the carry flag, the 
program loops back to the prompt and 
again awaits operator input. If B equals 
zero, you pressed the enter key without 
any additional characters, so the screen 
clears and control returns to the display 
routines. 

If you input any additional charac- 
ters, the program assumes it has a 
variable name in the buffer. First, the 
program establishes a new cursor posi- 
tion. Then it prints the variable name 
followed by an equal sign. The program 
points HL at the variable name again 
and calls the ROM routine VALACU. 
VALACU (2540 hex) is a complex 
routine that takes the variable name at 
which HL points, evaluates that vari- 
able, transfers its value to the low mem- 
ory accumulator, and sets a flag to indi- 
cate the variable type (integer, string, 



Program Listing 1. Current variable display. 



033A 
2B75 
01C9 

0A9A 

&ACC 
OFBD 
05D9 
2540 
40AF 
0049 

4016 
4020 

3804 
3840 
3880 

3C00 
3F7B 
3F88 



40F9 
40FB 
40FD 



B9C5 
B9C8 
B9CB 
B9CC 
B9CE 
B9D1 
B9D5 
B9D6 
B9DA 



2A1640 

11DDF.9 

DF 

280C 

22F0B9 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

0C430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

CC540 

00550 

00560 

00570 

00580 

00590 

00600 

C0610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 



Current Variable Display * 

* 

On <Shift> <Dwn-arrow> <V> * 
shows two screens (or more)* 
1st — all defined, simple * 

variables * 

2nd — all defined array * 

variables * 

After each screen, values * 
of current variables may * 
be listed. * 



; Listing of routines and addresses: 



PR1NT1 

PRINT 

CLS 

HLACUH 

ACINSN 
ACUSTR 
LINEIN 
VALACU 
VTFLAG 
WAITKY 

KBDVR 
CURSAD 

ROW 3 
ROI.-7 

rows 

VIDEO 

F.NDDSP 

PRTPOS 



SVT 
AVT 

FREE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 

EQU 

EQU 

EQU 
EQU 



033AH 
2B75H 
01C9H 
0A9AH 
0ACCH 

0FBDH 

05D9H 
2540H 
40AFH 
0O49H 

431611 

4020H 

380411 
384011 
3U80H 



EQU 3C00II 
ECU 3F7P.H 
EQU 3F881i 



; PRINT 1 CHAR. 
;PRINT STRING 
; CLEAR SCREEN 
;HL==> RAM ACCUMULATOR 
;ACCUH. VALUE INT=>SINGLE 
;ACCUM ■ > ASCII STRING 
;*ROM LINE INPUT ROUTINE 
; 'VALUE OF VAR.«> ACCUM 
; 'VARIABLE TYPE MARKER 
;*GET SINGLE KB INPUT 

;KB DRIVER ADDRESS 

; CURSOR POSITION ADDRESS 

;P-W KEYBOARD ROM 
;ENT t. ARROWS KB ROW 
; SHIFT KEYBOARD ROW 

;TOP OF SCREEN 

;LAST LINE FOR DISPLAY 

;ADDR. FOR PROMPT DISPLAY 



EQU 4411:! ;MEMTOP FOR MOD . 1 1 1 DISK 

use 4049H for MODI Disk, 40B1H for tape systems 



EQU 

EQU 

EQU 



40F9H 

40FBH 

4 0FDH 



;BEG. OF VARIABLE LIST 
;BEG. OF ARRAY LIST 
;BEG. OF FREE SPACE 



First, patch routine into keyboard 
driver, being careful to save current 
driver address, and reset MEMTOP. 



0B9C5H .-CHANGE ORG TO RELOCATE 

this address for top of 32K RAM 



ED531640 00720 

IB 00730 

ED531144 00740 

C32D40 00750 

00760 

00770 

00780 

00790 



LD 
LD 
RST 
JR 

LD 
LD 

DEC 

LD 
JP 



HL, (KBDVR) 
DE.TEST 
18H 

Z.SET10 
(RETURN+1) ,HL 
(KBDVR) ,DE 
DE 

(MEMTOP) ,DE 
40 2DH 



;GET CURRENT DRIVER ADDR. 

;GET ROUTINE ADDR. 

; COMPARE DE & HL 

;GO IF ALREADY SET 

;SET RETURN ADDR. 

;SET 'TEST' AS KB DRIVER 

;DE=TEST-1 

;SET MEMTOP 
; RETURN TO DOS 



SET10 

Line 750 should be JP 1A19H for tape systems 

NOW test for <SHIFT> <DOWN-ARROW> <V> 



B9DD 3A4038 
B9E0 E610 
B9E2 280B 
B9E4 3A8038 
B9E7 B7 
B9E8 2805 
B9EA 3A0438 
B9ED E640 
B9EF CA0000 



B9F2 CD25BB 
B9F5 3AFFBF 
B9F8 B7 
B9F9 2806 
B9FB AF 
B9FC 32FFBF 
B9FF 1805 

BA01 CD2EBB 
BA04 18E9 

BA06 06FF 



00810 TEST 

00820 

00830 

00840 

00850 



00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 



LD 
AND 
JR 
LD 
OR 
JR 
LD 
AND 
RETURN JP 



A , ( ROW7 ) 

10H 

Z, RETURN 

A, (ROW8) 

A 

2, RETURN 

A, (ROW3) 

40H 

Z.0000H 



<Shift> <down-arrow> <V> 
Check flag status. 
Save all registers. 
Save screen & then clear 



CALL 

LD 

OR 

JR 

XOR 

LD 

JR 

NOTNOW CALL 
JR 



PL'S HAL 
A, (FLAG) 
A 

Z , NOTNOW 
A 

(FLAG) ,A 
NOKEY 

POPAL 
RETURN 

B.255 



GET DWN-ARW ROW 

IS IT DWN-ARW? 

GO IF NOT 

GET SHIFT ROW 

SET FLAGS 

GO IF NO SHIFT KEY 

GET P-W ROW 

CHECK FOR V 

SETUP PUTS VALUE HERE 



have been pressed. 



SAVE ALL REGISTERS 
•GET FLAG REGISTER 
•SET F REGISTER 
•GO IF ZERO 
•SET A TO ZERO 
•SET FLAG REGISTER 
•AND GO 



'RESTORE REGISTERS 

'GO TO NORMAL KB DRIVER 



•SET FOR TIMING LOOP 



Listing I continued 



80 Micro, December 1983 • 23 



THE NEXT STEP 



Lislmx 1 continued 












BA08 


3AFF3B 


01080 N0KEY5 


LD 


A, (3BFFK) 


; *CHECK FOR ANY KEY 


BA0B 


B7 


01090 




OR 


A 


; *SET FLAGS 


BAOC 


2CFA 


U110C 




JR 


NZ,NOKEY5 


;*LOOP UNTIL ALL KEYS UP 


bAOL 


IDF 8 


nine 

C1120 




DJNZ 


NOKEY5 


;*LOCP FOR KEY BOUNCE 


BAie 


11FOBB 


01130 SAVE 


LD 


DE.SCRBUF 


;DE = = ■• SCREEN BUFFER 


BA13 


210C3C 


01140 




LD 


HL, VIDEO 


;HL»-> SCREEN 


BA16 


813084 


01153 




I.D 


EC, 4001: 


;EC = SCREEN LENGTH 


BA19 


EDBO 


81168 




LDIE 




; MOVE SCREEN 


RA1B 


2A2343 


01170 




LD 


HL, (CURS AD J 


;GET CURRENT CURSOR ADDR . 


EA1L 


22FDBF 


11180 




LD 


(CRSEUF) ,HL 


;AND SAVE IT ALSO 


BA21 


CDC981 


31198 




CALL 


CLS 


; CLEAR THE SCREEN 


3A24 


21883F 


01283 




LD 


HL.PRTPCS 


;CET PRINT POSITION 


M27 


222348 


01210 
01220 




LD 


, CURS AD) ,HL 


;MOVE CURSOR AWAY 






31238 


Now g 


et list 


cf si-ple (not 


array) variables and print 






01240 


each 


on the 


scree" . 








31252 










bA2A 


DD2AF948 


01260 




LD 


IX, (SVT) 


;IX==>VARIABLE LIST 


BA2L 


213830 


01270 




LD 


HL, VIDEO 


;HL--> SCREEN 


BA31 


FD21E2BB 


81280 




LD 


I Y, TYPES 


;IY-»> VAR. TYPE TABLE 


BA3 5 


ES 


01290 ' 


AS 10 


PUSH 


HL 


;SAVE SCREEN PTR . 


EA36 


DDES 


81300 




PUSH 


:x 


;MOVE VAR. LIST PTR 


BA38 


El 


3 1 3 1 3 




POP 


HL 


; TO HL 


BA39 


ED5BFE43 


31323 




LD 


DE, (AVT) 


;GET END OF VAR. TABLE 


BA3D 


DF 


31333 




RST 


18H 


;C? HL:DE 


BA3E 


El 


3134C 




POP 


HL 


• ; RECOVER SCREEN PTR. 


BA3F 


333E 


01350 
01360 




JR 


NC, ARRAY 


;GO IF HO "ORE VARIABLES 


BA41 


DD4600 


01370 




LD 


B, (IX) 


;GET VARIABLE TYPE 


BA44 


DD7EB2 


01380 




LD 


A, (IX*2) 


;1ST LETTER OF VAR. NAME 


BA47 


77 


31390 




LD 


(HL) ,A 


; PRINT IT 


3A4 8 


23 


01433 




INC 


HL 


;BUMP POINTER 


3A4 9 


DD7E01 


01410 




LD 


A,(IX*1) 


;2SD LETTER OF VAR. NAME 


BA4C 


B7 


01423 




OR 


A 


;SET FLAGS 


BA4D 


2832 


01430 




J 3 


Z, VAR 20 


;GC IF ZERO 


BA4F 


77 


C1440 




LD 


(HL) ,A 


;ELSE PRINT IT 


BA50 


23 


01450 




INC 


HL 


;AND BUM? POINTER 


BA51 


78 


01460 


/AR2C 


LD 


A,B 


;GET VARIABLE TYPE 


BA5 2 


3D 


31473 




DEC 


A 


; DECREASE BY TWO TO 


BA53 


3D 


01480 




DEC 


A 


ALIGN WITH TABLE 


BA54 


3259BA 


01490 




LD 


(IYPTR+2) ,A 


j USE FOR OFFSET 


BA57 


FD7E0O 


01500 


YPTR 


LD 


A,(IY*0) 


;GET TYPE SYMBOL 


BA5A 


77 


01510 




LD 


(HL) ,A 


;PUT ON SCREEN 


BA5B 


23 


01520 




INC 


HL 


I BUMP POINTER 


BA5C 


23 


01533 
01540 




I HC 


HL 


;ANU AGAIN FOR SPACE 


BA5D 


DD23 


01550 




INC 


IX 


;UET PAST HEADER 


BASF 


DD23 


01560 




INC 


IX 


; KITH THREE 


BA61 


DD23 


01570 




INC 


IX 


; INCREMENTS 


BA63 


DD23 


01560 


/AR33 


INC 


IX 


;t-',OVE PAST VAR. INFO 


BA6 5 


icfc 


01590 
01600 
01610 


cneck 


DJNZ 
sec fee r. 


VAR3 3 


; DEPENDING ON VAR. TYPE 
;IX" • NEXT VARIABLE 


BA67 


117B3F 


0162C 




LD 


DE,ENDDSP 


;LAST PRINT POS. 


BA6A 


DF 


01630 




RST 


18H 


;l'P HI.:DG 


BA6B 


D437B1) 


C1640 




CALL 


NC.ENDSCR 


;GC IF SCREEN PULL 


BA6E 


7D 


31650 




LD 


A,l. 


;(jLT 1 Sb OF SCREEN PTR. 


BA6F 


E6 3F 


01663 




AND 


3FH 


;I1ASI: BITS 6 i, 7 


BA71 


FE3C 


31670 




CP 


3CII 


;END OF LINE? 


E-A7 3 


3 8C0 


31680 




JR 


C, VAR 13 


j RETURN IF NOT 


BA7 5 


11480C 


01693 




LD 


DE,4 0!i 


.-LINE OFFSET 


BA78 


19 


01700 




ADD 


HL.DE 


jHL»-> NEXT LINE 


BA79 


7D 


01710 




LD 


A,L 


;GET LSB 


BA7A 


F.6CC 


B172C 




AND 


OCCH 


j MASK OUT BITS 0-5 


5A7C 


6F 


31733 




LD 


L,A 


;KL==> START OF NEXT LINE 


BA7D 


16B6 


31740 
31750 




JR 


VAR 13 


;GET ANOTHER VARIABLE 






.'1763 


NOW 3 


cw arra 


"£ 








01770 










BA7F 


CD37EB 


01783 


array 


CALL 


BNDSCR 


j NEW SCHEEN FOR ARRAYS 


BAB 2 


DD2AFB40 


31 "93 




LD 


IX.(AVT) 


;IX">ARRAY TABLE 


BA86 


DDE5 


31800 


ARR18 


?"S:i 


IX 


.•TRANSFER PTR TO 


BA8 8 


El 


31810 




POP 


HL 


; TO HL 


BASS 


ED5BFD40 


01620 




LD 


DE, (FREE) 


;DE">EHD OF ARRAYS 


BAUD 


DF 


01630 




RST 


18H 


;CP HL:DE 


3A8E 


3075 


01840 
C1850 




JR 


NC, DONE 


;GO IF END OF TABLE 


BA90 


DD4600 


01863 




LD 


B,(IX+0) 


;GET VARIABLE TYPE 


BA93 


DD7EC2 


01878 




LL- 


A, (IX-»2) 


;1ST LETTER OF VAR. KAME 


BA96 


CD3A03 


01880 




CALL 


PRINT1 


; PRINT A 


BA99 


DD7E01 


81r,90 




LD 


a, ' :x-: 


;2ND LETTER CF VAR. NAME 


BA9C 


37 


31900 




OR 


A 


;SET FLAGS 


BA90 


2803 


01913 




JR 


Z,ARR20 


;GC IF 


BA9F 


CD3A03 


31923 




CALL 


PRINT1 


;ELSE PRINT IT 


3AA2 


78 


C1933 


ARR28 


LD 


ht 3 


;GET VAR. TYPE VALUE 


BAA3 


3L 


81940 




DEC 


A 


; SUBTRACT TWO TO 


BAA 4 


30 


31953 




DEC 


A 


; ALIGN WITH TABLE 


BAA 5 


3 2AA3A 


01968 




LD 


;IYP7P.2*2) .A 


; ADDRESS TABLE 


3AA6 


FD7E00 


01970 


IYPTR2 


i.D 


A, (IY+0) 


;GET TYPE SYMBOL 


BAAB 


CD3A83 


31980 




CALL 


PRINT1 


;AND PRINT IT 


BAAE 


3EZ8 


C199C 




LD 


A,'( ' 


iPAREN. CHAR. 


EAB0 


CD3A0 3 


02000 
32018 




CALL 


PRINT1 


;AND PRINT IT 


BAB 3 


DD4E0 5 


02020 




I.D 


C,(IX+5) 


;GET • OF DIMENSIONS 


BAB6 


DD5E0 3 


02833 




LD 


E, (IX+3) 


;OF. WILL HAVE OFFSET 


BAB9 


005604 


02040 




i.D 


D, (IX+4) 


TO NEXT ARRAY 


BABC 


DDE5 


02053 




PUSH 


IX 


; TRANSFER IX VALUE TO 


BABE 


El 


02OC0 




POP 


HL 


; HL REGISTER 


BABF 


19 


02070 




ADD 


HL.DE 


;ADD OFFSET 

Listing 1 continued 



single precision, or double precision). If 
the variable is a string, its VARPTR ad- 
dress is loaded into the accumulator in- 
stead of its value. 

Next, the program checks the vari- 
able type flag. If the type flag equals 3, 
the variable is a string, and control pass- 
es to STRDSP in line 3140. Otherwise, 
the ROM routine ACUSTR, which I 
described last month, changes the vari- 
able's value into an ASCII string and 
the program prints that string. Then the 
ROM routine WAITKY (0049 hex), 
which waits for any keyboard input, is 
used to freeze the display until you press 
any key before the program loops back 
to END10. WAITKY takes the place of 
last month's GETENT, which is no 
longer included in the program. 

If the variable is a string, IX points to 
its VARPTR address (line 3210). Then 
the program loads B with the string's 
length and HL with its location in mem- 
ory. Because the string is not terminated 
with a 00 hex byte, you cannot use the 
normal Print routine. Instead, the pro- 
gram calls the PRTSTR routine at line 
3280 to print the string. 

PRTSTR first checks the string's 
length. If it is zero, control returns im- 
mediately without any further process- 
ing. Otherwise, the program prints the 
string with a DJNZ loop until B is dec- 
remented to zero. 

For quick reference, the Figure sum- 
marizes the ROM routines and low- 
memory pointers used by this month's 
and last month's programs. Before you 
add the ROM routines to your own pro- 
grams, you must exercise caution. Some 
ROM routines (2B75 hex is a notorious 
example) only work properly if Basic is 
initialized. If you use a tape system, you 
never have to worry because Basic is ini- 
tialized automatically when you turn on 
the power. 

However, if you use a disk system, 
you can use programs with ROM rou- 
tines only if you've loaded Disk Basic 
since you turned on the computer. If 
you find a program, particularly a mag- 
azine program, that doesn't work as it 
should, try going to Disk Basic, re- 
turning to DOS, and rerunning it. 

The problem is that ROM Basic was 
written to be expanded in two ways. 
Each expansion necessitates an exit 
from ROM to a patch point in low 
memory. The first type of expansion is 
the addition of Disk Basic command 
verbs (CMD", INSTR, OPEN, DEF, 
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TRS-80 MODEL 4 

Word Processing Program 




•S32ft- 

•ss~~=. 



Works with TRSOOS 6.0 

90K TEXT BUFFER when expanded memory is installed. 
Built-in FORM LETTER and MAIL-MERGE capabilities. 
Performs PROPORTIONAL-SPACE right-margin justification on 
over 60 different printers (all drivers included FREE). 

□ Same powerful editing features as ZORLOF II, with dozens more 
features added. 

□ Versions also available to run on MODEL I, MODEL III, LNW-80, 
PMC-80, and MAX -80 (80x24 display). 

LeScript costs '200 less than 

competing products matching its capabilities. 



CALL 1-305-259-9397 ANIIEK™ 

FREE SHIPPING WITHIN THE U.S.; OUTSIDE THE U.S. ADD $10.00 FOR SHIPPING. FLORIDA RESIDENTS ADD 5% SALES TAX ALL ORDERS PREPAID 
BY CHECK. MONEY ORDER. CREDIT CARD OR C D 



ITEK SOFTWARE PRODUCTS 
O. BOX 361136 
MELBOURNE. FL 32936 " ,41 
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BAC0 110500 


02080 


LD 


DE,5 


.•OFFSET FOR HEADER 


BAC3 19 


02090 


ADD 


HL F DE 


jHL==> NEXT ARRAY 


BAC4 E5 


02100 
C2110 ; 


PUSH 


HI. 


;SAVE ADDRESS 


BAC5 0606 


02120 


LD 


B,6 


;BUMP IX 6 TIMES 


BAC7 DD23 


02130 ARR3 


INC 


IX 


; SO IX==> SIZE OF 


BAC9 10FC 


02140 
02150 ; 


DJNZ 


ARR30 


; 1ST DIMENSION 


BACB 41 


02160 


LD 


B,C 


;GET t OF DIM. 


BACC CB20 


02170 


SLA 


B 


.•MULTIPLY BY TWO 


BACE DD23 


02180 ARK40 


IMC 


IX 


;BUMP POINTER 


BAD0 10FC 


02190 
02200 ; 


DJNZ 


ARR40 


; UNTIL PAST DIM SIZES 


BAD2 41 


02210 


LD 


B,C 


;GET # OF DIM. AGAIN 


BAD3 DD2B 


02220 ARR50 


DEC 


IX 


;DROP IX UNTIL IT 


BADS DD2B 


02230 


DEC 


IX 


; POINTS TO NEXT DIM. 


BAD7 DD6E00 


02240 


LD 


L, (IX*0) 


;CET LSB OF DIM SIZE 


BADA DD6601 


02250 


LD 


H, (IX+1) 


; AND MSB 


BADD 2B 


02260 


DEC 


HL 


; CORRECT FOR ELEMENT 


BADE CDB2BB 


02270 
02280 ; 


CALL 


ASCPRT 


;PRINT AS ASCII 


BAE1 3E2C 


02290 


LD 


A, ' , ' 


;GET COMMA CHAR. 


BAE3 CD3A03 


02300 


CALL 


PRINTl 


;AND PRINT IT 


BAE6 10EB 


02310 
02320 ; 


DJNZ 


ARR50 


; REPEAT FOR ALL DIM.S 


BAE8 212040 


02330 


LD 


HL,CURSAD 


;HL«>CURSOR POS'N 


BAEB 3 5 


02340 


DEC 


(HL) 


;MOVE BACK OVER LAST " , " 


BAEC 3E29 


02350 


LD 


A,') ' 


;GET CLOSE PAREN. 


BAEE CD3A03 


02360 


CALL 


PRINTl 


;AND PRINT IT 


BAF1 3E20 


02370 


LD 


A, ' ' 


;NOW AN ASCII SPACE 


BAF3 CD3A03 


02380 


CALL 


PRINTl 


;AND PRINT IT 


BAF6 2A2040 


02390 


LD 


HL, (CURSAD) 


;GET CURSOR POS'N 


BAF9 117B3F 


02400 


LD 


DE,ENDDSP 


;END OF PRINT AREA 


BAFC DF 


02410 


RST 


18H 


;CP HL:DE 


BAFD D437BB 


02420 
02430 ; 


CALL 


NC, ENDSCR 


;GO IF SCREEN FULL 


BB00 DDE1 


02440 


POP 


IX 


;IX==> NEXT ARRAY 


BB02 C386BA 


02450 
02460 ; 


JP 


ARR10 


;GO TO WORK ON IT 


BB05 CD37BB 


02470 DONE 


CALL 


ENDSCR 


;ASK FOR ENTER 


BB08 21FDBB 


02480 


LD 


HL,SCRBUF 


;HL«=>SCREEN BUFFER 


BB0B 11003C 


02490 


LD 


DE, VIDEO 


;DE==>SCREEN 


BB0E 010004 


02500 


LD 


BC400H 


;BC » SCREEN LENGTH 


BB11 EDB0 


02510 


LDIR 




;MOVE TO SCREEN 


BB13 2AFDBF 


02520 


LD 


HL, (CRSBUF) 


;GET OLD CURS. POS'N 


BB16 222040 


02530 


LD 


(CURSAD) ,HL 


;AND RESTORE IT 


BB19 3EFF 


02540 


LD 


A,0FFH 


;*VALUE FOR RECUR. FLAG 


BB1B 32FFBF 


02550 


LD 


(FLAG) ,A 


;*RESET RECURS. FLAG 


BB1E CD2EBB 


02560 


CALL 


POPAL 


; RESTORE REGISTERS 


BB21 AF 


02570 


XOR 


A 


;A t Z-FLAG SHOW 


BB22 C3EFB9 


02580 
02590 ; 


JP 


RETURN 


; RETURN TO BASIC 


BB25 E3 


02600 PUSHAL 


EX 


(SP) ,HL 


;HL ON STACK; SAVE RET 


BB26 C5 


02610 


PUSH 


BC 


;SAVE ALL REGS 


BB27 D5 


02620 


PUSH 


DE 




BB28 DDE5 


02630 


PUSH 


IX 




BB2A FDE5 


02640 


PUSH 


IY 




BB2C E5 


02650 


PUSH 


HL 


;ORIG. RET ADDR.TO STACK 


BB2D C9 


02660 
02670 ; 


RET 






BB2E El 


02680 POPAL 


POP 


HL 


;GET RET. ADDR. 


BB2F FDE1 


02690 


POP 


IY 


; RESTORE ALL REGS. 


BB31 DDE1 


02700 


POP 


IX 




BB33 Dl 


02710 


POP 


DE 




BB34 CI 


02720 


POP 


BC 




BB35 E3 


02730 


EX 


(SP) ,HL 


;GET ORIG. HL 


BB36 C9 


02740 
027 50 ; 


RET 






BB37 CD25BB 


02760 ENDSCR 


CALL 


PUSHAL 


;SAVE REGISTERS 


BB3A 21883F 


02770 END10 


LD 


HL.PRTPOS 


;*HL==>PRINT POSITION 


BB3D 222040 


02780 


LD 


(CURSAD) ,HL 


;SET CURSOR ADDRESS 


BB40 3E1F 


02790 


LD 


A,1FH 


;*1F=CLEAR TO END OF FRAME 


BB42 CD3A03 


02800 


CALL 


PRINTl 


;*PRINT IT 


BB45 21C8BB 


02810 


LD 


HL,HSG 


;HL==>PROMPT MESSAGE 


BB48 CD752B 


02820 


CALL 


PRINT 


; PRINT IT 


BB4B 21E9BB 


02830 


LD 


HL.VARBUF 


;*HL==>INPUT BUFFER 


BB4E 0614 


02840 


LD 


B,20D 


;*B=MAX. INPUT LENGTH 


BB50 CDD905 


02850 
02860 ; 


CALL 


LINEIN 


;*GET KEYBOARD INPUT 


BB53 38E5 


02870 


JR 


CEND10 


;*GO IF <BREAK> HIT 


BB55 78 


02880 


LD 


A,B 


;*GET INPUT LENGTH 


BB56 B7 


02890 


OR 


A 


;*SET FLAGS 


BB57 200A 


02900 


JR 


NZ,END20 


;*GO IF VARIABLE REQUESTED 


BB59 CDC901 


02910 


CALL 


CLS 


;ELSE CLEAR SCREEN 


BB5C CD2EBB 


02920 


CALL 


POPAL 


; RESTORE REGISTERS 


BB5F 21003C 


02930 


LD 


HL, VIDEO 


;HL==>SCREEN TOP 


BB62 C9 


02940 
02950 ; 


RET 




;AND RETURN 


BB63 C5 


02960 END20 


PUSH 


BC 


;*SAVE VARIABLE LENGTH 


BB6 4 0608 


02970 


LD 


B,8 


;*FOR 8 SPACES 


BB66 3E20 


02980 


LD 


A, ' ' 


;*A=ASCII SPACE 


BB68 CD3A03 


02990 END30 


CALL 


PRINTl 


; PRINT 


BB6B 10FB 


03000 


DJNZ 


END30 


;* 8 SPACES 


BB6D CI 


03010 


POP 


BC 


.-•RECOVER LENGTH COUNT 


BB6E 21E9BB 


03020 


LD 


HL,VARBUF 


;*HL==>BEGINNING OF VAR. 


BB71 E5 


03030 


PUSH 


HL 


;*AND SAVE IT 


BB7 2 CDA7BB 


03040 


CALL 


PRTSTR 


;*PRINT VAR NAME AS STRING 


BB75 3E20 


03050 


LD 


A, ' ' 


j*A»ASCII SPACE 


BB77 CD3A03 


03060 


CALL 


PRINTl 


;*AND PRINT IT 


BB7A 3E3D 


03070 


LD 


A, ' = ' 


;*A= EQUAL SIGN 

/ ating / continued 



LOAD, and so on). The execution ad- 
dress for each of these new verbs al- 
ready exists in ROM, but the operation 
code does not — DOS must supply it. 
When you boot up a tape system, each 
Disk Basic command patch point is 
filled with the L3 error's address. 

The second type of patch point to 
DOS is completely different. Several 
ROM routines, including many of the 
output routines, include a call to a low- 
memory address. When you use a tape 
system, a return instruction (0C9 hex) is 
loaded into each of those addresses; 
when you load Disk Basic, either a re- 
turn, or a jump to a special Disk Basic 
routine is loaded into each address. 
However, when you first boot up DOS, 
no values are specifically loaded to 
those patch points and any program 
that calls them will probably find itself 
wandering off into oblivion. 

The purpose of the second set of 
patch points is to let DOS writers add 
new, more powerful features to Basic. 
But if you are writing Assembly-lan- 
guage programs meant to be compatible 
with disk systems and run under DOS, 
and you want to use ROM routines, you 
should close any patch points your pro- 
gram might come across with a 0C9 hex 
byte before the ROM routines are 
called. The patch points are at addresses 
41AC hex, 41AF hex, 41B2 hex, and so 
on up to 41E2 hex, on both the Models 1 
and III. 

Defining Variables 

Besides showing the current active 
variables, this month's program can 
help you improve your Basic program- 
ming. Your programs store all simple 
variables in memory below all array 
variables. If your program uses arrays, 
they have to be moved every time you 
define or use a new simple variable. If 
one of your first program lines dimen- 
sions all arrays, it will slow down your 
program considerably by the pauses 
necessary to shift the arrays up in mem- 
ory whenever you use a new simple vari- 
able. Your program will run faster if 
you define all simple variables before 
you dimension arrays. 

There are two ways to define simple 
variables at the beginning of the pro- 
gram. The first, and more structured, is 
to give each a pre-set value (such as 
A = 0, B = 2, and C = .479). However, if 
you're going to set many of the vari- 
ables to zero, or if the program will set 
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them as it uses them, you can define 
simple variables the same way you 
define arrays: with the DIM command. 
DIM A,B,C defines, and sets up space 
for, the three variables listed. 

Therefore, a sensible order of com- 
mands at the beginning of a program 
would be: 

• Clear sufficient string space; 

• Define or Dimension simple vari- 
ables; 

• Dimension array variables. 

The second lesson to be gained from 
variables displays is that the order of 
variables in memory makes a differ- 
ence. Whenever Bask has to deal with 
any variable, it searches the appropriate 
'table from the beginning. If it finds the 
variable, it continues to process the cur- 
rent command. If it can't find the vari- 
able, it (usually) must make room for it 
and add it to the table. 

If your most frequently used vari- 
ables are at the bottom of the table, they 
will be found faster and your program 
will run more quickly. To place them at 
the bottom of the table, be sure to de- 
fine them first. 

One interesting side note — if you ask 
Bask for the value of a simple variable 
that you have not previously defined, 
it searches the SVT and, failing to 
find the variable, answers zero for a 
numeric variable or " " for a string 
variable. However, it will not add the 
variable to the SVT. 

If you ask Basic for the value of an 
element in an array that you haven't 
previously defined, Basic first creates 
the array in the AVT, using the default 
value of 10 for the maximum of each in- 
dex, and then reports that the value of 
the array element is zero or " ". Be 
careful when you use arrays; they can 
fill up memory qukkly. The innocuous 
looking statement: 

DIM A#(7,8.8,8) 

requires 46,666 bytes, and uses up al- 
most all available memory in a 48K 
tape-based Model III. 

Random Numbers 

In my own programming and in 
questions from readers, the subject of 
random numbers has come up several 
times. There seems to be a misunder- 
standing about what a random number 
is and how random numbers are gener- 
ated internally in Basic. 
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BB7C 


CD3A03 


0308B 




CALL 


PRINTl 


•AND PRINT THAT 


BB7F 


El 


03090 




POP 


HL 


*HL">VARIABLE AGAIN 


BB80 


CD4025 


03100 
03110 




CALL 


VALACU 


•VARIABLE'S VALUE* >ACCUK . 


BB83 


3AAF40 


0312B 




LD 


A,(VTFLAG) 


•GET VARIABLE TYPE MARKER 


BB86 


FE03 


03130 




CP 


3 


•IS IT A STRING? 


BB88 


2B0B 


03140 

03150 




JR 


Z, STRDSP 


•GO TO STRING ROUTINE 


BB8A 


CDBDBF 


03160 




CALL 


ACUSTR 


•TURN VALUE INTO STRING 


BB8D 


CD752B 


03170 




CALL 


PRINT 


•AND PRINT IT 


BB9B 


CO4900 


03180 


END 40 


CALL 


WAITKY 


•WAIT FOR KEYSTROKE 


BB93 


18A5 


03190 
03200 


; 


JR 


END10 


•AND REPEAT 


BB95 


DD2A2141 


03210 


STRDSP 


LD 


IX,(4121H) 


•IX » STRING'S VARPTR 


BB99 


DD4600 


03220 




LD 


B,(IX+0) 


•B- STRING LENGTH 


BB9C 


DD6E01 


03230 




LD 


L,(IX+1) 


•MSB OF ADDR. 


BB9F 


DD6602 


03240 




LD 


H,(IX+2) 


*HL-->STRING 


B3A2 


CDA7BB 


03250 




CALL 


PRTSTR 


•print the string 


BBA5 


18E9 


03260 
0327e 




JR 


END4C 


•AND 60 


3BA7 


To 


03280 


PRTSTR 


LD 


A,B 


•GET STRING LENGTH 


BBA8 


37 


33290 




OS 


A 


•SET FLAGS 


BBA9 


Ce 


03300 




RET 


z 


•RETURN IF NO LENGTH 


BBAA 


7E 


03310 


PRTll 


LD 


A, (HL) 


•GET CHARACTER 


BBAB 


CD3A03 


C3320 




CALL 


PRINTl 


•AND PRINT IT 


BBAE 


23 


C3330 




INC 


HL 


•bump POINTER 


BBAF 


10F9 


G334B 




djn: 


PRT10 


•LOOP UNTIL DONE 


BBB1 


C9 


03350 
03360 
C3370 




RET 




•RETURN TO CALLER 


BBB2 




03380 


ASCPRT 


BQU 


S 


PRINT HL VAI. ON SCREEN 


BBB2 


EB 


0339B 




EX 


DE,HL 


SAVE HL REG. 


BBB3 


CD2SBB 


03400 




CALL 


PL'SHAL 


SAVE REG. 1 ?. 


BBB6 


EB 


03410 




EX 


DE,HL 


RECOVER ORIC HL VALUE 


BBB7 


CD9A0A 


03420 




CALL 


IILACUM 


HL = => ACCUMULATOR 


BBBA 


CDCCOA 


03430 




CALL 


AC I MSN 


ACCUM INTO SINGLE PREC. 


BBBD 


CDBDOF 


03440 




CALL 


ACUSTR 


MAKE ACCUM INTO STRING 


bBC0 


23 


03450 




I J1C 


HL 


SKIP LEAD I TIC SPACE 


BBC1 


CD752B 


03460 




CALL 


PRINT 


PRINT VALUE 


BBC4 


CD2EBB 


03470 




CALL 


POPAI. 


RESTORF REGS. 


BBC 7 


C9 


03480 
03490 

1^3500 


1 


RET 










03510 


; Now c 


able, 


cCi;sai)0 ( & auLfpr:: 








03520 










BBC8 


56 


03530 


.'ISC- 


DEFil 


'Variable Naxe or -.ENTER • ' ;* 


BBE1 


00 


03540 
03550 




DEFB 


00H 


END OF MSG MARKER 


BBE2 


25 


03560 


TYPES 


DEFB 


*» ' 


LIST OF VARIABLE TYPE 


BBE3 


24 


03570 




DEFB 


•S' 


MARKERS 


BBE4 


21 


03580 




DEFB 


' ! ' 




BBE5 


0000 


03590 




DEFW 


00H 


PAD WITH 3 SPACES 


BBE7 


00 


03600 




DEFB 


H0H 




BBE8 


23 


03610 
03620 




DEFB 


*# ' 




0014 




B3630 

33640 


VARBUF 


DEFS 


20D 


•BUFFER FOR VAR. NAME 


40 3 




33G50 
33660 


SCRBUF 


DEFS 


400K 


! UFFFP FOR JJCPF.EN 


C332 




03670 
03680 


CRSBOP 


DBFS 


21! 


BUFFER FOR cursor POSH 


OrFF 


FF 


03690 

03733 


FLAG 


DEFB 


IPfi 


••RECURSION FLAG 


B9C5 




03713 




en." 


SETUP 


■END OF PROGRAM 


23003 Total L 


trots. 











LOOP 



LD 


A,(3BFFH) 


;LOOK FOR KEYSTROKE 


OR 


A 


;SET FLAGS 


JR 


Z.LOOP 


;LOOP UNTIL STROKE FOUND 


LD 


A,R 


;ELSE GET R VALUE 


AND 


7FH 


;MASK OUT BIT 7 

;A HAS RANDOM NUMBER 



Program Listing 2. Trigger routine for reading the R register. 



First, generating a random number is 
simple on a Z80-based machine. The 
Z80 uses the R register internally to 
signal memory refresh cycles. During 
the decoding and execution of every 
machine-language instruction, Z80 in- 
crements the R register, places it on the 
address bus, and generates a memory 



refresh signal. Since this occurs while 
the Z80 is processing a program instruc- 
tion, it takes no extra execution time 
and is generally transparent to the run- 
ning program. 

If, at an unpredictable time, the Z80 

reads the R register, its current value is a 

random number. For the read's time to 
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be truly unpredictable, some event must 
trigger it, that, even if repeated fre- 
quently, would take much longer than 
several machine cycles to occur. One 
such triggering event might be a key 
pressed by the computer operator. 

Try the following experiment to see 
how the computer generates random 
numbers. Take a digital watch that has 
a stopwatch function and can record 
hundredths of a second. Start the 
watch, wait a moment, and then press 
stop. Record the digit in the hundredths 
column. Now try to repeat the experi- 
ment and stop the watch with the same 
value in the hundredths column. Slow 
human reflexes combined with the stop- 
watch button's resistance make the 
digital stopwatch a reasonable random 
number generator for numbers between 
zero and 9 in the hundredth's column. 
No one could purposely stop the watch 
with the same digit showing each time. 

The Z80 updates the R register much 
more frequently than the relatively slow 
hundredths of a second display on a 



BIBLE 
HIGHLIGHTS I 



Highlights of the Bible for 
children, kindergarten through 
fourth grade. 

Christian learning through 
animated Bible stories, games 
and quizes. 

Covers CREATION. JEWISH 
TRIBES AND LIFE OF CHRIST 



• A computer software package 
for TRS 80 Models III and IV 
Total program over 70k bytes. 7 
sections each less than 16k 

• Specify tape cassette or diskette 



Price $19.50. Postpaid. 
Satisfaction guaranteed. 



Send check or money order to: 
STAR SOFTWARE CO., 

DEPT M80 

2315 WATERBYST 

WESTLAKE VILLAGE 

CA 91361 - 43 



digital watch. Because bit 7 of the R reg- 
ister never changes (you can set that bit 
by loading a value into R), reading the 
R register at random times produces a 
truly random number between zero and 



"The Z80 updates 

the R register 

much more frequently 

than the. . . display 

on a digital watch. " 



127. By pressing a key, you can trigger a 
read, and the code would look some- 
thing like Program Listing 2. 

When you execute the Basic com- 
mand Random, it also uses the R regis- 
ter, but in a different manner. The en- 
tire code for RANDOM is: 



LD 


A.R 


;GET CURRENT R 
VALUE 


L.D 


(40ABH),A 


;SAVE IT 


RET 




;END OF ROUTINE 



The exact instant when Random is exe- 
cuted is certainly unpredictable: It de- 
pends on your loading a program that 
contains the Random command, typing 
RUN, and pressing the enter key. The 
only mystery in those three lines of code 
is why the value is stored in 40AB hex. 

The RND function in Basic produces 
pseudo-random numbers. The values 
produced seem random, but you could 
easily predict the next random number 
if you knew the present state of the 
computer. Pseudo-random numbers 
are generated by taking a "seed" value 
and performing a specific series of 
arithmetic operations on that value. 
The new seed value becomes the new 
pseudo-random number. 

The computer stores the random 
number seed in both the Models I and 
III at memory locations 40AA hex, 
40AB hex, and 40AC hex. The specific 
algorithm used to generate each succes- 
sive seed is unimportant here; what is 
important is that if you know the cur- 
rent seed value and the algorithm, you 
can accurately predict the next pseudo- 
random number. In some types of mod- 
eling, it's important to be able to use the 
same set of random numbers repeatedly 



in a program to test various hypotheses. 
To see how such a program might oper- 
ate, run the following: 

10 FOR I = 1 TO 5 
20 POKE 16554,1 
30 POKE 16555,2 
40 POKE 16556,3 
50 FOR J = 1 TO 8 
60 PRINT RNDOOO), 

70 NEXT J 
80 PRINT 
90 NEXT I 
100 GOTO 100 

Lines 20, 30, and 40 establish the cur- 
rent seed value, thus determining the 
series of pseudo-random numbers gen- 
erated. 

It should be clear now how the Ran- 
dom command operates. It takes a truly 
random value — the current value in R — 
and uses it to re-seed the pseudo-ran- 
dom number generator. The software 
pseudo-random number generator al- 
ways generates the same series of val- 
ues; the computer uses the Random 
command to start that series at a ran- 
dom spot on the list. The total list of 
pseudo-random numbers is long 
enough that you will probably never 
have a program that will notice a repeti- 
tion of values. 

If you wish to generate your own 
pseudo-random numbers in machine 
language, you'll need to do some re- 
search about different pseudo-random 
algorithms. You will find a great deal of 
disagreement among the experts about 
which algorithm is best, and what con- 
stitutes a truly random pseudo-random 
number (if such a beast exists). The 
ideas are interesting, but the mechanics 
soon become extremely complex. 

Authors' Forum 

As I mentioned last month, readers 
who subscribe to CompuServe may take 
part in open discussions of topics cov- 
ered by "The Next Step." GO PCS-117 
to the Software and Authors Special In- 
terest Group (SASIG) and leave your 
questions or comments addressed to me 
on the message board. Feel free to join 
in any discussions started by other 
readers. I 



Write to Hardin Brothers at 280 N. 
Campus Ave., Upland, CA 91786, or 
contact him through CompuServe. His 
e-mail address is 72165, 735. 
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Telengard: How low can you go? 



We've created a subterranean monster. Fifty 
stories low. 

That's the number of levels in the TELENGARD 
dungeon. 

Each labyrinthine level holds hundreds ol dark chambers 
and tomb-like corridors for the mighty adventurer to ex- 
plore. It goes without saying that a shifting collection of 
hideous monsters with unpredictable behavior patterns can 
make life in the TELENGARD maze quite interesting — and 
frequently quite short! 

Using wits, magic and true grit, your character delves 
deeper and deeper into the depths of TELENGARD in this 
realtime fantasy role-playing game. Available on cassette 
for Commodore* 64, Atari" Home Computers (40K), 
TRS-80* Mods. I /III (32K) and PET' 2001 (32K) for a 
ghoulish $23.00. 48K diskettes for Apple* II, Atari* , Com- 
modore' 64 and TRS-80* available also, for $28.00. 

AND FOR THOSE WHO DON'T DIG UNDERGROUND GAMES . . . 
There's B-l NUCLEAR BOMBER, a nail-biting solitaire simulation 
of a manned B-l on a mission over the Soviet Union. Your plane is 
equipped with six Phoenix Missiles, a one megaton warhead and 
orders to retaliate! Cassette lor Commodore 64, Atari Home Com- 
puters (32K), TI99/4fir4A (16K), VIC-20(16K). Timex/Sinclair 1000 
(16k), and TRS-80 Mods. I/Ill (I6K) are available for an explosive 
$16.00. Diskette versions for Apple (48k) TRS-80 (32k), Atari (24k) 
and IBM (48k) just $21.00. 

B-l 

NUCLEAR 
BOMBER 



M M- WAR: Defend your country by massive espionage efforts, or 
by building jet fighter bombers missiles, submarines and ABM's. 
Your cold and calculating computer will choose its own strategy! 
Cassette for Commodore 64 VIC-20 ( 16f\), TRS-80 Mods. I/Ill (16M 
and Atari home Computers just $16.00. 

FOOTBALL STRATEGY: Animated action on a scrolling field. A 
head-to-head challenge or solitaire as you select the best offensive 
or defensive plays in response to your opponent. Commodore 64. 
Atari home Computers (32k) and TRS-80 Models l/lll/IV (16k) 
cassette for $16.00. Atari (32k), IBM (64k) and TRS-80 Models 
l/lll/IV (32k) diskettes available at $21.00. 

T.G.I.F.: Thank Goodness It's Friday! Avalon Mill s new party game 
for one to four players recreating an often-not-so-typical week in 
the lives of the working class. Half the fun is just making it from 
Monday to Sunday. Commodore 64 Atari home Computers (40k) 
cassette for a meager $20.00. Atari diskette (48K) for $25.00. 

AVAILABLE WHEREVER GOOD COMPUTER GAMES ARE 
SOLD or call Toll-Free: 1 (800) 638-9292 for the name of a 
store near you. Ask for Operator C. 

® 




a Division of the 

Avalon Hill Game Company 

4517 Harford Road, Baltimore. MD 21214 U.S.A. Farth •M 

1 radcmarhs of Tandy Corp. Apple Computers Commodore business Machines Warner 
Communications and International Business Machines 
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by Scott Norman 



I've got good news and bad news. The 
bad news is that this will be the last 
edition of The Color Key; the good 
news is that next month, I'll be taking 
over the Re:FLEX column in HOT 
CoCo and expanding its coverage to in- 
clude both FLEX and OS-9 software. 

While most of the previous action in 
the area of alternative operating systems 
centered on FLEX, every indication is 
that the long-delayed OS-9 software will 
have a broad range of supporting appli- 
cations programs for the serious user. 

I recently spent an afternoon with 
Sue and Paul Searby of Computerware, 
discussing some of their plans for new 
products. It comes as no surprise that 
they will market a rather complete line 
of OS-9 business software, and you can 
bet that other suppliers will do the 
same. 

Since that's where much of my inter- 
est lies, I'm looking forward to working 
with and writing about the new system. 
1 expect to be in the thick of it by the 
time you read this column. 

And by the way, the fact that Radio 
Shack is advertising Basic09 for the 
Color Computer is the best news to 
come out of Fort Worth in a while. I 
can hardly wait. 

Unfinished Business 

Some bugs are subtle and some are 
just plain dumb, and one of the latter 
kind has surfaced in my Expgraph pro- 
gram (September 1983, p. 30). Let's see 
if I can make amends. 

You might recall that Expgraph cre- 
ates a high-resolution graph of expendi- 
tures as a function of time for periods of 
up to a year. The program automati- 
cally scales the dollar axis to maximize 
the resolution of the graph, while 
restricting the major interval to an in- 
tegral multiple of $2, $5, or $10 times 
some power of 10. It also extrapolates 
the rate at which you spend money, so 
the user can compare the prediction for 
year's end with a budget target. 

The bug appears in the routine that 
converts the value used for the expendi- 
ture-axis interval to a string in prepara- 
tion for drawing it on the high-res 
screen. As I learned when working with 
one particular set of project cost fig- 
ures, I should have included code to 
force this interval to be an integer. 
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As things stand, the program is ca- 
pable of arriving at an interval of, say, 
$50000.01. This in turn would appear 
on the graph, sans decimal point, as a 
scale factor: $5000001. Very sloppy, to 
say nothing of downright wrong. 

The solution is simple enough. 
Change the first half of Expgraph line 
1 140 from 

C$ = STRS(C) 



to 



C$ = STR$(INT(C)) 



to enjoy classy displays. 
Sorry about that. 

What Do You Really Use? 

A number of people have written 
with similar questions: How can I pos- 
sibly use all the software I review? Why 
does anyone need 15 data file managers, 
half a dozen word processors, and three 
or four spreadsheets? In fact, do I use 
the stuff at all, or do I give it a quick 
once-over before consigning it to the 
wastebasket? 

Fair enough. I confess that until I 
began to get some reader feedback, it 
never occurred to me that people would 
think everything I reviewed favorably 
I'd automatically add to my own collec- 
tion of everyday tools. 1 should be flat- 
tered, I guess. 

Actually, my correspondents are quite 
right; limits exist to what anyone really 
needs, and limits to what anyone can 



profitably use. It makes little sense to 
spend all your time learning new com- 
mand sequences so you can have the 
latest wrinkle in a particular type of 
program — unless you need that wrin- 
kle. Therefore, my standard software 
library changes fairly slowly. 

At the same time, I think it's incum- 
bent on me to thoroughly wring out the 
products I review. I try to spend enough 
time with each program to explore all its 
major features. 

That takes a fair amount of time, and 
occasionally it isn't possible to exercise 
every option of a complex product. 
Naturally, when reviewing software I 
only report on the features and com- 
mands that I have actually used. 

I rely on a fairly standardized set of 
procedures to test the major types of 
programs: word processors, file or 
data-base managers, spreadsheets, and 
so forth. For example, I test spread- 
sheets with some dummy research and 
development (R&D) project budgets, 
departmental salary plans, and IRS 
forms. These simulate my principal 
real-world applications, and give me an 
opportunity to see how each new review 
subject handles a typical set of opera- 
tions. 

I often have to depart from my rou- 
tine to explore novel features of a pro- 
gram, though, and such explorations 
sometimes convince me to add a prod- 
uct to my stable. 

That's how I decided to start using 
Derringer Software's Pro-Color-File 
(P.O. Box 5300, Florence, SC 29502) 
for my heavy-duty data file manage- 
ment. Its particular capabilities for 
computation and report generation ad- 
dress some of my special needs, so I 
thought it worth converting many of my 
files to Pro-Color-File format. 

This involves a fair amount of effort, 
and I certainly wouldn't recommend 
that everyone start from scratch when- 
ever a new program shows up. My point 
is that in trying to keep my reviews hon- 
est, I have the opportunity to be 
tempted to buy more software than the 
typical user. As a result, I probably get 
involved in more file modification and 
rewriting than a sane person would 
tolerate. 

I don't always change every file over 
to accommodate a new product, since I 
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have some duplication in my working 
collection. 

Now I'll answer the question I raised 
as the title of this section. Please re- 
member the strong personal component 
in this business before you write to 
squawk about my choices. I've favorably 
reviewed plenty of software that failed to 
make me switch for my own use. 

I have used Telewriter (Cognitec, 704 
Nob Ave., Del Mar, CA 92014) for the 
bulk of my word processing ever since 
its inception. When the current version, 
Telewriter-64, became available, its 
ability to right-justify text caused me to 



f CoCo users are lucky 

where spreadsheets 

are concerned. " 



abandon my second word processor. 

I previously used Trans Tek's C.C. 
Writer (194 Lock wood Lane, Bloom- 
ington, IL 60108) for anything resem- 
bling formal correspondence, but now I 
had no motivation for continuing with 
two programs for one job. 

Telewriter's new-found ability to 
produce ASCII files doesn't hurt, 
either. Now it's much easier to use aux- 
iliary programs such as spelling check- 
ers; I use Spell 'N Fix (Star-Kits, P.O. 
Box 209, Mt. Kisco, NY 10549). I can 
read and edit files generated by some 
other programs, too. 

The whole topic of file compatibility 
between programs is something of a 
sore spot with me, incidentally, and I'll 
return to it later. 

I've already mentioned using Pro- 
Color-File for heavy file management. 
This is an area in which I indulge myself 
a little; I have two other file managers in 
my household. 

I still use Trans Tek's C.C. File for 
casual, unstructured applications like 
my file of addresses and phone numbers 
of CoCo vendors. Some of the entries 
include reminders of what the vendor 
produces, others do not, and the whole 
thing is gloriously loose. Ditto for my 
family's file of favorite restaurants. 
C.C. File's lack of structure and limited 
command set are especially welcome 
since I call on it sporadically without 
reference to the documentation. 



I also have specific applications for 
Radio Shack's Color File. For some time, 
I have used it to maintain a text file I call 
COCOFACTS, which contains notes 
about various aspects of Color Com- 
puter operations. 

This is where I keep track of all the 
PEEKs and POKEs I use in program- 
ming. How else would I remember 
where the Next-Data-Item pointer is? 
Color File's two-level indexing scheme 
and on-screen prompts seem right for 
these applications. 

In principle, I could probably handle 
all my file management chores with one 
program. I have used Homebase 
(Homebase Computer Systems, P.O. 
Box 3448, Durham, NC 27702) and can 
vouch for its ability to handle data and 
text files. 

The trouble is, I've become comfort- 
able with my existing three-tier system 
and don't feel like adding a fourth com- 
ponent or translating all my data files. 
The urge I had to unify my word pro- 
cessing is lacking here. 

CoCo users are lucky where spread- 
sheets are concerned. For a while the 
Spectaculators, disk and ROM pack, 
were pretty much the whole story, and 
their capabilities were relatively limited. 
Then Trans Tek's C.C. Calc acted more 
like VisiCalc et a/., but was hampered by 
being written in Basic. 

Then this spring Elite Calc (Elite 
Software, Box 11224, Pittsburgh, PA 
15238) became available, and suddenly 
unmodified CoCos have a full-blown 
spreadsheet. In the meantime, FLEX 
users could call on the big-league power 
of Dynacalc (Computer Systems 
Center, 13461 Olive Blvd., Chesterfield, 
MO 63017). 

I've used all four, and still have both 
Elite Calc and Dynacalc files in abun- 
dance. I could happily switch to 100 
percent use of either program, but other 
considerations (see the end of this col- 
umn) make me want to stay sharp on 
both. That's not too tough; Elite Calc 
has a simple command syntax, while 
Dynacalc's resembles that of Super- 
Calc, the CP/M-based spreadsheet I 
use regularly at my office. 

Those are my big guns— the pro- 
grams I use almost daily. Of course, a 
lot of utilities come into play for special 
purposes: Master Control (Soft Sector 
Marketing, 6250 Middlebelt, Garden 
City, MI 48135) and Colorkit (Arizin, 
P.O. Box 8825, Scottsdale, AZ 85252) 
to name two. 
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I've also been experimenting with 
several math and business graphics 
packages and expect to become a steady 
user of one or more, but it's early to de- 
clare my allegiance. My reviews have 
been appearing here and in HOT CoCo 
on a fairly regular basis; look for more 
on graphics over the next two or three 
months. 

Odds and Ends 

I'd like to return to the question of 
the Color Computer versus other se- 
rious 8-bit machines. The CoCo pro- 
grams I use (and many of their major 
competitors) are the equals of the bet- 
ter-known applications programs for 
other computers. I use CP/M software 
almost daily, but that doesn't mean it 
overwhelms me. 

Both Elite Calc and Dynacalc are bet- 
ter in some respects than early versions 
of Supercalc, which is itself arguably 
better than VisiCalc. It has taken the 
newer Supercalc 2 to incorporate some 
features of the CoCo programs: the 
ability to sort a spreadsheet by row or 
column data, for example. 

Telewriter-64 is far easier to use than 
WordStar, and does a perfectly satis- 
factory job on anything but the most 
specialized text processing. For that 
matter, Super Color Writer (Nelson Soft- 
ware Systems, 9072 Lyndale Ave. 
South, Minneapolis, MN 55420) can 
take on WordStar, too. 

As for file and data-base managers, I 
haven't done enough work with CP/M 
material to form a definite opinion. I 
know that dBase II is very powerful but 
quite complex — more complex than 
Pro-Color-File, Homebase, or several 
other top CoCo file managers. The 
CP/M program might do all kinds of 
exotic tricks, but for the moment I feel 
that CoCo users have some competitive 
software at their command. 

What troubles me, though, is that it's 
a real chore to use the output of one 
program as the input to another. Life 
would be a lot simpler if I could pop an 
Elite Calc data file into Radio Shack's 
Disk Graphics to produce a bar chart, 
or if I could get such a chart into a 
Telewriter report. 

Of course it's possible to write a con- 
version program for almost any specific 
application, but wouldn't it be nice if 
CoCo programs talked to one another 
with less fuss? 

Some CP/M software does better: 
You can use WordStar with auxiliary 
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MEMORY EXPANSION SYSTEMS. SPEED UP BOARDS. PORTABLE TAPE DRIVES. 
PRINTERS, CP M 2.2 for MOD IV. etc 

HOLMES IS YOUR SOURCE FOR 
COMPUTER PERIPHERALS 

More detailed Product Information is available upon request Call or write today lor a detailed 
brochure, to place an order or for technical inquiries. Our HOLMES 'N 80" 

buletin board is on line 24 hrs. a day Call (801 ) 263 1 103 (300 baud) 



-NEW PRODUCT UPDATE- 

1 CP M for the Model IV 

2 Portable 100 Micro Drive, and 8K RAM Modules 



Thr following are registered r remarks TKS U !KMm )S DOSPI I IS CP M I ICSD Pascal. 
IBM PC. XEROX. Z 100 OSBORNE I KAYPRO II 



HOLMES 

ENGINEERING. INC 

5 I 75 Green Pine Drive. Sail Lake City. Utah 84107 
(801) 2615652 or 24 Hr BBS (801) 263-1 103 
Business hours 8 5 30 MST (Man -Frl ) 
Sat. 10-2 (Sales only) 



Call For Dealer Nearest You 
Dealer Inquiries Invited 

Ont ye.ir w.irr.inly <iti ,ii! prtxtltl '- 
Add shipping handling $5 00 U S and Canada 
All others add IS PftCM subject to change 
wilhout nutlet: 
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programs to prepare indices and foot- 
notes, for example. I don't think this 
desire for well-integrated software is a 
fetish of mine alone. The best feature of 
Apple's Lisa is its elaborate suite of 
business programs, and integrated 
packages like 1-2-3 promise to be huge 
sellers in the IBM PC community. 

Qearly, someone else cares about 
this problem. The existence of a stan- 
dardized operating system helps, and 
maybe the official blessing of OS-9 will 
result in better-integrated software for 
Color Computers. 

Super CoCo 

The 64K Color Computer and the 
Color Computer 2 are now appearing in 
Radio Shack catalogs, and the first 
samples of the Dragon 32 are out. The 
former and the latter have some appeal- 
ing features, but neither is perfect. 

Therefore, I'd like to share a few fan- 
tasies with you and set down some of 
my thoughts for a dream machine. This 
isn't a truly radical proposal, just some 
ideas I'd like to see incorporated into a 
next-generation Color Computer. 

I'll start with a baseline machine hav- 
ing 64K of RAM and the best of the 
full-travel keyboards. Now, how about 
adding an official clock speedup to 1.8 
MHz. Maybe the operating system 
would have to shift in and out of high 
gear for I/O, but this shouldn't concern 
the user. Add an internal muffin fan if 
necessary to preserve IC lifetimes. 



The machine needs a few user-defin- 
able keys like the ones on the Model 100 
and some of today's add-on keyboards. 
I hope software vendors would prepare 
patch areas so you could add customized 
definitions for such keys to their pro- 
grams. One of the things WordStar 
does right is allow control/digit key to 
represent a series of keystrokes, making 
it much easier to enter frequently used 
command sequences. 



"I'd like to 

share. . . my thoughts 

for a dream machine. " 



A baseband video output for use with 
a monitor could be a monochrome sig- 
nal, and would be used primarily for 
word processing and an 80-column 
spreadsheet. The Dragon 32 has base- 
band and RF outputs already. 

I'd like better A/D converters. Eight- 
bit resolution would be nice, to increase 
today's 64 resolvable analog input levels 
to 256. An integral Centronics parallel 
port should go along with the RS-232. 
Let's get serious about printing, and do 
away with the external boxes and PC 
boards. 



I want gold-plated cable connectors 
everywhere. Weak links like the CoCo's 
disk controller connectors aren't charm- 
ing idiosyncrasies; they're embarrassing 
flaws. 

Dedicate a second 6809, with perhaps 
another 64K of its own RAM, to con- 
trol the display. I'm not kidding; at least 
one such machine already exists in 
Japan. It would be great to have this 
kind of power for graphics of all kinds. 
Consider the possibilities of 40 PMODE 4 
pages, for starters. 

One of the nicest things about design- 
ing dream machines is that you don't 
have to worry about cost. 

The End 

It's the end of the road, ladies and 
gentlemen. I've enjoyed writing The 
Color Key, and I hope that many of you 
will find something of interest in the 
new FLEX/OS-9 applications column. 

I don't intend to abandon the rest of 
the CoCo world. One of my major cur- 
rent projects is a book in which I'll treat 
applications software in more detail than 
the column/review format permits. 

With any luck at all, the book will be 
out in the autumn of 1984. The 
publisher is Scott, Foresman. 

In the meanwhile, I'll see you in HOT 
CoCo. ■ 

Contact Scott Norman c/o The Col- 
or Key, 80 Micro, 80 Pine St., Peter- 
borough, NH 03458. 



MaqiCheck can be used for your Personal or Business 
Checking Account. 

It handles up to 8 separate checking accounts and can produce 
Profit & Loss Statements for up to 199 ledger categories. 

MAGICHECK'S OTHER FEATURES INCLUDE: 

• Pay-by-Phone Accounting 

• Check Writing Capabilities 

• Checks can be Divided into Different Ledger Accounts 

• A Listing of your Personal Tax Deductable Payments 

• Extensive Error Correcting Capabilities 

• Automatic Calculation of First Year Depreciation 

• Automatic Calculation of your Investment Credit 

• Divide Deposits into different Sources to Aid Planning 



MAGICHECK 

Is The Reason You Bought 
A Computer ! 

The cos! ° f the MaaiCheck Program is only $30.00. Plus $3.00 
for shipping & handling charges. PA residents add $1.80 for sales 
tax. Call Today 800-528-9900. In PA call 1-215-473-6599. Or 
send your check to: MagiComp, 2710 W. Country Club Rd., 
Philadelphia, PA 19131. Please specify : Modi, Mod 3/4; 
LDOS DOSPLUS, or other operating system. (180K Disk Stor- 
age Required) ^ 527 

THE PERFECT GIFT FOR YOU AND YOUR FRIENDS! 
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Guaranteed to make your TRS-80 Color Computer* siz- 
zle with color, HOT CoCo magazine Ls informative, inter- 
esting, and best oj all just for the Color Computer. You'll 
look forward to HOT CoCo month after month because it 
has something for everyone, from the novice right on up to 
the expert. HOT CoCo gives you: 

•PROGRAMMING TECHNIQUES & TUTORIALS— 
that promise to make you a superior programmer. 

•UTILITIES — to save you time and effort on all your 
routine tasks. 

•EXPERTLY WRITTEN COLUMNS— including 
BASIC, GRAPHICS, FLEX and GAMES. 

•HARDWARE & CONSTRUCTION— ideas on inter- 
facing and enhancing to make building projects a 
breeze. 

•EDUCATIONAL APPLICATIONS— will stimulate 
and encourage imaginative dunking in your child. 

PLUS 

•BUSINESS PROGRAMS— sure to make you a star at 

the office. 
• FEATURES ON COLOR APPLICATIONS— make 

your computer reach its full potential and get your 

money's worth from your machine. 
•BUYER'S GUIDES & PRODUCT REVIEWS-now 

you can stop running around comparing prices and 

products and start running your computer. 
•HOME & HOBBY APPLICATIONS— exciting ways 

to help your computer add enjoyment to your leisure 

time. 
•ANSWERS TO SPECIFIC QUESTIONS— its like 

having your own private consultant— free! 



Join in the color explosion with HOT CoCo today! Take 
advantage of our money saving offer, 12 Issues for $24.97. 
A 13th issue is yours FREE with pre-pay ment (check or 
credit card). Use die attached order form, the coupon 
below, or call toll free 1-800-258-5473. 



JL Xl/i3« I want my 

Color Computer to sizzle 
with color. I understand 
that with payment enclosed 
or credit card order I will 
receive a free issue making a 
total of 13 Issues for $24.97. 
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CHECK/MO DMCD VISA D AE D BILL ME 



card/ 

signature . 

name 

address _ 
citv 



exp. date_ 



state 



zip 



See List ol Advertisers on Page 291 



Canada b Meaco $27.97/1 yr. only, U.S. fundi drawn on US bank. 

Foreign Surface $44.97/1 yr only, U.S. funds drawn on US bank. 

Please allow 6 H weeks for delivery. 

•This offer expires January 31. 1984. 

HOT CoCo • PO Box 975 • Farmingdale NY 11737 

TRS-SO Color Computer I* a trademark of Kadio Shack, a division of Tandy Corp 33DF8 
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SUITE 16 



by Dan Keen and Dave Dischert 



Perhaps the most powerful asset of 
any 16-bit microcomputer is its abil- 
ity to become an office or interoffice 
hub that other terminals can access. Its 
multi-user and multi-tasking capabili- 
ties blur the fine line that separates 
minicomputers from microcomputers. 

Terminals, commonly referred to as 
work stations, are typically less expen- 
sive than complete computer units. 
Using several terminals to tie into one 
host computer allows many people to 
take advantage of the main computer si- 
multaneously. 

The host computer, in its standard 
configuration, has a hard disk drive 
connected to it. All of the terminals can 
access information stored on the same 
hard disk. 

Currently, Radio Shack offers two 
ways to add external remote work sta- 
tions to the Model 16. These network- 
ing systems are called Arcnet and 
Xenix. 

Arcnet 

Arcnet, an acronym for attached 
resource computer network, lets you 
connect up to 255 computers to the 
Model 16. 

The terminals can use all of the pe- 
ripherals connected to the host 
machine. These include both floppy 
and hard disk drives and printers. You 
cannot use the host machine, called a 
file processor, as a terminal. Its key- 
board and video display aren't available 
to the operator. 

Arcnet also runs on the Models II 
and 12. It doesn't require the MC68000 




Arcnet and 

Xenix 

hubbub 



board, but every computer in the system 
must have an Arcnet circuit board in- 
stalled. Have your local Computer 
Center do this. , 

Hubs, similar in function to a TV 
antenna splitter, join the work stations 
and the host machine together. One 
cable connects to a hub's input and pro- 
vides several outputs to feed other work 
stations. Passive hubs let you connect 
together four units up to 200 feet from 
the hub. 

Active hubs boost the data signals 
with internal circuitry so you can place 
terminals as far away as 2,000 feet from 
the hub. Combining many active and 
passive hubs together yields a maximum 
distance of four miles between the far- 
thest work station and the host com- 
puter. 

Obviously, Arcnet is a good choice 
for multi-user applications where work 
stations are located in different 
buildings (such as a college campus). 

The owner of multi-user work sta- 



tions must run the necessary cable wires 
through the buildings. Radio Shack 
computer technicians help with the in- 
stallation of their computers in an Arc- 
net system but you must get an electri- 
cian to prepare the necessary wiring. 

We haven't had the opportunity to 
work with an Arcnet system and wel- 
come comments from readers who use 
one. Our understanding is that it oper- 
ates at a speed of 2.5 million bits per 
second. With that kind of speed you feel 
as if you are the only user on the host 
computer. 

Xenix 

The second multi-user system cur- 
rently available is TRS-Xenix, or simply 
Xenix. In contrast to Arcnet, which is a 
hardware configuration, Xenix is soft- 
ware based and requires no special cir- 
cuit modifications on any of the system's 
microcomputers. Since it uses the 
MC68000 microprocessor, you need a 
Model 16, 16B, 11/16, or 12/16 to run it. 

Unlike Arcnet, the host computer's 
video and keyboard are available as a 
work station. However, you can con- 
nect only three terminals (including the 
host) at one time. The other one or two 
terminals interface by way of the two 
RS-232 jacks on the back of the host 
computer. A null modem adaptor does 
the job along with RS-232 cables. 

Under Arcnet, each work station is a 
complete computer, not just a data ter- 
minal. Xenix requires that only the host 
machine be an independent computer. 

As of this writing, you need a hard 
disk drive to run the system, but a floppy 



Assembly-Language Comer 



Prior to displaying any information 
on a video screen, it's usually nec- 
essary to clear the screen and position 
the cursor at a point where you want 
to begin printing. This month we take 
a look at some of the supervisor rou- 
tines available to perform these screen 
formatting functions. 



The video character generator cir- 
cuit in the Model 16 is identical to that 
of the Models II and 12. Therefore, all 
graphics characters and ASCII codes 
are compatible. 

Normally the screen format of these 
computers gives us 80 character posi- 
tions horizontally and 24 vertically. 



The video generator is capable of print- 
ing characters in a larger mode. While 
the vertical count remains 24, you can 
double the width of each letter. Thus, 
in the large character mode, a maxi- 
mum of 40 letters fits on a horizontal 
line. 
Also at our disposal is an inverse 

A-L Comer continued on next page 
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version is in the works. Naturally such a 
version is limited due to less disk space 
on a floppy. 

Xenix's basic structure builds around 
Western Electric's popular and estab- 
lished Unix operating system. Xenix 
comes from a thoroughly tested pro- 
gram in the field for 10 years. 

Since more than one person can work 
on the same disk file at the same time, 
imagine the disaster if two people try to 
write the same record to a file simulta- 
neously. Fortunately, Xenix designers 



took this into consideration. The pro- 
gram doesn't allow two users to write 
information to the same record and ac- 
cidentally lose data. 

Xenix divides the computer's RAM 
into separate sections for each user. In 
this way, each of the two or three users 
can run programs independently. One 
can run payroll while another works on 
accounts receivable, for instance. Xenix 
runs with a minimum amount of 256K 
RAM. However, certain combinations 
of programs run simultaneously may 



require 384K or even 512K. 

Both Arcnet and Xenix have their 
pros and cons. Your choice depends on 
your business' s particular needs. Xenix 
doesn't require you to make any hard- 
ware modifications to existing com- 
puters; Arcnet does. But Arcnet handles 
up to 255 computers; Xenix accom- 
modates only three. With Xenix, the 
remote work stations need only be data 
terminals such as Radio Shack's Model 
DT-1. Under Arcnet, each work station 
must be a computer. ■ 



A-L Corner continued from previous page 

video option. Normally the back- 
ground of the screen is unlit or black 
and the letters light up (green or white, 
depending on your machine). You can 
reverse this to cause the background 
surrounding a letter to light up and the 
letter itself to appear as a darkened 
area within the block. 

Built within the disk operating sys- 
tem is a routine (referred to as a super- 
visor call) that you can use to establish 
the size of the letters and the nor- 
mal/inverse printing font. 

Placing a zero into byte-offsets 6 
and 7 of the SVC block (a buffer area 
you set up to pass values to the DOS 
routine) switches the video size to the 
40-character-per-line mode. A value 
of 1 placed there produces 80-charac- 
ter lines. In byte-offsets 8 and 9, a zero 
indicates inverse video and a 1 indi- 
cates normal printing. 

The supervisor number that identi- 
fies this routine from other supervisor 
calls is 7. Always place the identifying 
supervisor number in byte-offset zero 
of the buffer. The set-up to call this 
routine looks something like this: 



LDA 


.AO.SVC BLOCK 


MOVW 


@A0,/T7 


MOVW 


6@A0,#1 


MOVW 


8@A0,#1 


BRK 


10 


RET 




SVC BLOCK 




RDATAB 


32,0 



Use the move-a-word (movw) com- 
mand to load the necessary values into 
the buffer area. This is an indirect ad- 
dressing mode where register A0 stores 
the address pointing to the location of 
the SVC block buffer. 



With the values you use in the ex- 
ample, prepare a normal screen for- 
mat — 80 characters per line and no in- 
verse video. 

Supervisor call 7 automatically per- 
forms two other functions. It clears 
the screen (similar to the Basic CLS 
command) and it homes the cursor — 
moving it to the top leftmost position 
on the screen. 

You can use another supervisor 
routine to clear the screen. This is call 
number 8 which sends a character to 
the video display. Examine the ma- 
chine's ASCII code chart in the own- 
er's manual and note that the decimal 
number 30 is a control code for clear- 
ing the screen. By sending this ASCII 
code to the routine that prints a char- 
acter on the display, you can clear the 
screen. However, unlike the last rou- 
tine, this doesn't set up the inverse/nor- 
mal and 80/40 screen formats. 



LDA 


.A0.SVC BLOCK 


MOVW 


@A0,#8 


MOVW 


6@A0,#30 


BRK 


m 


RET 




SVC BLOCK 




RDATAB 


32,0 



Positioning the Cursor 

Before printing any letters or graph- 
ics characters on the video display, 
you may want to position the cursor at 
a specific point to start printing. Su- 
pervisor call number 10 lets you place 
the cursor at any printable location on 
the screen. 

You must move values for the hori- 
zontal (x) and vertical (v) coordinates 
into the SVC buffer area to instruct 
the computer as to the row and col- 



umn on which you desire to place the 
cursor. 

Place the value for the row position 
in byte-offsets 6 and 7. The row posi- 
tion refers to the number of lines 
down from the top of the screen. Off- 
sets 8 and 9 store the column position. 
This is the number of character posi- 
tions from the left-hand side of the 
screen. 

Since there are 24 lines down the 
screen and 80 positions across, halving 
these values to 12 and 40 places the 
cursor in the center of the screen. 



LDA 


.AO.SVC BLOCK 


MOVW 


@A0,#10 


MOVW 


6@A0,#12 


MOVW 


8@A0,#4O 


BRK 


m 


RET 




SVC BLOCK 




RDATAB 


32,0 



TAXPAL 



Videotronics of Sarasota, Inc. 

4086 Honolulu Dr. - Sarasota. FL 
813-953-2332 33583 

The most complete and corrective tax 
program seen yet. Will do schedules: 
1040, A. B, C. D, 4797, SE, G 

Automatic transfer ot figures from one form to another 
Make corrections ana watch the changes ripple down 
the lines to readjust all affected figures. 

Calculates Taxes Automatically. Also 
does income averaging. All with print- 
out on IRS forms, or use our overlays. 



Model 1/111 

Disk 

Updates 



48K 
199.95 
110.00 



With instructions 



.- Sm> Ust of Admnisars on Page 291 
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Figure I. Monty and Eric play Scrabble. 
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Monty Plays Scrabble 
Tandy/Radio Shack 
One Tandy Center 
Fort Worth, TX 76102 
Model m, 32K 
One disk drive 
Back-up limited 
$34.95 

by Eric Maloney 

80 Micro staff 

Monty Plays Scrabble isn't going to 
win any tournaments. But it's 
good enough to give the average player 
a run for his money, and challenging 
enough to give the experienced player a 
stimulating practice partner. 

To play Monty, you need a Scrabble 
board and a good dictionary. Either 
you or the game can pick the tiles. The 
program provides a board on the 
screen, showing you where it placed its 
word and letting you indicate where you 
want yours. 

Among other features (see Table 1), 
Monty gives you four skill levels, keeps 
track of the score, and lets you save a 
game in progress. A game takes about 
one hour and 40 minutes to play. 

But enough detail. What kind of 
Scrabble does Monty play? 

At first, I was disappointed. I won 
my first game by the depressing score of 
38 • 80 Micro, December 1983 



468 to 288, and took the next five as 
well. The average tally was 431 to 302. 
This, I thought, is no way for a com- 
puter with a 54,000-word vocabulary to 
perform. 

But Monty surprised me in game sev- 
en, reeling off three seven-letter words 
en route to a 440-383 win. And while it 
hasn't beaten me since, it has occa- 
sionally given me a game worthy of a 
capable human partner. 

A Typical Game 

The best way to demonstrate 
Monty's abilities is to recount an actual 
game. This one is our eighth, and is fair- 
ly typical. We play at the highest 
(Scholar) level, and Monty goes first. 
Figure 1 shows the final board. 

1. My letters: FTAODRT. Monty 
starts off with CAY, whatever that is. I 
counter with FART. (So who says 
Scrabble has to be polite?) "Good 
play!" Monty responds. He says that a 
lot, even for words like IT. Score after 
one turn: 16-26, my lead. 

2. Letters: *IINODT. Some good 
possibilities here — DICTION comes 
immediately to mind. I wait patiently 
while Monty thinks; it takes him about 
three minutes of disk I/O to make a 
move. 

After much grinding and gnashing, 
he plays MOAN, MAY, OR, and AT 
for 22 points. Not too bad. Since I have 
no place to put DICTION, I play 



DICTATION instead for a quick 65. 
"Very great word!" Monty exudes. 
Monty might have an elephantine 
memory, but he has yet to learn how to 
use adverbs well. Score: 38-91 . 

3. Letters: ETEEOID. Monty's re- 
venge. I need to get rid of some of these 
E's. Too bad EDICTATION isn't a 
word. What's taking Monty so long? I 
could spin off a game of Galaxy Inva- 
sion in the time he needs to think. 

"Aha!" he exclaims. That must 
mean he's done. He lays down GAP, 
AD, and PI for 19, and opens up the tri- 
ple word score. Unfortunately, I can't 
use it for anything. I play DECEIT and 
GAPE for 23. Score: 57-114. 

4. Letters: RHQPOOE. Stuck with 
the Q— and with no U in sight. "I'll be 
ready soon," says Monty. I've heard 
that line before. Think I'll go change 
my oil. He finally plays BUM, BO, and 
UN. Wait a minute— UN??? Monty's 
played some weird words, but this one's 
a bit too much. Seeing, however, as I 
don't have an official Scrabble dic- 
tionary, I let it go. 

Figuring that two can play the weird 
word game, I put down HOOPER, 
HUN, and OM. But wait— Monty 
challenges OM! Is it a word? he asks. I 
look it up in my Webster's, and sure 
enough, there it is. "Monty regrets his 
error," he says. Score: 76-160. 

5. Letters: IEARGDQ. Monty loses 
his turn for an unsuccessful challenge. 
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Taking full advantage, I play AGED, 
BOA, and HUNG for 25. Score: 
76-185. 

6. Letters: IEARGLQ. This rack 
looks suspiciously familiar. Monty 
starts thinking. I go out for dinner and a 
drink. I return to find that Monty has 
played BUNG. Isn't he a character in 
The Wizard of Id? I play GLARE. 
Score: 97-207. 

7. Letters: OKSVXQI. Talk about a 
constipated rack. Monty plays TOWEL 
for 26. I counter with XI, XI, and IT 
for 31. XI is one of my favorite Scrab- 
ble words, and I'm delighted to be able 
to play it twice on one move. Score: 
123-238. 

8. Letters: OKSVTQC. It's getting 
worse. Monty plays IDS and XIS for 
18. 1 put down LOCK for 30. Vowels! I 
need vowels! Score: 141-268. 

9. Letters: ERSVTQE. That damned 
Q! Monty plays RUIN for 15, I can't 
take it any more and exchange my Q, 
getting an A in return. With my luck, 
I'll pick up the Q again later. Score: 
156-268. 

10. Letters: ERSVTAE. Monty plays 
YARNS for 24. Getting rid of the Q 
pays off— I play AVERTERS for 62. 
Score: 180-330. 

11. Letters: OLIIEQW. There it is 



1 


Exchange tiles 


2 


Pass or forfeit 


3 


Save game to disk 


4 


Current totals 


5 


Check your tiles 


6 


Change skill level 


7 


End the game 



Table 1. Monty plays scrabble options. 



again. Monty plays JEE for 26. I play 
WILIER for 18. Score: 206-348. 

12. Letters: VIZNOOQ. I shout at 
the Q to stop torturing me. Monty dives 
into the well of contemplation; I go 
reshingle the house. He finally puts 
down HATSFUL for 26. He picks up 
the remaining tiles, thus sticking me 
with the Q for all eternity. I play AZO 
for 32. Score: 232-380. 

13. Letters: NVIOQ. Monty plays 
EASE, ETA, DOS, and WE. DOS! 
This is too much. I play VIOL for 14. 
Score: 257-394. 

14. Letters: QN. The end is near. 
Monty goes through his usual gastroin- 
testinal tremors and lays down VI*A 
for 12 points. That, as they say, is that. 



Final score: 280-383. 

Final Comments 

Clearly, a huge vocabulary doth not a 
Scrabble player make. You need to be a 
good strategist, too. Monty is not; it is 
apparently programmed to go for the 
highest possible point total, whether 
that means throwing away an S, break- 
ing up a potential seven-letter word, or 
opening a triple-word score for its 
opponent. 

Monty wins an occasional game, but 
it is through brute force rather than 
cunning. 

Still, you don't need a great opponent 
to exercise your own Scrabble skills. 
Monty gives you enough of a challenge 
to keep you from getting bored. And it 
sends you to your dictionary enough 
times to increase your own vocabulary. 
In recent games, it has spun off such 
words as indium, llano, uta, rabbet, 
vug, aff, erne, and dommir. 

One final note: Monty Plays Scrabble 
allows you only one back-up. This is a 
serious problem with a program that ac- 
cesses the disk some 200 times per game. 
Monty could have a short life if you 
don't figure out a way to break the pro- 
tection scheme and give yourself a full 
supply of copies. ■ 
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The Statistician 
Quant Systems 
P.O. Box 628 
Charleston, SC 29402 
Models I, n, and in 
$125 

by John Dunkelberg 

The Statistician is an excellent 
statistical and forecasting system 
that contains a wide variety of simple and 
sophisticated statistical analyses. The pro- 
gram is especially useful for business 
forecasting and complex statistical 
analysis. The Statistician is also an ex- 
cellent tool for an instructor in an elemen- 
tary or advanced statistics course. 

The Statistician is completely menu 
driven so it's easy to use, even for a 
microcomputer novice. Thirty minutes 
after reading the documentation, I was 
running my first regression. 

Multiple Regression 

One of my principal reasons for ac- 



quiring The Statistician was the multiple 
regression package. The Statistician 
contains five different regression pro- 
cedures including Stepwise, Ridge, 
Backward Elimination, and All Subsets 
regressions. I haven't seen Ridge, 
Backward Elimination, or All Subsets 
procedures in any other statistical 
package for micros. 

You can create large models with up 
to about 50 independent variables. This 
is enormous, especially when compared 
to the Radio Shack statistical analysis 
program that only allows five indepen- 
dent variables. 

The output (see Table 1) closely resem- 
bles that of mainframe packages and in- 
cludes t values for the individual coeffi- 
cients as weD as their standard errors. 
Also, the program includes the Durbin 
Watson statistic, which is useful in resid- 
ual analysis and is found on few other 
statistical programs for microcomputers. 

You can list or print the variance/ 
covariance and sums of squares matrix 
as well as the correlation matrix of the 
estimates. Residual analysis is also 



good. You plot residuals or list them 
with the actual and predicted values on 
the screen or printer. 

Another feature I like is that the pro- 
gram saves the predicted values to disk. 
This lets you estimate simultaneous 
equations models. In addition, the Sort 
utility ranks the residuals by actual or 
predicted values of the independent 
variable. 

I tested The Statistician's accuracy on 
the Longley data, a benchmark for test- 
ing statistical accuracy. I found The 
Statistician superior to the mainframe 
programs tested by Longley in 1967. 
The program's accuracy was amazing. 

Data 

The Statistician provides an easy data 
entry and editing system. You specify 
the number of variables, then the pro- 
gram displays the appropriate number 
of fields on the display. By pushing the 
appropriate arrow keys, you move 
around the fields or up and down through 
the rows of data. 

All files that the editor writes out 
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TRS-80 1, 2, 3, 4, 12. 16 
CPM XENIX 



Multiple Regression 

Stepwise 

Ridge 

All Subsets 

Backward Elimination 
Time Series Analysis 
Descriptive Statistics 
Transformations 



Survey Research 
Nonparametncs 
X-Y Plots 
ANOVA 

Random Samples 
Data Base 
Search & Sort 
Hypothesis tests 



Please call TOLL FREE 
1-800-334*0854 (Ext. 814) 




for more information 

or write 

Ouant Systems ^194 

Box 628 

Charleston. SC 29402 

•VISA-M/C Accepted 



Upgrade Your Radio Shack Software 



Turn your SHACK 

into a MANSION 




With software enhancer 

BLOCK ISLAND TECHNICAL SERVICES, Inc. 

Full value for your money r& a New England tradition, 
a tradition that survive* on Block Island today. We have 
created high-quality software upgrades for Radio Shack's 
Model N and Model 111 software packajces thai will greatly 
enhance their performance, speed and ease of operation. 

Model lit Accounts Receivable (26-1555) 
Upgrade No. 1 (S24.95) 

• Lightning fan machine language torn 10-30 
times faster than your original program. 



1 Set up a price file for your products for easy 
tramaciion data miry Juii enter a predeter- 
mined two digit product number and your pro- 
duct's descnptKM and pnee will automalicaU) 
be entered User friendly prompts allow >ou 
lo change the product or pnee easily 

printing complete tiatemmti lor daily billing. 
increasing cash How 



Model II Payroll (26*4503) 
Upgrade No. 2 (S49.M) 



i hjv 



gone i 
out cloimg the proton 
much lime it can cost \ 
b almost impotuhtr I 
mistake 



i period with 
on know bo* 
m upgmde i 



at period. 
' dnpiayed 



■ Complete 941 emptoytr s quarterly report 
Your option to print out wll or display it on 
icnarn Input lines to enter your deposit* paid 

Write or call today for the above upgrade packages 
and for a complete list of other Radio Shack software upgrades 

BLOCK ISLAND TECHNICAL SERVICES, Inc. 

Box 145. Block 1 stand. R.I 0M07 

Telephone (401) 466-2539 ^ 542 

ftOOam to 5fl0pni ET 



become part of your data base and any 
of the programs in the package can use 
them. The edit program contains a good 
data report formatting system that 
automatically centers titles and head-' 
ings and aligns data. 

One of the most important compo- 
nents of the package is the data trans- 
formation function. It takes some time 
to become accustomed to this particular 
program, but it's worth it. Using any of 
the 24 transformations, you modify 
data or create new variables as func- 
tions of existing variables. 

The transformation capability is es- 
sential for non-linear multiple regres- 
sion and many techniques in explor- 
atory data analysis. Using this feature, 
you can easily create the necessary 
variables for a polynomial or interac- 
tion regression model. 



Some of the data transforms are 
quite unusual but occasionally useful: 
for example, the additive and multipli- 
cative accumulators. These accumula- 
tors calculate the cumulative sum and 
product of a vector. 

Some of the transformations are de- 
signed for time series modeling. In par- 
ticular, the nth order lag lets you create 
lagged data of any specified order. 

Other Features 

The descriptive statistics component 
computes the following numerical de- 
scriptive measures: mean, median, geo- 
metric mean, harmonic mean, variance, 
standard deviation, maximum and min- 
imum values, mean absolute deviation, 
and range. In addition, the program 
produces excellent frequency histo- 
grams (see Fig. 1). 



DEPENDENT VARIABLE — >PR ICE/DAT 



CONSTANT 
FEET/ DAT 
AGE/DAT 
BEDS /DAT 
BATHS /DAT 
GARAGE/DAT 
RESORT/ DAT 



B 



SOURCES OF VARIATION 



COEFFICIENT 

33482 
-30.2504 
-608.578 

17597.7 

27221.1 
-5487.06 

40420. 5 



ANOVA 

ss 



STD. ERR. 
32100.7 
21.2985 
450.463 
7304.79 
6765.33 
6052.39 
7913.66 



DF 



T-VALUE 

1.04303 
-1.42031 
-1.35101 

2. 40906 

4.02362 
-.906593 

5.10769 



REGRESSION 
ERROR 



1.67561E+10 
5.5722E+08 



2.79268E+09 
6.96525E+07 



TOTAL SS 

F=« 40.0945 

R SQUARED- .967816 

DURBDJ WATSON STAT. 



1.73133E+10 14 



2.35218 



Table I. The Statistician 's output. 
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Figure 1. Frequency histogram. 
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THE RESULTS ARE IMPRESSIVE. . ." 

Dennis Kitsz, 80 Micro ompuftfcg: 12/82 

Langley-St. Clair's* Soft-View 

Replacement CRTs 

eliminates the strobe, 
flicker and fatigue 
from TRS-80's: 

Mow you can upgrade your monitor with 
the new medium persistence green or 
amber phosphor tube. 

State-of-the-art systems such as IBM" 
and Apple III"" do not use the less costly 
"P4" B&W display tube because it is 
actually intended for TV viewing and its 
rapid strobes (60 times per second) 
cause irritating eye fatigue. 

No amount of "green plastic" will solve 
this problem. But the new Soft-View 
CRT display tube from Langley-St. Clair 
will. 






Available in slow decay Green or medium decay 
"European Amber'* (the standard in Europe) 

Made with Lead/Strontium impregnated glass that 
stops X-ray emission. 

Of high-contrast face glass that also stops most 
G.V. radiation. 

Available in frosted glass with extra Anti-Glare 
benefits. 

Easily installed... comes with pre mounted 
I i.iid ware. 

War ranted for one full year against manufacturing 
defects or tube failure. 

The finest quality double-dark glass phosphor 
fields to produce dramatic contrast. 

Ideal for Word Processing and Programming, yet 
List enough for Games and Graphics. 



lsis Soft*View ,v cRrs 

I ) "CifW Ciuvn Phosphor *7'-' 

( I "GN42G Green Phosphoi « Anti-Glare '■; 

■ >R34 Amber Phosphor 
[ I "OR34G Amber Phosphor w Anti-Glare 

also available: 
i i "k.'.H, Red Phosphoi w Anti-Glare 5 I3'» l 
D *B22G Blue Phosphor w/Anti-Giare i 

Pius 5 7X30 lor packing and ( IPs stripping 

S] /(K)im Overseas, Pared Prtat or UPS Blue Label 
Ues r» where appth abiV 
(Inquire about the ( R I swe toveevattabjefor 
many other - omputei m<xiels) 



For MasterCard and Visa Orders only, call 

800/221-7070 £££» 



:• Langley-St. Clair Instrumentation Systems, Inc. 

' 132 West 24th St.. hew York. N.Y. 1001 1 ' 



low available. 
for 

I ode Is 4 & 16, 




* •• "00CL 111 



*sb33£"- 



"SiB^T 





Actual ui K ^^^^^MBI 
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The program also permits several 
types of hypothesis testing, including 
tests on a single mean, single variance, 
and difference in means (paired and un- 
paired). The paired difference test uses 
the differencing functions in the trans- 
form package, then performs a test of a 
single mean on the differences. One- 
way ANOVA measures the difference 
in unpaired means. 

The ANOVA provides one- and two- 
way analysis of variance; however, the 
program doesn't support multiple ob- 
servations per cell in the two-way 
analysis. 

The nonparametric component con- 
tains six commonly used nonparametric 
tests: Median, Mann-Whitney, Wilcox- 
on, Kruskal-Wallis, Spearman's Rho, 
and the Runs Test. 

The forecasting program is one of the 
strongest available. It performs no less 
than eight different time series models, 
including moving averages, single and 
double exponential smoothing, sinusoi- 
dal models, Holt's two-parameter linear 
exponential smoothing, Winter's ex- 
ponential smoothing model, and adap- 
tive filtering. 

It calculates the mean squared error 
and the mean absolute deviation of the 
forecast. The Statistician also produces 
tables and plots of the predicted, actual, 



and forecasted values on the screen or 
printer. 

The program generates random vari- 
ables from seven different types of dis- 
tributions: Normal, Gamma, Exponen- 
tial, Uniform, Poisson, Binomial, and 
Geometric. 

Another component that particularly 
applies to teachers and students of sta- 
tistics is the sampling program. You can 
get sampling distributions from any 
data set. The program obtains all ran- 
dom samples of a given size if you have 
sufficient disk space on your system. 

The documentation is well-written 
and tutorial in nature. Since the system 
is menu-driven, it's more than ade- 
quate. I quickly obtained answers to my 
few questions with a telephone call. 

Conclusion 

A second version of The Statistician 
with enhancements is due for release in 
September. The new version will cost 
$295, and a regression subset will be 
available for $145. 

The Statistician is an excellent pro- 
gram for anyone interested in perform- 
ing statistical analysis. Moreover, if 
you've already purchased statistical 
software, you certainly should consider 
acquiring The Statistician; it contains 
many features that just aren't available 
in any other package. ■ 
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Newbasic 2.1 

Modular Software Associates 

209 18th St. 

Huntington Beach, CA 92684 

Models I, HI, and 4 (in Model ffl mode) 

$39.95 

by Richard Green 



Newbasic 2.1 is an enhancement to 
Disk Basic for the TRS-80 Models 
I, III, and 4. Newbasic includes 49 new 
Basic commands. You can add any or 
all of them to Basic at your discretion. 
The program comes on a 35-track, 
single-density Model I disk. This disk 
contains programs for both Model I 
and Model III users. Model III users 
have to run the Convert utility before 
they can make a working copy of 
Newbasic. The disk also includes four 
sample programs written in Newbasic 
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that display its capabilities. 

The distribution disk does not con- 
tain a Newbasic program. It has two 
programs, Creator I and Creator III, 
each of which builds a Newbasic pro- 
gram for the appropriate computer. 
When you run the Creator program, it 
presents you with each Newbasic com- 
mand, a brief description of that com- 
mand, and the opportunity to include 
or discard that command for the 
Newbasic disk you're making. 

Once you make all the choices, the 
program tells you the total size of 
the Newbasic program you've made. 
You must then specify a file name 
under which to save the Newbasic 
program. 

Newbasic executes exactly as Disk 
Basic does. You must boot the system, 
answer the options required by the op- 
erating system you're using, then speci- 
fy Newbasic instead of Basic. From 
here on, Newbasic operates identically 
with Disk Basic, but with the inclusion 



of the commands you have chosen. 

Program Description 

Newbasic's commands fall into three 
general areas: graphics commands, pro- 
gram development aids, and command 
enhancements. 

Fully half of Newbasic's commands 
are for graphics and sound generation. 
Additionally, several of the enhance- 
ments and program development aids 
lend themselves to rapid and easy 
handling of screen graphics. The graph- 
ics handling abilities of Newbasic are 
quite impressive. 

You can draw circles, ellipses, and 
arcs by using a single command. You 
can even construct figures larger than 
the video display, although you can dis- 
play only a portion of such a figure at 
any one time. 

The command you use is Circle. You 
can modify Circle with up to seven 
parameters, specifying the center point, 
radius, rotation angle, and, in the case 
of ellipses, the radius along each of the 
X and Y coordinates. 

The Draw command draws straight 
lines. You can state 15 different param- 
eters to modify this command. These 
parameters let you draw lines vertically, 
horizontally, or at angles that bisect the 
X,Y coordinate. 

You can draw straight lines at any 
other angle by specifying the starting 
and ending points of the desired line. If 
you like, you can define the starting and 
ending points as points off the screen. 

In effect, you can draw on a grid 
measuring 255 by 255. The upper left 
corner of the video screen is 0,0 and the 
lower right corner of the screen is 15,63. 
One of the nice effects of this is that you 
can make graphics rotate around this 
universe of 255 by 255, but they are in 
view only when the figure is in the por- 
tion represented by the screen. 

Draw is not limited to producing sin- 
gle straight line segments. By using 
several parameters with the command, 
you can specify complicated figures 
with a single Draw. 

The most interesting parameter for 
Draw is the X parameter that lets you 
define a figure as a string expression. 
For example, you can draw a simple 
rectangle with the command DRAW 
"R20,D20,L20,U20" (which means 
draw a line right 20 graphics blocks, 
down 20 graphics blocks, and so on). 
Alternately, you can define the rec- 



an advanced personal computer 




Basic S599 kit (not shown) includes: 

• Software compatibility with TRS-80 Model III and Model 
IV, plus CP/M 

• 128k RAM card (64k normal plus 64k bank-selectable), 
less RAM 

• 80 x 24 and 64 x 16 U/L case alphanumeric displays 
(software selectable) 

• Z-80 CPU, with bootstrap ROM and hardware/software 
selectable 2 MHz and 5 MHz clock 

• High resolution 512 x 256 graphics circuitry, with 
alphagraphics (less 16k high resolution RAM) 

• Disk controller for any mix of up to four disk drives 
(5-V4"/8", single/double sided, single/double density. 
built-in/external) 

• Parallel printer and light pen interfaces. 

• Built in audio 

• Provisions for readily available system ROM 

• Tan polyurethane enameled metal enclosure, with 
power supply 

• Standard typewriter keyboard, plus numeric keypad 

• CPU board, with six expansion slots 

• Parts kit, including ICs, sockets, fasteners and 
mounting hardware 

• Assembly manual 



Complete $1699 kit shown includes: 

• High-resolution 12" green screen monitor 

• Two SSDD slimline 5-V4" floppy drives and power 
supplies 

• Hand rubbed, solid walnut end panels 

• RS232 Interface board 

• System ROM 

• 128K system and user RAM 

• 16k high resolution graphics RAM 



Additional Options 

• Single or dual built in slimline 5V4* SSDD or DSDC 
floppy drives and power supply 

• Single or dual external slimline 8" SSDD or DSDD 
floppy drives, enclosure, power supply 

• 128k bank selectable RAM board (for 256K total) 

• 4164 RAMs 

• Monitor 

• Color Graphics (available 12/83) 

• Light Pen (available 10/83) 

• Hard disk host adapter (available 10/83) 

• Factory assembled units (available soon) 



TOXRIittM: l:I.IECR()NIO 



537 East Main Street • Lancaster, Ohio 43130 • Tel: (614) 687-1019 

TRS-80 « a Tandy trademark CP/M is a Digital Research trademark Dealer Inqulnes Invited 
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tangle as a string: BOX$ = "R20, 
D20,L20,U20". Then you can repro- 
duce the rectangle anywhere in the pro- 
gram with the command DRAW 
"XBOX$". 

You can do a little more magic by 
specifying scale, which can cause the 
box to be larger or smaller by factors of 
V*, with a maximum range from 1 to 
255. In other words, the normal size rec- 
tangle (scale defaults to 4) could be up 
to 63 times as large by setting the scale 
to 255 with the command DRAW 
"S255,XBOX$". 

Over 20 other graphics commands 
exist, including GSAVE to save a 
graphics memory into a disk file and 
GLOAD to place the graphic file back 
into memory. PGET saves a specific 
graphic into a memory array, PPUT 
restores the array back into the video 
memory, and Paint fills in a specified 
video area, making it all white or all 
black. 

These and the other graphics com- 
mands make possible the fastest graph- 
ics you can get in a Basic program. 
Combine the fast graphics animation 
with the five-octave range (from D 
below middle C to E three octaves 
above middle C) of the sound com- 
mands and you can achieve truly spec- 
tacular games effects. 

The program development aids in 
Newbasic include 12 new commands. 
One of these, QUICKEY, enables 
single-key entry of 39 different Basic 
commands. For example, when you use 
QUICKEY, holding the clear key while 
pressing the 4 key causes CHR$( to ap- 
pear immediately on the screen. 

Holding the clear key while pressing 
the 5 key displays INKEYS, and press- 
ing C displays CMD". It takes a while 
to become accustomed to QUICKEY, 
but once you gain familiarity with it, 
you'll find it a real time saver. 

Another nice feature, the DEFKEY, 
lets you use any 10 keys to call an entire 
string of characters. One key can call a 
maximum string length of 127 charac- 
ters. All 10 keys can call a total of 221 
characters. 

NTRON is a program tracing routine 
that lets you set a specific range of pro- 
gram lines you want traced. Additional- 
ly, you can specify any expression that 
you wish traced, and NTRON returns 
the value of that expression each time 
the program encounters it. 

Yet another tracing function is 



SPOOLON used in conjunction with 
the PON command. PON sends every- 
thing displayed on the screen to the 
printer. Preceding PON with 
SPOOLON sends everything from the 
screen to a disk file. You can then 
redisplay the disk file on the screen or 
send it to a printer. This way, you can 
make a permanent copy of the working 
of a program. 

The handiest program development 
command is LOC. LOC. followed 
with a string you want found searches a 
Basic program for that string. For ex- 
ample, if you want to find and change 
X$ to Z$ in a program, you could find 
X$ with the command LOC."X$". 

Newbasic searches for the first occur- 
rence of X$ in the program with which 
you are working. You can change X$ to 
Z$, then look for the next occurrence of 
X$ with the command LOC. If you 
want, you can do this for the entire 
program. 

Among the Basic enhancements are 
the commands Call, DPEEK, DPOKE, 
and Do. . .Until. You use Call to call a 
machine-language subroutine. With 
this command it isn't necessary to use 
DEFUSR to identify the subroutine. 
You can locate the routine in high 
memory at will. 

You can follow Call with the exact 
memory location of the routine in either 
hexadecimal (hex) or decimal form. 
Alternately, you can follow Call with an 
expression that corresponds to the 
routine's location. You can use any 
number of routines with this command. 

Think of DPEEK and DPOKE as 
double PEEK and POKE. These com- 
mands return and insert 2 bytes into 
memory at the specified location and at 
that location plus one. The number 
returned is in the most significant byte, 
least significant byte form. 

Do. . .Until lets you loop a routine 
that continues as long as the test follow- 
ing Until isn't met. The Until test can be 
any logic or arithmetic expression that 
you want tested. You can nest up to 10 
of these loops (one Do . . . Until expres- 
sion inside another). 

The manual for Newbasic is a spiral- 
bound book showing each command. It 
includes an explanation of the com- 
mand and one or more specific ex- 
amples of its use. 

The explanations are reasonably sim- 
ple, but you'll need some knowledge of 
Basic and of programming to understand 



them. This isn't a serious flaw, as few 
neophyte programmers have any use 
for a set of enhancements like 
Newbasic. 

The manual's best feature is its in- 
stallation instructions. These step-by- 
step instructions tell you how to install 
the program, with specific instructions 
for TRSDOS, LDOS, DOSPLUS, and 
NEWDOS80. 

Conclusions 

Newbasic seems to be a reliable pro- 
gram. Try as I might, I couldn't get it to 
crash. Nor was 1 successful in finding 
any bugs in the time I was able to use 
Newbasic. 

The program development tools 1 
discussed are fairly valuable. The trace 
functions could have saved me hours of 
debugging time if I'd had them in the 
past. 

The spooler functions are much eas- 
ier to use with a Basic program than the 
spooler that comes with NEWDOS80. 
And once you've become familiar with 
the use of QUICKEY, it saves hours of 
typing when you are keying in a Basic 
program. 

If you're writing a program that re- 
quires any amount of screen graphics, 
Newbasic greatly simplifies your task. 
However, the graphics commands take 
some practice to use easily. Most have 
several optional parameters, and the 
results of the parameters can be 
surprising. 

Circle is initially confusing. It begins 
drawing each circle from the three 
o'clock position on the screen. For the 
last 23 years, in flying and in reading 
blueprints, I've used the 12 o'clock 
position (top of the screen) as zero 
degrees for circles and arcs. It took 
quite a while for me to consistently get 
the results I expected from the Circle 
command. 

Once you become accustomed to the 
commands, they are fairly easy to use. 
You'll probably need to keep the man- 
ual handy if you're attempting compli- 
cated graphics, but straight lines are a 
snap. With a little practice, you'll find 
that setting up formatted screens for 
user input is actually easy with 
Newbasic. 

The program's greatest value, how- 
ever, is as a game development tool. 
The rapid graphics and sound genera- 
tor make near-arcade results easily 
achieved. ■ 
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MOST WANTED 
t LIST = 



SUPER UTILITY PLUS 3 2 — 

"THE JAWS Of LIFE" -a!ed FIVE STARS in the Oct -83 80- 
MICRO' A MUST HAVE program if you ha»e disks, as reviewed Dy 
all the TRS-80 magazines They all agree thai SU* is a standard m 
the industry This new «-sion is the ULTIMATE and teatures 
bette- documentation includes directions 'or use on the Mod 4 

$71.15 



-*&■■ 



PowirMAIL PLUS 

The most powerful mailing information system yet tor the TRS-80 
Runs under most current DOSes as well as hard drives lOO^t 
machine language tor maximum speeo* Features ?4 definable 
flags'. 10 level sort, mounting new data OsKs and machine 
;omnaliDie data tiles It also 'converts' many othe' mailing 
programs' data to PowerMAiL* format Eliminates -e-lyping' 

:r — — -=- . Oihf $150 tick 

P'ease specify " ~~ ^^"^^ sti— ~ * ■ ~~ 

MOD I HI • ' ' 

MOD 4 true Mod 4 Mode 1 

MOD 11/12*16 (Comes on DP- u Kernel Sys:em| 

POWERDOT II 

A GRAPHICS BREAKTHROUGH' The ULTIMATE in graphics 
design This version is MUCH MORE POWERFUL than previous 
ve-sions and includes BETTER documentation as well Sew 
features ixlude AUTODRAW" and CIRCLE commands Now 
allows you to design your own character sets' includes tots of 
examples on ask Your screen is only a pic! jre window" to a much 
larger drawing rea' You are only limited By disk sto-age no! 
memory Works on EPSON Series (Grattrax ol GraM-ax* required) 
or the C lloh 8510 (PROWRITER or NEC version) Coming soon lor 
DMP2100 DMP400 and LP-8 



SM.H 



POWERBMN "" 

A tuB screen graphicstext editor Allows you to design your 
graphics and merge them with your BASIC or assembly program in 
Six different formats The files may be used aione or chained 
together tor animation effects MANY programs being produced 
commercially today incorporate POWERDRAW graphics' No 
royalties to pay and they're easy la (W Has -eceived EXCELLENT 
reviews in many magazines 

»■ —=^= SM.M 

POWERDMVERs 

fir use with SnperScHpslt " 

Allows you to use ALL of Supe'Scripsit's' features with your 
EPSON PROWRITER or F 10 STARWRITER printers' Includes 
patches lor running SuperScripsi! on LOOS with f'oppy or hard 
drive Now ixiudes DiSKFiLE driver Save tormatted text to disk 
now 

Dily $29.95 lick 



Please Specify 

Powe-DRtVERP Cltoh 8510 PROWRITER 

PowerDRrVER/E EPSON or GEMINI Series 

PowerDRIVERF Cltoh STARWRITER (Leading Edge 

^ The TOOLBOX for LD0S " 

The unities to perfect LOOS* are available m PowerSOFTs 
TOOLBOX You also get patches and tillers to make your system 
manageable" 'The TOOLBOX should Be part of every LOOS* 
use's' system,'' quoted trom Sept '83 80-MiCRO. who gave 
TOOLBOX a FOUR STAR rating' , _., 

5 ~*T. - - $69 15 

US 'Canada Please add $2 50 Shipping handling Foreign $10 
THE ABOVE PROGRAMS CANNOT BE EXPLAINED IN THIS 

SMALL AD SPACE PLEASE WRITE FOR COMPLETE 
CATALOG WITH FULL DETAILS DEALER INQUIRIES INVITED 
AVAILABLE THROUGH SELECTED DEALERS EVERYWHERE 





^RODUCTS FROM BREEZE QSD INC 

1 1500 Stemmons Fwy 
Suite 125 
Dallas. Texas 75229 
(214)484 2976 „ -~. 

SuperScripsit is a Traderm* ot Tandy Cap 
LOOS >s a fademark o' LSI 
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Instant Assembler 
Mumford Micro Systems 
P.O. Box 400 
Summerland. CA 93067 
Models I and IH 
32KRAM 
$39.95 cassette 
$49.95 disk 

by William J. Schauert 

Estant Assembler, a complete As- 
;mbly-language development sys- 
tem, provides many enhancements to 
the Radio Shack Editor/ Assembler. It's 
a good system for beginning Assembly- 
language programmers, and an ade- 
quate system for advanced programmers. 

Instant Assembler is unique from 
other editor/assemblers in that it assem- 
bles code as you type it in, line by line. 
This way, you catch mistakes without 
the tedium involved in re-editing to cor- 
rect errors that occur on assembly and 
later debugging the program for logic 
errors. 

Instant Assembler contains an editor 
to create your source files, a built-in 
symbolic debugger, and a linking pro- 
gram that lets you create separate mod- 
ules and link them together into a single 
program. 

I tested the program under TRSDOS 
1.3 on the Model III, and under LDOS 
5.1.3 on my MAX-80. The manual 
states that the program runs under most 
popular DOSes for the Model III. 

This package includes a program disk 
and a 65-page user's manual. The pro- 
gram disk is a TRSDOS data disk. For 
those of you with a single drive system, 
the disk self boots into a special pro- 



gram that transfers the programs to 
your system disk. 

The programs include the Instant As- 
sembler program, three versions of the 
linking loader, a stand alone version of 
the debugger program, and a program 
to restart the assembler with the source 
file in place (if you have to reset during a 
debugging session). The main program, 
DSKIAS, contains the editor/assembler 
and a built-in debugger. 

In the traditional method of creating 
an Assembly-language program, you 
enter your source code with an editor, 
then run the assembler. The assembler 
checks the syntax of each source state- 
ment, and generates machine code or an 
error message. You then re-edit the 
source file to eliminate errors and try 
the assembler again. 

Once you have an error- free source 
file, the assembler generates object 
code, the machine code for execution. 
Since neither the editor nor the 
assembler checks for logic errors, you 
must debug the object code. Most 
operating systems include a debug 
program. 

The author of the Instant Assembler 
takes a different approach to Assembly- 
language programming. This program 
assembles the source line when you hit 
the enter key while in the edit mode. 

It checks for proper Z80 syntax of the 
opcode and operand data, and it looks 
for any duplicate use of the label. It also 
checks the range of relative jumps. If 
you have any errors in the line, the sys- 
tem reports the error and places you in 
the line edit mode with the cursor at the 
first character in the offending field. 

After you finish your source file, you 
can assemble it directly into memory 
and debug your program with the built- 
in debugger. Since the source file is still 
in memory, you can also debug using 
the symbol names in your program. 

If you discover an error, you can re- 
turn to the editor mode, correct the bug, 
and try again. Having all these pro- 
grams in memory at one time helps 
speed up the process of developing an 
Assembly-language program. 

The Assembler 

The assembler portion of the pro- 
gram is actually both editor and assem- 
bler. The editor accepts text from the 
keyboard and places it in the proper 
fields for the assembler. The input data 
is in the form of Z80 mnemonics and 
comments. 
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NEWBASIC 

Adds over 40 commands to Disk BASIC 



"Of all the software packages I've purchased since I bought my 
TRS-80* in Dec. 78, this is the best." - R. Hunter, Roswell, NM 



Customize NEWBASIC-include only 
those commands you need. 

Over a dozen easy-to-use and powerful 
graphics commands (e.g., DRAW, LINE, 
CIRCLE, PAINT). 

Produce sound for music & effects. 
RS-232 initialization & I/O. 



Pre-defined and definable keys. 

Disk-based spooler /despooler. 

Execute strings, label lines, 2-byte 
PEEK /POKE, restore to any DATA 
line, block memory move, set 
hi-mem. and much, much more. 

70 page manual; summary card. 



"NEWBASIC is a very useful tool for anyone programming in BASIC . . . At $39.95. 
NEWBASIC offers a lot for the money." — Basic Computing; July, 1983 

"Why weren't some of NEWBASIC s commands part of standard (Disk) BASIC?" 

- R. Haley; Castro Valley, CA 
' 'NEWBASIC is easy and fun to work with. Within hours we were creating stunning high 
speed graphics and interesting sound effects. I'd recommend NEWBASIC to anyone. " 

— J. Ryan; Mt. Vernon. IL 

Now NEWBASIC's more powerful than ever! For a very small, one-time fee, you can 
include our "execute only" version of NEWBASIC along with your programs. Now anyone 
can run your NEWBASIC programs-even if they don't own NEWBASIC! 




1 % $ 



The Collecton^pr The Analyst 



Improved 
Garbage Collector 



Eliminate long garbage collec- 
tion (string compression) 
delays! The Collector uses 
only 500 bytes, plus 2 bytes 
per string (during collection). 
Use it with almost any BASIC program, without changing a thing' 

Just look at what The Collector can do. then decide: 
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Helps speed up 
BASIC programs! 

Speed up most BASIC pro- 
grams by 15-50%. The 
Analyst makes it easy. And 
you can use it on commercial 
software, as well as your own 

Just run your program while The Analyst "analyzes" it. After 
displaying the results, you add 1 or 2 simple lines to your program. 
The changes enable BASIC to find the frequently used variables 
more quickly, speeding up your program! 

Why settle for slow? Get The Analyst, and speed it up! 



Juki 6100 - $550.00 Daisywheei Printer 

Proportional spacing, 10. 12, 15 CPI, 18 CPS Bold, underline, superscript, etc Uses 
Diablo 630 codes The best printer for the price" 

Centronics parallel S550.00 ($583 00 in CA) 

Serial $600.00 ($636 00 mCA) 

Printer terms: Add 510.00 snipping Credit card orders add 3 5% US o'ders ony 



NEWBASIC (Model I/Ml disk. 48K) $39.95 (542.95 in CA). 

•Execute emy" opUon $ 9.95 ($10 55 in CA). 

The CeHeclor (Model l/m disk) 524.95 (526 45 n CA) 

The Analyst (Model l/m disk) 524.95 (526 45 m CA) 

Some DOS's require 2 drives lor installation. Compatible with mosi DOS's Diskettes 
ate not copy protected. 

Terms: Check, money order. Visa. M/C. and CO D. (+ 52 00) Add $2 50 ship- 
ping m US & Canada. $5 00 elsewhere 'US funds only) 



"MSA — Making excellence affordable" 



l>WKO 


Modular 
Software 
Associates 



209 18th Street 

Huntington Beach CA 92648 

(714)960-6668 



• 58 



Phone lor the name of the dealer nearest you. or order directly from us 

Phone orders (Visa. M/C. & CO D only) accepted 24-hours (manned 8-5 M-F) 

DEALER INQUIRIES INVITED 



«- SooUstof Actvrlisfs on P»ge 291 
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The manual covers each of the 37 edi- 
tor commands in enough detail to let 
even a beginner operate the program. If 
you're familiar with the TRSDOS Basic 
line editor, you already know how to 
use most of the line editing commands. 

The assembler expects the input line 
to follow a fixed format. You can enter 
an optional six-character label as the 
first field. If the first character of the 
label is the ampersand, other program 
modules can use this label. In Z80 talk, 
this label is global or public. If the label 
doesn't have an ampersand, it's known 
only to the current program module. 

The next field is a four-character op- 
code field that can contain any known 
Z80 opcode. It can also contain two un- 
documented Z80 opcodes that let you 
access the upper and lower halves of the 
index registers separately. 

The last field, the operand field, can 
contain up to 45 characters and include 
any type of operand data or comments. 
If you want a comment, enter a semico- 
lon followed by your comment. How- 
ever, you don't need to align your com- 
ments; the editor does this automatically. 

The editor/assembler works quickly 
and efficiently to help you produce 
Assembly-language source code. On a 
global level, the editor has commands 
to insert code, delete lines, and move 
blocks of code from one area to 
another. 

It's possible to list your source code 
to the display or the line printer. When 
you send code to the printer, the pro- 
gram paginates it, but doesn't add a title 
to your list. You can also save code to 
the disk or tape. You can save source 
code in the Instant Assembler com- 
pressed format (a semi-assembled code) 
or in standard Radio Shack EDTASM 
format. 

If you choose the latter, the program 
saves the source in ASCII format with 
line numbers. You can then edit this 
code with Radio Shack's EDTASM. 

You can also include other sections of 
source code in your current program by 
using the Merge command, which ap- 
pends one Instant Assembler file on 
disk to one in memory. As the program 
adds the source code, it checks for Z80 
syntax errors, just as if you entered the 
code from the keyboard. 

Other assembler commands let you 
read the disk directory, delete a file 
from the disk, and find instructions in 
the code that reference a certain label. 
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Another command lets you assemble 
your code directly to memory so you 
can debug it as soon as you finish 
without saving and then reloading it 
with a debugger program. You can also 
save your object code to disk or tape 
when you have a finished product. 

The assembler allows only a few 
pseudo-ops, including the Z80 types of 
DEFM for messages, DEFB for byte 
data, DEFW for word data, DEFS for 
storage allocation, and EQU for sym- 
bolic equates. These have some surpris- 
ing limitations. 

You cannot use the EQU pseudo-op 
to define byte data. A statement like: 

LINEFEED EQU 10 
LD A, LINEFEED 

is not allowed in this assembler. You 
can assign only word length (16-bit) 
equates. 

You can postfix symbols with an ex- 
pression, but the range is limited to - 31 
to +287. This means that LD 
HL,(BEGIN -(- 31) is allowed, but an 
expression like LD HL,(THEEND 
BEGIN) isn't allowed. 

The storage allocation is limited to 
4,095 bytes in a single DEFS statement, 
but you can use multiple statements to 
obtain greater allocation areas. The last 
limitation is that a DEFM statement can 
only define a string of 43 characters due 
to the length of the operand field. 

You can break your message string 
up into several statements of 43 or fewer 
characters. The assembler also does not 
recognize any ORG, End, or DEFL 
pseudo-ops. The assembler automati- 
cally supplies ORG and End when you 
list the program. 

The Debugger 

After you assemble your program 
into memory, you can switch to the 
built-in debugger program called 
MicroMind. This program is also fur- 
nished in a stand-alone version. Micro- 
Mind has over 21 commands. As with 
the assembler, the manual explains each 
in detail. 

The main routine used in the de- 
bugging process is the Step command. 
This mode lets you step through your 
program in half steps, each step broken 
up into a Fetch and then an Execute 
cycle. You can step through any area of 
the program including sections that 
might be in ROM. 



When you enter the step mode, the 
program asks you for the first address. 
After you enter a valid address, the pro- 
gram fetches the Z80 opcode at that ad- 
dress. The CRT displays the machine 
instruction, the disassembled code, and 
the contents of all registers and most 
flags. 

When you hit the enter key, the pro- 
gram executes the instruction. The dis- 
play keeps the old information and 
shows the new register information. 
This lets you compare the before and 
after effects of the instruction as the 
program executes it. Some commands 
let you fast step up to 99 steps, and exe- 
cute through a call that has already been 
tested. 

MicroMind also supports traditional 
breakpoint debugging. This lets you set 
a break location in your code, then run 
the program until you reach the break 
location. The display then shows the 
current state of the registers. The break- 
point is not restored when you reach it; 
restoring a breakpoint requires a sepa- 
rate command. 

Two blocks of memory appear on the 
display at all times. These blocks are 19 
bytes long and you can set them to start 
anywhere in memory. This is handy if 
you want to keep an eye on a buffer in 
which you're changing data. 

MicroMind also lets you display a 
block of memory in ASCII so you can 
detect string information. The display is 
50 characters long (five lines of 10 
each), and you can move it forward or 
backward with the up- and down-arrow 
keys. Other commands let you modify 
memory and the processor registers. 

Instant Assembler includes some util- 
ity routines in the debugger program. 
The Find Number routine lets you 
search memory for any 1- or 2-byte se- 
quence. 

The Disassemble command shows 
you the Z80 mnemonic code starting at 
any first address and incrementing by 
one instruction each time you press the 
enter key. The program sends this infor- 
mation to the screen or to your printer. 
The debugger also has Hex-to-Decimal 
and Decimal-to-Hex number conver- 
sion routines. 

The MicroMind program is easy to 
use and a good debugging tool. It's 
much better than Radio Shack T-Bug 
and good competition for the disk- 
based debug program included with 
TRSDOS. The disassembler feature is 
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HOLIDAY SPECIAL 

• Ajst enter the year desired and this 
program will print a complete 
calendar, with a beautiful graphic 
picture of your favorite cartoon charac- 
ters for every month. 

• Print calendars for fun or profit for 
yourself, and for your friends and family. 

• Makes a great holiday present! 

• Hanging a calendar in your home or 
office will make a great conversation 
piece. People will be sure to stop and 
say "Hey did you make that!" 

• Source code included - versions 
available for the Model I, II, III and IV, 
tape or diskette, on 80 and 133 column 
printers, and 80 column printers with 
133 character compress mode. 



30.00 



(Tax and shipping included.) 



CHECK OFF YOUR TYPE OF SYSTEM 



NAME.. 



ADDRESS: 



Make check or money order payable to 
BLUE PRINT SOFTWARE 

lOO Wduwepex Tr. 
Ridge, NY. 11961 .482 
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nice because you can see your code as 
you write it in source as well as in 
machine code. 

The only objectionable item in the 
debugger is that the Z80 prime registers 
aren't included in any of the displays. 
To view these, you must execute an ex- 
change opcode and display the registers 
again. 

The linking Loader 

An old computer saying states: "A 
program expands to fill available memo- 
ry." Well, in case it does, the Instant 
Assembler package has a program to 
help you manage large programs. 

With the Linking Loader, you can 
break your source files up into related 
sections, define entry labels by prefixing 
the ampersand to them, and combine 
the entire program at the end to create 
your final object code. 

The Instant Assembler contains sev- 
eral versions of the linker to create pro- 
grams that start at the top of memory 
and work their way down, or start in 
low RAM and work toward the top of 
memory. All the linkers use the Instant 
Assembler source as their input file. 
You must save your modules in com- 
pressed format to use this feature. 

As you load each module, the pro- 
gram checks it again for proper Z80 
syntax, for ranges of relative jumps, 
and for duplicate labels. At the end of 



the loading session, you receive a sum- 
mary of error count and a list of unde- 
fined labels. 

You can also search for the location 
of any symbol with the Symbol com- 
mand. This lets you find the absolute 
address of any global symbol. If you 
like, the linker sends a list of all global 
symbols and their addresses to the 
printer. After you have all your source 
modules linked, you can save the resul- 
tant object code on tape or disk. 

Conclusion 

The unique feature of this assembler 
is the instant assembly of your source 
code as you enter it. This is a good fea- 
ture for a new Assembly-language pro- 
grammer, because it immediately elimi- 
nates simple syntax errors from your 
source code. 

The editor lets you save your source 
code in the Instant Assembler com- 
pressed format or in Radio Shack 
EDTASM format. If you choose to 
save your programs in compressed for- 
mat, you can save about two and a half 
times the number of bytes of the ED- 
TASM format on your tape or disk. 

The only serious problems with the 
assembler are the limitations on the 
range of expressions and the restriction 
to 16-bit equates. These problems be- 
come severe for commercial applica- 
tions, but might not affect the average 



home user or beginner. 

The MicroMind debugger is easy to 
use and rivals almost any other debug- 
ger available for the Model HI. The 
source code linker lets you break up the 
program into smaller sections, and later 
combines them into a single object pro- 
gram for execution. 

The documentation includes a com- 
plete description of each command and 
examples of how to use each one. The 
manual uses a sample program as an ex- 
ample of all other portions of the devel- 
opment system, including the debugger 
and the Linking Loader. 

Because of some compatibility limi- 
tations between this assembler and the 
Radio Shack EDTASM assembler, the 
manual devotes a chapter to adapting 
your programs to EDTASM. It would 
be more helpful if the author of the pro- 
gram corrected these limitations rather 
than discussing how to program around 
them. 

In general, the Instant Assembler is a 
good Assembly-language development 
system. It provides many enhancements 
to the Radio Shack EDTASM system. 

It also works quickly and improves 
user efficiency by having the editor/as- 
sembler and debugger in memory along 
with your program. This is a good start- 
er system for beginning Assembly-lan- 
guage programmers, and a usable sys- 
tem for advanced programmers. ■ 
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Model 100 Games #1 

SilverWare 

P.O. Box 21101 

Santa Barbara, CA 93121 

24K Model 100 

$24.95 cassette 

by Eric Grevstad 

80 Micro staff 

Tf you've been waiting for high- 
Aquality, fast, machine-language games 
for your Model 100, keep waiting. In the 
meantime, SilverWare (a spinoff of 
CLOAD and Chromasette magazines) 
has converted a quartet of simple Basic 
programs for the portable — one or two of 
which are modestly entertaining if you 
have modest expectations. 

The cassette includes two copies each 
of two adventures and two graphics- 
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oriented games. All loaded easily on the 
first try; the documentation includes a 
handy table showing their locations on 
a Radio Shack CCR-81 recorder's tape 
counter, as well as the memory re- 
quirements for each. 

The games, Blockade and Reversi, 
can share RAM with other programs on 
the menu, but each of the adventures, 
Alexis and Frankenstein, fills most of a 
24K machine. 

By that criterion, Alexis (18,500 
bytes) wins the Not Worth Killing 
Everything But ADRS.DO Award. The 
plot is interesting: As the imprisoned 
son of the late king, you must escape the 
usurping General Tarkaan, sail to each 
of four neighboring islands to collect an 
army, and then return to battle Tar- 
kaan, surviving in effect four adven- 
tures and a combat strategy game. 

But Alexis combines this sophisticat- 
ed premise with the clumsy syntax and 



limited range of an antique (1980, 
perhaps) Basic adventure. Given the 
100's 40-column screen, even terse two- 
word commands are too long to fit on 
the same line as the windy "What is 
your command, Alexis?" prompt. 

Other nagging lines— "You can't go 
that way, Alexis"; "You have boarded 
the boat, Alexis"— make the name 
begin to sound like fingernails on a 
blackboard. 

Alexis has annoying random ele- 
ments, too: Sometimes Pluto gives you 
the Crystal Sphere of Hades if you bring 
him the giant pearl, but sometimes he's 
cranky and demands something else. 

While sailing from island to island, 
you have to keep an eye on the weather 
and type WAIT if it looks stormy. Even 
if you do, the program occasionally kills 
you off, saying "You should have 
waited." 

Adventurers used to brain-busting 



The STX-80 printer for Christmas '83 ! 

What a great gift idea! 

It's the STX-80 printer from Star. Sleek, 
compact and priced under $200, it's sure to 
put you in a very giving mood. 

The STX-80 prints whisper-quiet print- 
outs. It features true descenders, foreign 
language characters and special symbols. It 
offers both finely detailed dot addressable and 
block graphics. 

And you can give it with confidence 
knowing that it can run with virtually every type 
of personal and business computer. 

The STX-80 printer from Star. It's 
the perfect gift for every computer user in your 
life. Especially if one of them happens to be you! 

Enjoy your presents and have a happy 
and healthy holiday. 



micronici'inc 

THE POWER BEHIND THE PRINTED WORD. 

Computer Peripherals Division. 

PO Box 612186. Dallas Ft WoMh A.r (( on. TX 75261 (214) 456 0052 







Quality you expect, at a price you don't, 



BECK DOUBLE DENSITY DISKETTES 






SINGLE SIDED 




DOUBLE SIDED 



Our message to you is simple. If you like the quality of Dysan.Verbatim.3M, et al, you'll like the quality of 
Beck soft sector, 5 1 /4" flexible diskettes. The only major difference is cost. We're less expensive. In fact, a lot less expensive. 



Why does Beck cost less? 

Our philosophy is: Excellent quality and reliability, at a cost 
that beats the jackets off other diskettes. We can do it be- 
cause we (1) put our money into the product, not mega- 
marketmg schemes and fancy packaging; and (2) sell our 
money-saving 25-diskette pack to you direct via a toll free 
order line, so you get fast, door-to-door service efficiently. 

When you buy Beck, you've got the best. 
Beck Quality. Beck Reliability. 
And, of course, Beck Price. 

1 D, soft sector 5Va" diskette $2.19 each 
2D, soft sector 5Va" diskette $2.79 each 



For IBM, Apple, TRS and 97% of popular 
microcomputers. 



What about quality and reliability? 

At Beck, our success as a diskette manufacturer depends 
upon our ability to provide you with a fully reliable, quality 
diskette - every time. For that reason we take no shortcuts. 
You get the best because we are committed to excellence. 
Every diskette is manufactured to very strict quality stand- 
ards. We test and retest 21 times throughout the manufac- 
turing process to insure compliance with no less than 42 
rigid specifications. We make sure you get the very best - 
a 100% certified, 100% error free diskette 

Our satisfaction 
money-back guarantee 
and full "7 year warr- 
anty fare proof of 
our commitment to 
excellence and 
confidence in 
our product. 













Order Now 
Toll Free 

HBr-^i COD-S 

VISA' Mo.t* Co « CASH 
( - ' - I ONLY 
Corporate Accounts Welco 



we * 



Door to Door in 48 hrs. 

tRNMIffi 

Order Toll Free 1-800-232-5634. Available in 25 pack only, plus freight. Complete 
with hub reinforcing rings, Tyvek envelopes, color coded user tables, and nonmetallic 
write protect tabs. All Beck Diskettes meet or exceed ANSI specifications. 
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puzzles will be sorely disappointed. 
Alexis begins his odyssey in a jail cell, 
where the guards put him without re- 
moving the skeleton key he carries. 

On the first island, I worried about 
natives or monsters but found only stut- 
tering strings: "Alexis, you are on the 
shores of the island of Skiros on the 
island of Skiros." 

By contrast, while no one would call 
Frankenstein a great adventure — simple 
two-word commands ("Untight candle"), 
slow Basic that lets you type in a com- 
mand before the display's processed your 
previous one — it's a pleasant few hours' 
exercise. 

Frankenstein (15,000 bytes) is rela- 
tively easy, but has a couple of clues or 
items that form a good introduction to 
adventuring logic. I can't recommend it 
for children, though, because it involves 
digging up and hacking at corpses. As 
the last surviving relative of Victor 
Frankenstein, you must finish his work 
and activate the monster, who's short a 
few parts. 



But once you get into it — scurrying 
between the mansion, the graveyard, 
and the old mill; trying to get at and 
open the safe; and dodging quicksand, 
werewolves, and finally the awakened 
monster — Frankenstein is ghoulish fun. 

Like Alexis, however, it might tempt 
portable players to cheat. For people 
used to Model I/III disk adventuring, 
it's all too easy to hop into Basic for a 
simple LIST. (That's how I learned the 
trick of getting past the wolf; I'd never 
have been gruesome enough to think of 
it myself.) 

Both Frankenstein and Alexis have one 
wonderful feature, the best thing about 
Model 100 adventuring — you can save a 
game in progress to RAM (your position 
is stored as a bunch of numbers in a 
350-byte do-file), replacing disk or 
cassette I/O with "Save game" or "Load 
game" and a tap of the enter key. 

Key work isn't so easy in Blockade 
(6,500 bytes), a semi-Centipede game in 
which you steer a snake around the 
screen, trying to reach targets and grow- 



ing longer as you do so. The targets ap- 
pear and disappear randomly, some- 
times for no longer than an LCD 
flicker; each is worth a random one to 
nine points. 

Hit the wall or your tail, or your op- 
ponent in two-person games, and you 
lose five points. Blockade then displays 
your current score and restarts with new 
snakes. 

The word that springs to mind, espe- 
cially after the opening instructions take 
eight seconds to appear, is "slow"; only 
the fastest of three speeds is at all in- 
teresting, and sluggish response makes 
maneuvering difficult. Rather than the 
Model 100's arrow keys, the Esc, tab, /, 
and shift keys steer single players up, 
down, left, and right respectively. 

Two-player games are awkward. Not 
only is the 100's screen hard for two 
people to see at once, but the second 
player has to use the apostrophe, slash, 
comma, and period keys to steer, revers- 
ing the order (left hand up/down, right 
hand left/right) of the other arrangements 



NEW PRINTERS ADDED ! FIND YOURS BELOW. 

Good This Month 

RADIO SHACK • CENTRONICS • COMMODORE • EPSON - ANADEX - BASE 2 - IP1 



RIBBON SALE 



PRINTER 

MAKE, MODEL NUMBER 

(Contact us it your printer is 
not listed We can probably 
RELOAD /our old cartridges I 



ANADEX 9000 Series 

BASE 2 

C. ITOH Prowrlter 1550-8510 

NEC 8023 

RADIO SHACK 
DAISY WHEEL II 

CARBON FILM (1419) 
COLORS b^bSoHn 
LONG-LIFE FABRIC (1449) 

LP l-ll-IV 700 Zip-Pack (1413) 

DMP-20o! 1 20 (26-1483) 

DM P-500 (26-1482) 

DMP-2100 (26-1442) 

LP lll-V (26-1414) 

LP VI VIII DMP-400 (26-1418) 

LP VII DMP-100 (26-1424) 

EPSON MX 70-80 IBM 
MX 100 

CENTRONICS 3S2OS2W000 Sartas 

COMMODORE 8023P 



RIBBON 
SIZE 



INSERTS EZ-LOADn 

DROPIN. NO WINDING 1 

EXACT REPLACEMENTS 

made in our shop. 

Cartridges not included 



116/3 



$•8/12 



$360/72 



S1S/3 



SS4/12 



$28*72 

" r" 



$45/12 

SS4/12 



$54/12 
$66/12 



$28*72 
$360/72 



$15/3 

$15/3 



RELOADS 9+ 

You SEND your used 
CARTRIDGES to us. We put 
OUR NEW INSERTS in them 



m. 



.•s]0*« Exact Replacements 

S>c£ C. ITOH - IDS - DATA ROYAL - OTHERS 



$ 7 ««./2 or more 



$ Sea 72 or more 



$ 6ea./2or more 



$ 6eaJ2 or more 



$ 4ti. 12 or more 



$ lea. 3-11 
$ 8/1 



$ 7 et.; 2 or more 



$ 6 ei./2 or more 
$ 6 ei./2 or more 
$ 7 e»./2 or more 



$ 6eaJ2ormore 



$ 6eaJ2ormore 



$ 6 ea J2 or more 
S 7 ea 72 or more 



$13ea72or more 



$ 7/1 



$ 6ea72ormore 



WORRIED ABOUT ORDERING BY MAIL' Rela> We ve been in business lor many years and can please me 
smallest and largest account You receive some ol the linest ribbons available made ot Our own exclusive IMAGE 
PLUS + 1. fabric and carbon turn Our ribbons lit you' printer enactty COMPARE but BEWARE! We order all Our 
competitor's products and are amazed at what we get Have you ever received a new fabric ribbon you had to 
unwind and dump out on ihe table belore you could use if We have Or. carbon film inserts that had no end of 
ribbon sensof Or cartridges wilh only HALF enough r.bbon WITHOUT a Mobius Loop'' (No bargain at ANY price 1 ) 
We use the latest stale-ot theart production equipment and are blessed wilh a line, dedicated slaft We guaraniee 
everything we make, period Our ribbons are made Iresh daily and our goal is 10 ship your order within 24 hours. 
Write for our brochure, price list and newsletter. INK SPOTSm. 



NEW CARTRIDGES 

(from the various 

manufacturers Subject 

to availability *) 



$27/2 
$24/2 

$27/2 



$15/2 
$15/2 



$81/ 6 
$72/ 6 
$81/ 6 
$42/ 6 
$42/ 6 



$162/12 
$144/12 
$162/12 
$ 78/12 



$ 78/12 



$69/ 6 



SILVER DOLLAR 

WIND to LOAD 

vVHY DO Wt SELL THESE'' 



Tin: 



th 



order tro 
sen iher 
Ihem ou 

the mess 
unwinding 



e type ribbon you get il y 
i our lellow advertisers We 
1 tor less since we make 
selves Oo you reaiiy 



J no 



ience o 



Jumping this type 
ribbon into a wastebasket or out on a 
newspaper and/or winding it into y 
cartridge'' We don t know why these 
are being sold Computers should 
Simplify your lite, not make if more 
complex lust to save a tew pennies 
You are welcome to order these if you 
cannot attord our EZ LOAD<- 
INSERTS RELOADS or NEW CART 
RIDGES But BEWARE 1 You now 
know how to avoid disappointment 
One more caution be sure to check 
t"e length of any ribbon BEFORF you 
buy it For instance an MX ICO ribbon 
Should be 30 yards long not ?0 as in 
the MX 80 



$12/3 
$11/3 



$44/12 



$252/72 



$12/3 
$15/3 



$44/12 
$54/12 



$252/72_ 
$288/72 



SEND CHECK MONtY ORDER or COD TO 

BCCOMPCO 

800 South 17 Box 246 
SUMMERSVILLE. MO 65571 

CALL FOR LESS ON SATURDAY' $:30 to HX(CT) 

(417)932-4196 



-2&U* 



Prt 



COST PLUS 10% 

RADIO SHACK COMPUTERS SOFTWARE SUPPLIES ACCESSORIES 

Ca»^o^ase^fWf/N^o^urCOSTPU/ST02^^£^i' 
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or the Model III arrow keys. 

As if that weren't enough, the game 
drags on until someone reaches 100 
or - 100 points, or until a player leads 
his opponent by 100 points. This can 
take some time. The playing options 
and default values (one player, sound, 
medium speed) are nice touches, but 
Blockade remains basically a dull game. 

Reversi, on the other hand, is the 
same old Othello that's been on micros 
for years, but the Model 100 version is a 
first-rate use of 5,250 bytes. The docu- 
mentation is poor — I'd never played 
Reversi before and learned by trial and 
error — but the game is neat, simple, and 
fiendishly challenging. 

On a Model I or III, Reversi was in- 
teresting. Scaled to fit in your lap, it's an 
ideal armchair or plane-ride diversion. 

While two can play, Reversi is best as 
a solitaire duel against the 100. A # sign, 
steered around an 8-by-8 grid with the 
arrow keys, lets you enter your move, 



capturing enemy pieces between two of 
yours. Then the 100 takes its turn, mov- 
ing the # sign around the board as if 
considering moves before making its 
choice and capturing even more pieces. 

Games become grim, vicious fights 
for the crucial edge and corner spaces; 
toward the end, the lead swings wildly 
back and forth until a musical salute an- 
nounces the victor. I've managed sev- 
eral wins and a tie, but I'm by no means 
through playing. Of the four Silver- 
Ware games, Reversi is the only one I'm 
keeping in my Model 100. 

I can recommend Reversi because it 
takes new life in a lap-sized version, but 
the other Model 100 games have no real 
attraction except portability. Probably 
soon there'll be adventures with plots as 
elegant as the save-to-RAM feature, or 
arcade games that aren't anchored by 
plodding Basic. The Model 100 will be a 
great game computer. It just isn't one 
quite yet. ■ 
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Mkrospooler Buffer/Interface 
ConsoKnk Corporation 
1840 Industrial Circle 
Longmont, CO 80501 
$199 (16K parallel to parallel) 



by Mare-Anne Jarvela 
80 Micro Technical Editor 

If you've ever waited impatiently for 
your printer to stop printing so you 
could use your computer again for other 
tasks, here's a microspooler that makes 
work much easier for you. 

The rnicrospooler stores data until the 
printer is done, letting you continue your 
work. Data acceptance rate is up to 5,800 
characters per second. 

You can also use the microspooler be- 
tween a phone modem and a printer, or 
the modem and your computer. 

The four spooler models available in- 
clude parallel to parallel, parallel to serial, 
serial to serial, and serial to parallel con- 
figurations. The model I describe in this 
review is parallel to parallel. 

You can configure each model to store 
16K, 32K, or 64K of data. The price is 
slightly higher for 32K and 64K, and 
serial models are more expensive than 
parallel. 
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The microspooler is small: 6.3 inches 
high by 2.6 inches wide by 8.3 inches 
deep. It's a white box with black edges 
that weighs two pounds, 15 ounces and 
stands vertically to save space. 

A two-digit numeric display on the 
front is the status readout that tells you 
how much data is in the spooler or how 
many copies are left to run. On the 
front you'll also find the copy/pause 
button and the reset button. 



"The microspooler 

stores data until 

the printer is done, 

letting you 

continue your work. " 



The back has two ports, one for input 
and one for output. The on/off switch 
is also on the back. Connectors for 
parallel ports are 36-pin Centronics 
compatible; the input port is the recep- 
tacle and the output port is the plug. For 
serial ports, the input port is the DB-25S 
receptacle and the output port is the 



DB-25P plug. 

Using the Microspooler 

The microspooler hooks up to most 
standard printers, but lack of standard- 
ization in the printer industry might give 
you problems in getting the right kind 
of cable for your printer. Consolink is 
helpful if you need advice or help in 
building your own cable. 

It's simple to hook up a parallel 
printer and microspooler. With the 
serial microspooler or printer, you have 
to set a few switches. The serial ports 
also have selectable baud rates. The 
manual is easy to follow and tells you 
exactly what to do. 

When you first turn on the micro- 
spooler, you can perform a self-test. 
Press and release the reset button while 
holding in the copy /pause button. This 
is a software test of ROM (read-only 
memory). 

If this test is successful, your printer 
tells you ROM is OK and how much 
memory is available. Now you can start 
filling your buffer. 

The minute you start sending data 
from your computer to the printer, the 
microspooler fills up and control re- 
turns to the computer. The printer starts 
printing simultaneously. The status 
readout changes from 00 to 01 (IK) and 
so on as you send data. 

When you stop filling the buffer, the 
readout decreases until it reaches 
when the printer finishes printing. Reset 
the buffer to 00 if you don't want an ex- 
tra copy. While the printer is running, 
you can press the copy/pause button if 
you need to change the paper or make 
adjustments. 

When printing is complete, press the 
copy/pause button for one more copy 
of whatever is in the microspooler's 
memory. It's also possible to preset the 
number of copies (up to 99) you want 
before you start printing. Press the 
copy/pause button until the desired 
amount of copies appears on the 
readout. 

You also have the option of pausing 
after every copy. The microspooler also 
has a pause on form feed function. 

I found the microspooler simple to 
install and easy to use. It's a helpful tool 
if you have a lot of printing to do. The 
microspooler frees you and your com- 
puter to do other things while the print- 
er works. All in all, the microspooler is 
a good buy. ■ 
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THE WAIT IS OVER 

CP/M 

EXCLUSIVELY FOR THE 

Model 4 



Now, for the first time, unleash the powerful features resident in your Model 4 computer. Open up the vast 
store of CP/M software such as WordStar" . dBASE II and Multiplan™, along with thousands of others. 



• Includes MODEM 7, a powerful public domain communica- 
tions program for file transfer and remote data base access 
such as CompuServ and the Source. 

• Supports 80 x 24 video, reverse video, direct cursor 
addressing and more. 

• Utilizes the Model 4 function keys and allows user defined 
keys. 

• Auto Execute command for turnkey applications. 

• FORMAT utility permits up to 52 disk formats to be con- 
structed, all menu driven. 

• Fast backup routine with verify for mirror image copies. 

• All support programs are menu driven for ease of use 

• Ready to run in the standard 64K Model 4. The additional, 
extra cost, 64K RAM upgrade not required. 

• Complete with over 250 pages of comprehensive user 
documentation. 

AVAILABLE NOW FOR IMMEDIATE SHIPMENT $ 199.95 

The full line of MicroPro software is now available formatted for the Model 4 using our CP/M Each disk is already configured and ready to run Just install 
the printer of your choice and go 



Includes INTERCHANGE ™. a utility that allows reading, 
writing and copying 20 different manufacturers' disk 
formats such as IBM, KAYPRO, OSBORNE. XEROX, etc. 

Includes MEMLINK™, a unique feature that uses the 
optional 64K RAM memory as a fast disk drive. 

Complete with all these CP/M utilities; ASM, DDT, DUMP, 
ED, LOAD, PIP, STAT and SYSGEN. 

Operates at the 4Mhz clock in the standard Model 4 mode. 

NO HARDWARE MODIFICATIONS. Just insert the disk and 
boot. 

NO COPY PROTECTION. Backups may be made for your 
own use and protection. 

The CONFIGURATION program supports a full range of 
5-1/4'" disk drives: 35, 40, 77 and 80 tracks, single and dual 
sided in any combination as well as the standard Model 4 
drives. 



WordStar Fast memory mapped version $250 

MailMerge* Multi-purpose file merging program 125 

SpeHStar" 20.000 word proofreader on a disk 125 

Starlndex 1 " Creates index and table of contents 95 

WordStar Professional All the above for only 450 



InfoStar'" Advanced DBMS $250 

ReportStar'" Report generator & file manipulator 175 

DataStar'" Data entry and retrieval package 150 

SuperSort " Fast and flexible sorting is yours 125 

CalcStar™ Advanced electronic spreadsheet 95 



ORDER INFORMATION 

Call now ana your order will be shipped at once from our 
Dallas warehouse We accept American Express. 
MasterCard. Visa, and most any other form of payment 
known to man Credit cards are not charged until your 
order is shipped Add $4 UPS surface shipping and 
handling on orders within the 48 States. No State Sales 
Tax on software or shipments delivered outside of 
Texas No refunds Defective items are replaced upon 
return, postpaid 



ORDER NOW . . . TOLL FREE 

800-527-0347 
800-442-1310 



The Tol Free lines are for orders only 
Specifications subject to change without notice 
CP/M is a Trademark of Digital Research. tnc : Interchange and Memfcnk are Trademarks of Montezuma Micro. TRS-80 is a Trademark 
Starlndex. InfoStar. ReportStar. DataStar. SuperSort and CalcStar are Trademarks of MicroPro International Corporation Multiplan is a 



128K MEMORY UPGRADE 

Our upgrade includes 64K of ISOnsec RAM. genuine 
PAL* chip and instructions for JnstatotKXi. This kit will 
upgrade your 64 K Model 4 to 1 28K and aHow the use of 
our MEMLINK and TRSDOS 6.x MEMDISK Comes 
with a full 1 year guarantee. 

A BARGAIN AT ONLY $99.95 



c Copyright Montezuma Micro 1983 

of the Tandy Corporation. WordStar. MaiMerge. SpeiiStar. 
Trademark of Microsoft 




NlONTEZUNUV 
NUCRO 



214-339-5104 

Redbird Airport. Hangar # 1 8 

P O Box 32027 

Dallas Texas 75232 



' WE KEEP YOU RUNNING ' 




s See List ol Adverf/sers on Page 291 
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TIRED7I 

of typing DBfc 1, COfT "FILSMAMI": 1 TO 

"nUNJUO": 0, rOMB "TBJOUkMME": 0. LIST 
"mnUlO": 1, LOAD """mm" (P = 3), 

MMUVI = and on and on and on) 
Then you are ready tor DOSTAMDt Imagine 
over 140 commands that TOU define, exe- 
cuted with ONLT ONE OR TWO KEYSTROKES 
Instant sorted directories with 1 key. Load 
Basic, protect memory, run your program 
with 2 keystrokes. List a rile to the screen or 
the printer, print a directory, copy a rile 
from one disk to another, copy the entire 
disk and lor Newdos BO owners, change a 
PDRIVE with 2 keystrokes 
Your DOS has a lot ol great features The 
trouble is. you have to remember all those 
commands. With DOSTAMZB those com- 
mands are 1 or 2 keystrokes away. Nothing 
to remember and nothing to forget, Just 
use it* 

DOSTAMUt is configured tor each DOS. 
that is. we use the SPECIAL features in TOUR 
DOS tor the GREATEST utility you'll ever 
want Once you use DOSTAUnt you'll won- 
der how you got along without it. Now 
available for NEWDOS80. DOSPLUS. MULTI- 
DOS and LDOS for $49 95 complete with the 
easiest instructions you'll find By the way. 
DOSTAim is written in FAST Z 80 machine 
code. 

SPECIAL 
INTRODUCTORY OFFER,, 
$39 96 




DEALER [NQU1BIES DOTTED 



■c 



167 



CDC 

Serious Software for the 80s 

rnowen Stree' Vac Nuys CA 91405 i213> 997-969? 

Toll Free Order (800) 892-5235 
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Using Scrip sit 

William J. Haga 

Wadsworth Electronic Publishing Co. 

10 Davis Drive 

Belmont, CA 94002 

Softcover, 250 pp. 

$21.95 

by S.F. Tomajczyk 
80 Micro staff 

It's said that you can't teach an old 
dog new tricks. It seemed true until I 
began reading Using Scripsit by William 
Haga. That's when I realized that, al- 
though I've actively used Scripsit for the 
past year, I haven't really been using it. 
Using Scripsit is truly user-friendly. It 
represents what a reference book should 
be: comprehensive and informative con- 
cerning the subject matter, readily 
accessible for locating specific informa- 
tion, and most importantly, communi- 
cative in an understandable fashion. 



BREAK FREE FROM "CANNED" SOFTWARE 



leO** 1 




to CONTROL YOUR TRS-80 

Better BASIC and Machine Code 

by Ian Stewart, Robin Jones, and Nevin B. Scrimshaw 

CONTROL YOUR TRS-80 will teach you techniques 
for writing more creative programs quickly and clearly 
while having more fun along the way. Plus, you'll be 
introduced to MACHINE CODE — the computer's 
inner language. Let this book show you how to: 
■ Program a simple word processor 

* Build a game tree 

* Perform a real-life simulation study 

* Take advantage of split-screen capacity 
AND MORE 



CONTROL YOUR 

TRS-80 



Better BASIC and Machine Code 




In short, everything you need to 

CONTROL YOUR TRS-80! 

Paparback/200 pp/ISBN 3 7643 3143-7/J14.95 

TO ORDER YOUR COPY — CUP THIS COUPON 



From BIRKHAUSER BOSTON, Inc. 
- BOOKS TO MAKE YOU 
COMPUTER- FRIENDLY 



-458 



Please rush me copy(s) of 

CONTROL YOUR TRS-80 

Total purchase $ 

Shipping fir Handling $ 

Mm. randnli pWaaa add 5% hIm tax TOTAL: $ 

Bill me D 

I enclose L: check ~ VISA HMastercharge 

card no. «xp. date 

Signature 



2.00 



(please print) 

Name 

Address 

City 



State. 



Zip. 



Send To: BIRKHAUSER BOSTON. Inc. 
Bos 2007 M 
Cambridge, MA 02139 



The book discloses everything you 
ever wanted to know about using Scrip- 
sit's capabilities on your Model I or III. 
The information applies only to Scripsit 
versions 3.2 and 1.0, so if you have 
Scripsit on a Model II the book won't 
be of any use to you. 

Using Scripsit employs a hands-on 
approach to learning to get the most out 
of Scripsit. You should read it with your 
computer in front of you. William Haga 
presents each procedure in numbered 
steps that tell you what to do, what your 
video display looks like when you do it, 
and how the printed result looks on 
paper. 

You'll never feel lost or confused. 
And to make certain that you won't, 
Haga includes exercises to test your 
growing skills in using Scripsit. 

At the end of each chapter, a Com- 
mon Mistakes section lists the problems 
and solutions you're most likely to en- 
counter. Also, the left margins are filled 
with comments that clarify the text, 
provide helpful and humorous tidbits, 
and direct you to other sections of the 
book for further information. 
At a Glance 

The first section of Using Scripsit is 
an introduction aimed at the first-time 
user. In Chapters 1-7, Haga method- 
ically takes the reader through the fun- 
damentals of disk use, writing and for- 
matting the video screen, saving and 
retrieving Scripsit files, basic editing 
commands, and formatting and print- 
ing a document. 

The second part of the book deals 
with more complex applications for the 
experienced user. Chapters 8-15 include 
valuable information and explanations 
of Scripsit that you'll refer to time and 
time again. They cover block moves, 
search and replace routines, creative 
formatting, and chain loading. 

They also clarify the forbidding 
headers, footers, and page numbering 
system, as well as clearly explain the 
Hot Zone of Scripsit's hyphenation 
function, and how to save a half-ruined 
printout without reprinting the entire 
document. 

The best is yet to come: In the re- 
maining three chapters, Haga shows 
you how to merge VisiCalc with Scrip- 
sit, create personalized form letters, use 
Scripsit to write computer programs in 
Basic, and print documents in special 
formats. 

Continued on p. 61 
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BASF QUALIMETRICFLEXYDISKST 

BUILT FOR ETERNITY-WARRANTED FOR A LIFETIME 



BASF Qualimetric FlexyDisks' offer 
you more... an extraordinary new 
lifetime warranty* The BASF Quali- 
metric standard is a dramatic new 
international standard of quality in 
magnetic media. ..insurance that 
your most vital information will be 
secure for tomorrow when you enter 
it on BASF FlexyDisks today. 

We can offer this warranty with 
complete confidence because the 
Qualimetric standard reflects a con- 
tinuing BASF commitment to perfec- 
tion... a process which begins with 
materials selection and inspection, 
and continues through coating, pol- 
ishing, lubricating, testing, and 
100% error-free certification. Built 
into our FlexyDisk jacket is a unique 
two-piece liner. This BASF feature 
traps damaging debris away from 
the media surface, and creates extra 
space in the head access area, insur- 
ing optimum media-to-head align- 
ment. The result is a lifetime of 
outstanding performance. 

When your information must 
be secure for the future, look for 
the distinctive BASF package with 
the Qualimetric seal. Call 800-343- 
4600 for the name of your nearest 
supplier. 




Enter tomorrow on basf today 

•Contact BASf for warmly details C 1982. BAU Sptffm 'Corporation. Brdtoid. MA 



BASF 
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Diskette "Give- A-Wav? ' ' ^k 

/wdge /or yourself! x*:> 

10 pack in Library Case — New Low Price 
SS/DD — with hub ring 



Introducing the NEW Tabor 3VV Disk Drive 

Storage 737,280 Bytes — 2 in one Case $ Call 

SOFTWARE SUPPORT INC. presents Software 
Ldos 1 Improved — New efficient improvements for your Model l/III/IV LDOS* System 

With Our Program Enhancements You Will Now Be Able To Accomplish: 

1. Double the speed of disk operations 

2. Reliable fast clock boot (with enhanced hardware — such as the Holmes Sprinter 1 '') 

3. Improved dual sided and 80 track disk drive operations. 

Model l/III/IV Instapatch ,M On Disk $29.95 

Esylst™ — Neatly and automatically print out any number of your basic programs. 

Page numbering, top of page, skip, no limit to the number of programs printed at one 

setting. Fast — Easv — Efficient. Use with Newdos\ Dosplus", Ldos' 

For Your Model l/III/IV On Disk $19.95 

DRIVE A HARD BARGAIN™ 

We have rewritten the book on Hard Drives. Our hard drives are the fastest, the most versatile (Newdos'\ 
Dosplus", and Ldos* drivers), the most adaptable, (runs on the Model I, Model III and Model IV using the 
same adapter), but, we must admit, it is the lowest (in cost that is) starting at for a 5 meg. (formatted) 

primary and $695.00 for a secondary system. All systems come complete with power supply, case, cables and 
Instapatch ,NI software- drivers for fast-trouble-free installation and operation. Nothing else to bu>! 

Self Test — A utomatic Diagnostics Error Correction — ECC Daisy Chain up to 40 Megabytes 

Warranty — ONE FULL YEAR. Call for details 
TOLL FREE ORDERING GENERAL AND TECHNICAL 

1-800-343-8841 1-617-872-9090 

SOFTWARE SUPPORT, INC. 

One Edgell Road, Framingham, MA 01701 (617) 872-9090 

Hours: Mon. thru Fri. 9:30 am to 5:30 (E.S.T.) Sa 10 am to 4:30 pm 
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TERMS: 

M.C./Visa/Amc.x and personal 
checks accepted at no extra charge. 
C.O.D.. please add $3.00. 
Shipping: Please call for amount. 
Not responsible for typographical errors. 



Canada 
MICRO R.G.S. INC. 

751. CARRE VICTORIA. SUITE 403 
MONTREAL. QUEBEC. CANADA. H2Y 2J3 

Regular Tel. (514) 845-1534 
Canadian Toll Free 800-361-5155 



Dealer inquiries invited. 

A ™ Apparat Inc. 
B ™ Microsystems Software Inc. 
C ™ Logical Systems Inc. 
Copyright 1983 
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!2 Tandon — Siemens — Remex — MPI — Teac — Shugart — Tabor * 
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* Our Disk Drives Are Capable Of Single And Dual Density Operation S3 

to Q 

The Newest Technology Major Brands Capable Of Operating On: 
S RADIO SHACK' — HEATH/ZENITH 1 — APPLE/FRANKLIN 4 



Super Sale on New Disk Drives 

| Starting at $169.00 

Tandon — Siemens — Remex — MPI — Teac — Shugart — Tabor 






i IBM/PC -TEXAS INSTRUMENTS 6 & MOST OTHER COMPUTERS 
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S Complete Systems from $999.95 

Diskette Breakthrough — 10 Pack in Library Case — $\jk95 
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y-J Model l/lll/IV Memory Upgrade $ Call Toll Free ^ 

Printers — Daisywheel/Dot Matrix $ Call Toll Free a 

a Diskettes in Library Cases $15-35 New low Price < 

* Cases and Power Supplies — (Single-Dual-1/2 Height) starting at $ 44.95 (J! 



Printer Buffers 8K to 512K starting at $143.95 

Percom Double Density Controller (Model I) $ Call Toll Free c/j 

Holmes Model l/lll Speed-up Mod-VID/80 starting at $90.00 * 

> Gold Fingered Edge Card Extenders starting at $13.00 § 
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Canada 
MICRO R.G.S. INC. 
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EFO 



A maintenance tool for "CMD M 
files. Allows you to append 2 
or more files, reorganize, and 
offset. Extract LIB members. $40 



Z-80 assembler/editor supporting 
nested macros, conditionals, and 
includes. PRO-CREATEs a powerful 
tool that is easy to use. $100 



S 



Transfer files directly to DOS 
6.0 from selected CP/M media. 
PRO-CURE supports Omikron, IBM, 
Kaypro, and Osborn formats. $50 



Disassemble directly from disk 

files or memory. The disk file 

source output generates 100% 

labels and handles data. $40 






kf^SA 



A 4-function utility package 
that is loaded with power: 
D0C0NFI6; MEMOIR; PARMDIR; and 
I SWAP. A must for JCL users. $40 



An on-line quick reference card 
at your fingertips. Screens for 
DOS and BASIC. Create your own 

custom HELP files, too. $25 



IMF 






This is the LC C-language 
compiler now compatible with DOS 
6.0. LC includes the PRO-CREATE 
macro-assembler package. $150 



A utility to build and maintain 
your own partitioned data sets. 
Collect many small files into 
one and save disk space. $40 



H5J 




A block-graphics screen editor 
which is used to create graphic 
images for BASIC, assembler 
programs, or printing. <cq 



U.S. Shipping: PRO-LC, $5; PRO-CREATE, $4; All 
others $2. COD add $1.50. VI SA/MC/CHOICE. 

MISOSYS 

P.O. Box 4848 - Dept M 

Alexandria, Virginia 22303-0848 

703-960-2998 

LDOS is a trademark of Logical Systems, Inc. 
TRSDOS is a trademark of Tandy Corp. 



If you've been playing 

the l-know-l-have-it- 

but-l-can't-find-it 

Hidden Disk game, here's 

a Push Button Solution 




The ARRANGERn. It makes your computer do all 

the work in organizing and maintaining your disk 

program library It s the only system with an 

1 1 000 program 255 program name per disk capacity 

The flow of operation is smooth and logical 

you're never left with a blank screen 

AKKANGERii marks your disks by recording 

a name on each disk directory track It stores 

recalls all oisk information using random access 

for highest speed, automatically recognizes 

35 40. or 80 track Single Double sided S D 

density disks and all DOS for TRS80 models 

IV III. I (d den) $49.95, free shipping 

Triple-D Software 

Box 642 Layton. Utah 84041 (801) 546-2833 

VISA MASTERCARD AMERICAN EXPRESS '' 489 




$19.95 

SCOTCH HEAD 
CLEANING KITS 

5'V & 8" KITS 



SCOTCH 
DISKETTES 

$20.95 I 

PER 10-PACK 

(5 Box Minimum 
Purchase) 

5' 4 Single Sided. 

Smgle Density _■_ _ ($49.95 VALUE) 

1 V^ 

LIMITED TIME OFFER 
E FREE CREDIT CARD CALCULATOR 

./ (With Purchase of any j — 10 Pack Boxes) \ 



SCOTCH 
DISKETTES 

$22.50 

(1 Bjx Purchase) 

5 ' 4 Single Sided. 

Single Density 

($49.95 VALUE) 



i - ./ -i 

• Hard Storage Boxes 

• Pull Tabs & Labels 

• Individual Envelopes! 



^•_ Lowest Wholesale \ 
Z^Prices m the Industry 

•i n » 

_• Lifetime Wamnlv on \ 
— Workmanship of Diskettes 



Single-Day Processing on Most Orders 

— ar --^^b. \ 

CALL ABOUT OUR FULI LINE OF WORD PROCESSING 

EQUIPMENT. INCLUDING MINI CASSETTES, 

COMPUTFR TAPE. DiSK n ACKS. STATIC MATS. ETC 

DISKETTE JUNCTION 

/5918 SMITH ROAD • CLEVELAND. OHIO 44142\ 

OHIO RESIDENTS (216)6/'6 5640 TOLL FREE (800) 321 5134 

Visa • MasterCard • Checks • Money Orders • C OD 

/ OliPlus Handlinq)H_l \ 
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Continued from p. 56 

He explains, step by step, how to 
send Scripsit files by phone across town 
or across the globe, and how to 
manipulate your operating system's 
password protection system to protect 
your Scripsit files from prying eyes. 

When I reached the end of Chapter 
18, I was convinced that William Haga 
had a sadistic streak in him. Why else 
would he continue to throw so much 
valuable information at me in his ap- 
pendixes? 

One appendix provides the symptom, 
cause, and solution to errors you fre- 
quently encounter. It covers everything 
from Scripsit error messages to printer 
difficulties, and from drive unit prob- 
lems to DOS troubles. 

Another appendix lists reference 
sources that include computer mag- 
azines, books and manuals, and inde- 
pendent sources of equipment and 
software. And yet another appendix 
functions as a glossary for Scripsit 
users! The author had done the impossi- 
ble: I actually learned some new tricks. 

What exactly did I learn? Well, did 
you know that Scripsit has a widow sup- 



pressor? That you can change the screen 
width to up to 132 characters? That 
with the Search command you can find 
several variations of a word for spelling 
errors? That Scripsit can hyphenate 
wrapped-around words with its hyphen- 
ation block? 

That you can create a paragraph pan- 
try to easily and quickly customize form 
letters? Or that you can chain files to- 
gether in order to print and number an 
entire document? I didn't until Using 
Scripsit told me. Now 80 Micro's 
technical editors ask me for advice on 
Scripsit. 

With the information in this 250-page 
book, I've found Scripsit to be much 
more powerful than I thought. Now I 
use it to finish office paperwork more 
quickly, write and edit chapters in my 
book, create and print form letters and 
memos, and write Basic computer pro- 
grams. 

For the skeptics out there, Using 
Scripsit does have its drawbacks, but 
they are trivial. For instance, I feel that 
the chapters concerned with screen edit- 



ing should have been introduced earlier 
in the book. 

This would let you go from booting 
up Scripsit, writing and formatting the 
video display, to screen editing, saving 
the file, and formatting and printing the 
document. Trivial, but it would make 
for a more useful chronological 
reference. 

The only legitimate complaint I have 
deals with the omission of an easy refer- 
ence sheet that lists in abbreviated form 
all the Scripsit commands and functions 
so you don't have to browse through the 
entire book for an obscure command. 

Such a sheet would save a lot of an- 
guish and time. Haga does, however, 
include an incomplete facsimile that 
lists only the screen format defaults. 
Useful, but not what I was looking for. 

Using Scripsit is comprehensive, well- 
written, and useful. Every Model I/III 
owner with Scripsit, whether a first-time 
user or an old dog, can benefit and learn 
from this book. 

It belongs next to your computer and 
its operating manual. Using Scripsit will 
soon become your most valuable guide. ■ 
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CP/M 2.2, MBasic 80 

on the Mapper I (48K)/ffl (64K) 

Omikron Systems 

1127 Hearst St. 

Berkeley, CA 94702 

Models I and HI, 48K 

One disk drive 

Model 1, $139 

Model m, $199 

by John B. Harrell Dl 

Omikron Systems distributes hard- 
ware and software for TRS-80 
computers that allow full implementa- 
tion of the CP/M operating system — 
not another attempt to work around the 
TRS-80 internal memory structure. I 
used the Mapper and its software almost 
daily for three months. The system per- 
formed flawlessly — no glitches, sur- 
prises, or snags. 

Because the hardware used in this 
modification is part of another review 
(see "CP/M III Ways," p. 122), I'll 
consider only the CP/M 2.2 operating 
system and the MBasic 80 interpreter 



distributed with the hardware modifica- 
tion as the starter system. 

CP/M Operating System 

CP/M isn't just another disk operat- 
ing system; it's the most widely distrib- 
uted operating system for the 8080 mi- 
croprocessor. CP/M derivatives now 
exist for the 8086 family and the 68000 
family of 16-bit computers. Radio 
Shack's introduction of the Model 4 
with CP/M reinforces the fact that 
CP/M has become the de facto industry 
standard in operating systems. 

The CP/M operating system is a 
monitor and control program for mi- 
crocomputer systems that use floppy or 
hard disks for back-up storage. It is es- 
timated to be in use in over half a mil- 
lion microcomputer systems through- 
out the world. 

The system distributed with the 
Omikron Mapper I/III modification is 
CP/M 2.2. CP/M is logically divided 
into four parts: the Basic input/output 
system (BIOS), the Basic disk operating 
system (BDOS), the console command 
processor (CCP), and the transient pro- 
gram area (TPA). 



These component parts provide fea- 
tures found in many other systems 
available for TRS-80s. For example, the 
BIOS provides system-dependent prim- 
itive operations necessary to access the 
disk drives and to interface with the 
standard system peripherals, BDOS is 
the disk management part of CP/M, 
and the CCP provides the interface be- 
tween the operator and the system. 

CP/M commands break down into 
three categories: built-in commands, 
transient commands, and user-imple- 
mented commands. See Table 1 for the 
commands in the first two groups (stan- 
dard on CP/M system disks. The latter 
group are those commands pro- 
grammed by the user in Assembly lan- 
guage and executed from the disk (sim- 
ilar to CMD files). 

In addition to the standard Digital 
Research software and documentation, 
Omikron provides many specialized 
features particular to the TRS-80 imple- 
mentation. This documentation is pro- 
vided in The Omikron Mapper Owner's 
Manual. This contains all the instruc- 
tions on the Mapper's installation and 
the documentation for the many special 
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features required for TRS-80 systems. 

One example of the customization 
Omikron provides is a sophisticated 
keyboard driver that maximizes the 
capabilities of the CP/M software inter- 
faced with the TRS-80. Features include 
full keyboard debounce, a single-key 
control key, upper-/lowercase support 
with caps lock, and production of the 
full 128 characters in the ASCII set. 



Several of the keys have control func- 
tions for single-key ease. 

Omikron provides serial and parallel 
printer drivers to support all printer in- 
stallations. The default printer driver is 
parallel, supporting the majority of Ra- 
dio Shack hardware configurations. 
The routine Serial.COM (provided by 
Omikron) establishes the serial driver 
and initializes the RS-232 interface to 



REN 
Save 



Type 



User 



Bull-In Commands 

Command Description 

ERA Remove the specified file(s) from currently logged-in or 

specified disk. 
DIR List the names of all files in the specified directory on 
the console device. 

Rename the specified file to the designated name. 
Save the specified number of pages (256-byte blocks) to 
the file designated. Pages are taken from the Transient 
Program Area beginning at 100 hexadecimal (hex). 
Type (display) the contents of the specified ASCII file 
to the console device. 

Allow specification of different user numbers for 
maintenance of separate files in the same directory. 

Transient Commands 

Command Description 

ASM Load the CP/M assembler and assemble the specified 
program. The Assembly source code is assumed to be 
in Intel source mnemonics and the assembler produces 
8080 machine language in the Intel hex format. 
DDT Allow dynamic interactive testing of programs while 
operating within the CP/M environment (DDT in- 
cludes a limited disassembler). 
Dump Dump the contents of the specified file to the system 
console in hex form (displays the file's contents, repre- 
senting each byte with ASCII letters for the hex codes). 
ED Allow the creation and editing/correction of ASCII 
character files in the CP/M environment. 
Load Load the assembled program in the Intel hex format 
and convert it to an executable machine code file. 
MOVCPM Allow reconfiguration of the CP/M system for any 
memory size. 
PIP Allow movement of files from one form of storage to 
another. You can specify many powerful parameters to 
control file movement. 
STAT Provide status and general purpose access to pertinent 
system and disk parameters from the CP/M command 
level. 
Submit Allow the submission of CP/M commands in a batch 
manner. This is similar to the TRSDOS Do command. 
Parameter substitution is allowed within Submit files. 
The compiled Submit file is executed after Submit 
completes. You can chain Submit commands. 
SYSGEN Allow the generation of a system disk by properly in- 
itializing the CP/M operating system on the disk. 
XSUB Extend the power of Submit to allow input to user 
programs as well as to the Console Command Pro- 
cessor. 

Table I. CP/M Version 2.2 Commands. 



the default conditions established with 
the sense switches. 

The video driver emulates a Soroc 
IQ120 video terminal on the TRS-80. It 
provides full upper-/lowercase support 
and maintains full graphics capabilities. 
Also, the video driver provides a routine 
that allows cursor addressing (position- 
ing the cursor to a specific location on 
the screen). 

Omikron provides two versions of 
SYSGEN and Format on the distribu- 
tion disk. The manufacturer specially 
tailors a version of each utility to the 
514- and 8-inch disks normallv used 
with CP/M on the TRS-80s. 

OMCOPY.COM is a disk copy rou- 
tine provided by Omikron to allow 
more rapid back-ups. The standard 
routine, Peripheral Interchange Pro- 
gram (PIP), provides a method to copy 
all files from one disk to another. The 
operation is similar to the "back-up by 
class" LDOS uses or the "copy by file" 
NEWDOS80 uses. 

To circumvent the delay inherent in 
this method, OMCOPY provides a 
track-by-track back-up of one disk to 
another. Options allow copying only 
user files, only system information, or 
the entire disk. 

MEMTEST.COM and DSKTEST 
.COM evaluate your system's perfor- 
mance. The functions of each are ob- 
vious. 

Setup.COM lets you customize the 
Omikron software according to your 
personal preferences and as certain soft- 
ware applications require. You can 
store the options changed by Setup per- 
manently on the system disk. 

TRSCPM.COM provides a mecha- 
nism to transfer files from TRSDOS 
formatted single-density disks to CP/M 
formatted disks. Both systems use a 
soft-sector disk; however, both sector 
lengths and directory structure differ. 
This program moves data from the 
TRSDOS-format system to the CP/M 
system. 

This feature also allows moving Basic 
programs from one system to the other 
as long as you save the TRSDOS pro- 
gram to the disk in ASCII format. The 
program transfers the files sector by sec- 
tor, copying extraneous information in 
some cases (the bytes past the TRSDOS 
end-of-file location, for instance). 

In addition to the many utilities in- 
cluded on the system disk, you can see 
from Table 1 that the standard CP/M 
system disk includes a powerful context 
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editor (ED), an Intel-compatible 8080 
assembler (including the ability to per- 
form conditional assembly), and a dy- 
namic system debugging monitor 
(DDT). 

Microsoft Bask 80 

CP/M does not come with a Basic in- 
terpreter. On many systems, you have 
to add this feature by purchasing an in- 
terpreter compatible with the operating 
system. Owners of TRS-80s have been 
spoiled by having a high-quality Basic 
interpreter available at the flick of a 
switch. 

The Omikron Mapper package comes 
with the industry-standard Microsoft 
interpreter in two versions for 8080/ 
8085/Z80 microprocessors and CP/M, 
MBasic.COM 5.2, and OBasic.COM 
4.51. OBasic is for those users who have 
software compatible with this inter- 
preter and who don't wish to change to 
MBasic. 

MBasic 5.2 is the most extensive and 
powerful Basic interpreter available for 
microprocessors. It meets the require- 
ments for the Basic ANSI standard and 
supports many features not normally 
found in other Basic interpreters, such as 
complex string manipulation routines. 

MBasic is similar in almost all re- 
spects to the Basic interpreter imple- 
mented on the Model 4. In many re- 
spects, this is the same Basic currently 
on the Models I and III. 

The most significant difference from 
Model I III Basic is in variable naming 
conventions. MBasic allows variables 
names to be of any character string (let- 
ters, numbers, and decimal point) up to 
40 characters, whereas Model I/III Ba- 
sic recognizes variables names with a 
maximum of two characters; the re- 
mainder of the variables name is insig- 
nificant. 

In MBasic, you can't use reserved 
words as variables names but a vari- 
ables name can contain a reserved word 
within it. This generally leads to a pro- 
gram error of some type in Model I/III 
Basic. 

This feature causes most of the in- 
compatibility between MBasic and 
Model I/III Basic. In MBasic, you must 
surround each reserved word with spaces 
or delimit it in some other manner. The 
internal structure of the tokenized pro- 
grams is different. 

In order to transfer Basic code from 
the Model I/III to the CP/M system, 
you must first write or edit the program 



so the interpreter can clearly identify the 
reserved words (contrary to the pro- 
gramming hints that obtain maximal 
speed from these Basic programs) and 
you must store the programs on the 
TRSDOS disk in ASCII format. This 
requires a significant programming 
conversion for those programs written 
without spaces in the lines. 

"New" features of MBasic include 
the while/wend structure for program 
control, the ability to call a subroutine 
written in another language and pass 
arguments to it, chaining programs 
while preserving variables, erasing array 
variables under program control, re- 
numbering program lines, and swap- 
ping variables in a single statement. 
These features are new to those who 
have used Model I/III Basic exclusively. 

One significant feature implemented 
in MBasic is the Call subroutine. 
MBasic provides a linkage to external 
subroutines via a Call statement. 

This subroutine linkage allows prep- 
aration of segments of code using an 
assembler or other language translator 
and calls it from MBasic with a 
sophisticated argument list. The calling 
linkage is compatible with the Micro- 
soft compilers (Fortran, Cobol, and 
Bask), letting you compile complex 
routines for speed and use them directly 
from MBasic. 

Conclusion 

As anyone experienced with the 
CP/M system knows, its heart is the 
BIOS implementation of system- 
specific functions. Omikron has out- 
done itself with a superb BIOS module. 

When I ran some benchmark tests on 
the MBasic interpreter, I was astounded 
to find that this interpreter outperforms 
its relative in the Model I TRS-80 mode. 
Operating the interpreter in a Model I 
with no speed-up, I obtained execution 
times indicating a significant increase in 
speed for equivalent routines (MBasic 
compared to NEWDOS80 Disk Basic). 

When you consider that MBasic al- 
lows 40-character names and requires 
that reserved words have some type of 
delimiter around them, this is even 
more surprising. 

As with any product, the Mapper 
software has some negative aspects. The 
distribution medium is the standard 
5 V* -inch disk. The CP/M software is 
written on this disk in 35-track format 
with 18 sectors (128 bytes) per track. 

Due to the CP/M format, these disks 
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From the people 
who brought you... 
Busines 



Busmesspaw-f- 
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Five NEW programs 

designed for the 
businessperson. 



Each on its own cassette 
with interesting manual. 




You have made BUSINESSPAK+ an over- 
whelming success! Now, we are introducing 
five new programs for the Model 100. 

PCSG continues to be first in innovative 
programming for the businessperson using 
the TRS-80 Model 100 Computer. 

Look at these five new programs. 

DATA+ $59.95 

With DATA+ the Model 100 becomes virtually a 
true data base. You can input data rapidly from 
a 16 field screen that you make yourself like our 
PUT+. Here is the difference: 
REVIEW / Using function key 1 you can recall 
any record, by searching any field. 
EDIT / Change or update any record you select, 
instantly on the screen. 

LIST / Using function key 5 you can print add- 
ress labels, list records or selected fields of records 
in columns or other configurations. You can 
even pause, and reset left margins. 
MERGE / Function key 6 lets you merge. You 
can automatically print any fields of any records 
into forms or letters, wherever you designate. 
With all four of these functions you have full 
search and selection capability. 

With LIST and MERGE DATA+ remembers 
your favorite formats, quickly defaulting to them 
by simply pressing the ENTER key. The added 
feature BUILD lets you build and print a file of 
unrelated records that could not be selected 
either alphabetically or numerically. 

On cassette with excellent, easy to understand 
manual. 



it n m 

TYPE+ $59.95 

The Model 1 00 now becomes, with the addition 
of any printer, the finest, most feature rich, 
electronic typewriter available today. You can 
type directly to the paper. (Some printers have 
a one line buffer.) 

SCREEN BUFFER / To allow you to edit before 
printing, you can control the screen buffer from 
1 character to the last line. 
CENTER / Center on / center off controlled 
with function keys. 

MARGINS / Set margins with function keys. 
Audible end of carriage, automatic carriage 
return and function key Tab Set. 
DIRECT CONTROL / If your printer responds to 
backspace commands, you can backspace and 
overstrike. Paper advances with carriage return. 
With TYPE+, everything you print is stored 
simultaneously in a RAM file, formatted as you 
composed it. You can reprint instantly, or edit 
it in the file. On cassette with excellent, easy 
to understand manual. 

TUTOR+ $29.95 

Learn keyboard skills by playing a delightfully 
exciting game. While experiencing the thrills of 
a space invaders type game you become profic- 
ient at manipulating the keyboard. A game that 
forces you to learn touch typing, utilizing all 
the keys. On cassette with excellent, easy to 
understand manual, 

PCSG provides hotline software support 
for the Model 100. Give us a call at 
1-21 4-351 0564. 



SORT2+ $29.95 

You can sort a file in place with SORT2+. It 
consumes only 1 k free memory, while sorting file 
in RAM you entered with PUT+ or DATA + . Our 
original SORT+ allows you to sort from cassette, 
but requires more memory while sorting. SORT2+ 
is for those times when memory or cassette sorting 
is a problem. SORT2+ also has upper case fold, 
and true numeric field sort. On cassette with 
excellent, easy to understand manual. 

TENKY+ $59.95 

With TENKY+ the numeric keypad on your Model 
100 emulates both a ten-key desk calculator, and a 
financial calculator. The right side of the screen 
represents the tape, which can also be directed to 
a file and/or a printer. Ten working registers are 
visible on the left of the screen, each one function- 
ing independently as a calculator with functions 
including exponentiation and logarithms. Registors 
are accessible from each other, including the tape 
which stores up to 1 20 values, each associated with 
a note of up to 26 characters. 

Financial functions available at the touch of a 
key include IRR, MIRR, and NPV on up to 120 
cash flows, plus any of its six annuity variables 
(n, PV, FV, PMT, i). Function key F2 gives a 
printed amortization schedule, and businessmen 
will love the breakeven analysis they can receive 
simply by pressing function key PI. 

Portable Computer Support Group is 
pleased to offer these program additions. 
We endeavor to continue as The Leaders in 
Software for the Model 100. 



TRS-80 Model 100 is a 

trademark of Tandy Corporation 

©1983 Portable Computer Support Group 
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suffer a reduction of 10 percent capacity 
over the TRSDOS single-density for- 
mat. After creating a 40-track system 
disk, working user storage is 81K 
(82,944 bytes out of 92,160 bytes due to 
system overhead). Compare this to the 
102,400 bytes available on a 40-track, 
single-density TRSDOS disk. 

Because of the limited storage avail- 
able with the 5 14 -inch disk, Omikron 
has to delete some of the standard files 
resident on CP/M system disks in order 
to include their specialized programs. 
These deleted routines are available to 
you at a nominal fee of $25 from Omi- 
kron and include items such as the As- 
sembly source code to the BIOS and the 
Boot loader, MOVCPM.COM (relo- 
cates CP/M system BDOS and CCP for 
different memory configurations), and 
DEBLOCK.ASM (the source code for a 
CP/M disk deblocking algorithm). 

Unlike Level II Basic, the manual sup- 



plied with MBasic doesn't offer the 
beginner an easy understanding of the 
language. Since this is not the sole source 
of Basic for your computer, this should 
be no problem. 

Omikron now has a new software/ 
hardware package available that further 
increases the TRS-80's power. At addi- 
tional cost, they will provide TUR- 
BODOS and a replacement PROM chip 
for their Mapper installations. 

Consider the wealth of software you 
obtain in addition to the hardware mod- 
ification. CP/M 2.2 generally retails for 
approximately $150 and you must in- 
stall the system (this usually means 
rewriting parts of the BIOS to add func- 
tions or change existing ones- 
no easy task for a beginner). MBasic 
usually retails for approximately $249. I 
cannot imagine where else you can get a 
bargain like this. ■ 
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Busfnesspak + 

Portable Computer Support Group 

11035 Harry Hines Blvd. #207 

Dallas, TX 75229 

$89.95 

SORT2 + 

$29.95 

Model 100 

24K required 

32K recommended 

by Carl Oppedahl 

Businesspak+ is a nice collection 
of six programs for the Model 100. 
It augments the existing ROM-based 
word processing, telecommunications, 



and Basic routines that come as stan- 
dard equipment with the Model 100. 

Businesspak + contains Write + , a 
word processing program; EXPNS + , a 
simple spreadsheet program; Put + , a 
text entry program; Sort + , a routine 
that sorts records entered through 
Put + ; Telex + , a package that lets you 
use Action Telex, a commercial telex 
service; and Graph + , a program that 
graphs data entered to EXPNS + on the 
Radio Shack DMP-100 printer. 

Each program runs in Basic and relies 
occasionally on a machine-language 
routine hidden in memory. In addition, 
each relies on a corresponding do-file 
containing various operating param- 
eters. You can change the do-file, often 
called a SPEC file in the documenta- 

Continued on p. 69 
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2 Tanglewood 
Lexington, Kentucky 40605 

MasterCard or Visa orders call collect 
606/293-6561 
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Stretch the Twelve Days of 



Give a gift subscription to 80 Micro today 
and relax . . . you can't find a better gift for ac- 
tive computerists. Every issue gathers to- 
gether the latest programs and projects for 
Radio Shack's personal computers, business 
computers, and portables. Your favorite com- 
puterist will be busy year round with: 

Powerful Utilities— save time and effort 
and do more computing than ever before. Re- 
cent issues have included ways to improve 
Electric Pencil*, a program-to-program data 
transfer, and a cassette operating system. 

Programming Techniques learn how to 
program and spend less on software. Pick up a 
second language for special applications. Get 
faster results with machine-language sub- 
routines. . the monthly column The Next 
Step" shows how. 

Hi-res Graphics »akc better business 
presentations with fancy printouts. Illustrate 
games with eye-catching details. Create unique 
3-D art. It's all possible with articles on ad- 
vanced graphics techniques. 

Business Applications— increase office ef- 
ficiency. Learn the business models' different 
capabilities. And keep abreast of develop- 
ments for the Model 100* with reviews, appli- 
cations, and utilities in "ONotes." 



Exciting Games— enjoy arcade games, ad- 
venture games, and simulations. Use the pro- 
gram listings to add features to other games. 
Or record high scores in "The Gamer's Cafe." 

Two-way Communication— get definitive 
answers to technical questions in "Feedback 
Loop." Respond to articles, editorials, and 
news with "Input." Or submit an article for 
publication. 80 Micro is a forum for ideas, not 
a one-way street. 

"News" & "Remarks"— discover the latest 
industry trends and how they'll affect con- 
sumers. Learn about new services or novel ap- 
plications. And get the inside story with pub- 
lisher Wayne Green's outspoken editorials. 

Home and Hobby —break the ice at a party 
with a singing computer. Or make electronics 
projects easier with a circuit-board scanner. 
Whatever the subject, there's always some- 
thing of use in 80 Micro. 

Buyer's Guides— comparison-shop from 
home and save hundreds of dollars. Get all the 
facts on graphics software, printers, utilities, 
disk drives & disks, and more. 

Candid Reviews— use "Reviews" and "Re- 
view Digest" to find out a product's strengths 
and weaknesses before it leaves the store. 
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Christmas into Twelve Months 



Know all about the latest releases with "New 
Products.'' Now every purchase can be a 
sound investment. 

Hardware Projects— get quality equip- 
ment and hours of fun in the shop. Build a 
Model II* capacitance meter. Diagnose acous- 
tic couplers. Or repair digital circuits. Custom- 
ize any system to meet specific needs. 

In-depth Series— become a local expert in 
any field. Learn computer cryptology. or how 
to use data files. Give the Model I/III* color 
capability. Discover APL, Assembly, Lisp. . . 
and more. 

Give a gift subscription to 80 Micro today 
and relax. Why hassle with holiday crowds 
and pushy salesmen when you can avoid the 
last-minute rush? Christmas shopping has 
never been easier. 

Just fill out the coupon or the attached card 
and return it now to 80 Micro Subscription 
Department. P.O. Box 981. Farmingdale NY 
1 1737. A full-year subscription is only S35.97. 
That's a savings of 27% off the newsstand 
price . . . and convenient home delivery is 
FREE. 

Give 80 Micro. Your favorite computerist 
will thank you again and again and again. 



• Electric Pencil is a registered trademark <>/ Michael Shrai/er 

* TRS-80, Model 100. Model II. and Model l/III are registered 
trademarks o) Radio Shack, a division of Tandy Corp. 
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Dear Santa. I want to give a vear's subscription to 
80 MICRO for the Holidays (12 issues for $24.97). 



□ Check enclosed 

□ MC C VISA 

CARD* 



AE 



Z BILL ME 



Expire Date 
Signature _ 
My Name _ 
Address 



City 



State 



Zip 



Please enter a one year gift subscription to: 
Name ____ 



Address 



City 



State 



Zip 



Canada & Mexico $27.97. 1 year only U.S. funds drawn on U.S. bank 
Foreign Surface $44.97. 1 year only U.S. funds drawn on U.S. bank. 
Foreign .nnii.nl please inquire. 
All gift subscriptions begin with January 1984 issue 

'Tnls offer expires January 31. 1984 
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EPSON 



FX, RX&MX 




The FX-80 features 1 60 cps. a 
correspondence font. 10. 12 4 17 
cp>. italics, double-stnke/width/ 
emphasis, etc . dot graphics, friction/ 
pin feed (the adjustable tractor is 
optional) & a 2K buffer. The 256 
programmable characters use the 
2K buffer space The FX-100 is the 
136 column version & includes an 
adjustable tractor. 

The RX $ariee replaces the MX. & 
offers 1 00 cps print speeds, but 
nothing more remarkable. 
RX-80 $399.88 

MX-80 F/T $489.88 

MX-100 8884.88 

FX-80 8884.88 

FX-80 Tractor 899.88 

FX-100 8789.88 

C. ITOH 

Prowriter 




C. Itoh's venerable Prowritur has 
speed ( 1 20 cps). a buffer ( 1 5i<). 1 0. 
1 2. & 16 cpi (plus a proportional font 
with correspondance quality) and 
dot graphics (1 60x1 44 dpi). The 
Prowriter 2 is the 1 36 column 
version 

Prowriter $399.88 

Prowriter 2 . 8719.88 

STAR MICRONICS 

Gemini 10X/15 
Delta 10/15 




The Oemini 10X features 1 20 cps. 
10. 1 2, 17 cpi, italics, a corres- 
pondance font, dot graphics & a 1 K 
buffer. Friction/tractor feed. Use 
plain spool ribbons The Oemini 18 
is the 132 column version. The 



Smith-Corona 
Memory Correct III Messenger 

Here's the printer you ve been 
waiting for The Smith-Corona 
Memory Correct III MtMtngir 
is ideal for the home or small 
office. It combines the features of 
an electric typewriter mnd a letter- 
quality printer And it's designed to 
handle both fobs with ease 

Features 1 2 cps. 3 pitches ( 1 0, 
12 & 15). variable line spacing. 

1 5" writing line, backspacing & "^^^<^^5^B^J^ 
auto-correction Comes complete 
with parallel/serial interface. 

Memory Correct III Messenger $629.88 

TP-1/TP-2 SCALL 




Delta 10 has all the features above 
plus parallel & serial interfaces. 160 
cps print speed, an 8K buffer. The 
Delta 18 is the 136 column version 

Gemini 10X $309.88 

3emini '5 $489.88 

Delta 10 $829.88 

Delta 15 8CALL 

OKIOATA 

Microline Series 




Tha Microline 92 (80 col) & 93 
(1 32 col) are ideal for word pro- 
cessing They offer a 1 60 cps draft 
mode, a 40 cps correspondance 
mode. 1 0, 1 2 & 1 7 cpi (w, double- 
width), pin/friction feed itractor is 
optional on the 92) & dot-address- 
able graphics (120 x 1444) Cen- 
tronics parallel interface is standard 

The Microline 84 1 1 32 col) is the 
Step 2 version, featuring 200 cps at 
1 0. 1 2, & 1 7 cpi ( w/double-width), all 
with a correspondance mode & dot 
addressable graphics. Parallel 
interface are standard issue 

The Microline 82A is a data 
cruncher, with 1 20 cps, 1 & 1 7 cpi. 
double-width, friction/pin feed on 80 
columns The Microline 83A is the 
136 column version Dot-address- 
able graphics are optional 

Microline 82A $389.88 

82A/92 Tractor $89.88 

Microline 83A $899.88 

Okigraph I Dot Graphics 

ROM (82A/83A) ............ 849.88 

Microline 92 8489.88 

Microline 93 $739.88 

Microline 84 $1024.88 




MANNESMANN TALLY 

MT-160 L 




The MT-1 80 L 1 1 60 cps) has 8 
fonts, parallel & serial interfaces, 
friction/tractor feed. & menu-driven 
installation from the control panel. 
The print quality is superior The MT- 
1 80 L is the 1 36 column version 

A new. low cost draft printer, the 
Sprite (80 cps). is also available 

MT-160 L $879.88 

MT-180L $849.88 

MT-Spnte ... . $329.88 

We sell other dot matrix printers, 
including the Anadai WP-80O0, 
IDS'i Priam 80, Priam 132 $ 
MicroPriam. & the Inforunnar 
Ritaman Call (903) 881 -9888 for 
technical details. For prices, or to 
order, call (800) 343-O720 

Letter-Quality Printers 

C ITOH 

Starwriter 




The C Itoh Starwriter offers top 
speed (40 cps) at a good price 
Starwriters use Diablo code, 
wheels & ribbons, 1/48" line space. 
1/120" horizontal spacing— ideal for 
proportional modes (For high speed 
output, there's the Printmaatar, at 
55 cps Same specs as above.) 

Starwriter Parallel $121 9.88 

Pnntmaster Parallel $1879.88 



SILVER REED 

EXP-550 




The Silver Reed SXP-880 is a 1 6 
cps, 132 column letter-quality 
printer with true Diablo 1 6 1 0/ 1 620 
emulation (sub/super scripts & 
underlining), making it compatible 
with most word processing software 
It's ideal for medium duty office 
work For light duty, there's the 
EXP-800 at 1 2 cps ( 1 00 col). 

EXP-550 (Parallel) $71 9.88 

EXP-500 (Parallel) $489.88 

We sell a variety of letter-quality 
printers including the Comrti 
ComRiter Diablo 820 A 830. the 
NEC 2030, 3830 A 7730 the 
Qume Sprint 11 + 

STANDARD MICROSYSTEMS 

Microterm 

Microtarm supports auto-dial, 
answer modems like the Hayes 
Smartmodem. Features pre-pro- 
grammed dial & transmit, direct file 
transfer, 34K capture buffer and a 
certified 2400 baud operation rate 
Specify Model I or Model III when 
ordering 
Microterm $79.88 

DC Hayes Smartmodems 
(300 baud) $219.88 

(1200 baud) $839.88 

Novation Modems 

J-Cat (300 baud) . $139.88 

SmartCat (300 baud) $199.88 

SmartCat (1200 baud) $499.88 



Information/Orders: 

(603)881-9855 

Ordara Only: (800) 343*0728 



No Hidden Charges: 

We pay UPS ground shipping on 
all our orders and we never charge 
extra for credit cards We accept 
CODs & add a S 1 fee per order We 
have a $50 minimum order Personal 
checks are cleared in 3 weeks 

All our equipment is shipped 
factoryfresh. with full warranties. 
We're authorized for warranty work 
on a number of printers. & we also 
offer extended warranty plans for 
those printers 

Sorry, we cannot accept open POs 
or extend credit/terms at these 
prices APO and foreign orders are 
not accepted 

We prepared this ad in September 
& prices do change, so call to verify 
them 

Our Computer Showroom is 
now open in Amherst. NH 



HIGH TECHNOLOGY AT AFFORDABLE PRICES ■««■ 

THE BOTTO M LINE 5 

IMILFORD, NH 03055-0423 □ TELEPHONE (603) 881-98551 
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tion, to modify the behavior of the 
Basic program. 

Write + is a delightful program that 
lets you print out files created through 
Text. You can arrange to skip perfora- 
tions, pause between pages for printing 
on single sheets, and print multiple cop- 
ies, double- or triple-spaced output, and 
page headers and footers with the time 
and date. 

The two types of word processors in 
the world are those that display on the 
screen exactly what will appear on the 
printed page, and those that display raw 
text on the screen and format the text 
for printing after you complete all your 
editing. Write + is the latter type. 

For instance, text that is double- 
spaced on paper appears single-spaced 
on the screen. Given that the Model 100 
screen is much smaller than most CRTs, 
that is the best choice. 

The Model 100 input and output rou- 
tines are largely device-independent. 
Any of several devices with appropriate 
file names can be the object of Open 
and Close statements. These include 
RAM, LCD, CAS, MDM, LPT, and 
COM. 

Write + takes advantage of this. You 
can take the output that would usually 
go to the printer and route it to RAM 
for later editing or to COM for printing 
on a serial printer. Similarly, though 
you usually use Write + to print files 
put in RAM by means of Text, it can take 
its input from any other device, such as 
a file on cassette. 

Write + is easy to use. You can easily 
print out text files created long ago with 
Text, skipping perforations, within 20 
minutes of opening the Businesspak + 
package. 

Write + uses simulated form feeds. 
When the time comes to skip forward to 
the top of the next page, the program 
uses individual line feed commands 
with an ASCII value of 10. Many print- 
ers, however, are capable of responding 
to a form feed character with an ASCII 
value of 12. 

This accomplishes motion to the top 
of the next page much more quickly and 
quietly than a series of line feeds. It 
would have been nice if W + SPEC let 
the user select simulated or actual form 
feeds. 

I have, however, determined a way to 
modify Write + so that form feeds ac- 
complish the perforation skip and blank 
page skips. The new lines appear in Pro- 
gram Listing 1 . 



EXPNS+ is an aid to travelers who 
must keep an expense record. Though 
it's described as a spreadsheet program, 
it is quite limited in capability. The pro- 
gram sets up an array of numbers, 
drawing up totals for up to 18 rows and 
12 columns. 

It does not let the user define relation- 
ships between and among different lo- 
cations in the array, but merely adds up 
each row and column. Thus EXPNS + 
is far less versatile than programs like 
VisiCalc. 



"EXPNS+ is an aid 

to travelers 

who must keep 

an expense record. " 



You can store the numerical values in 
the array in RAM, then transfer them to 
and from other devices, such as a cas- 
sette. You can use the RAM file as input 
for the Graph + program or merge it in- 
to a word processing file using Text. 

Put + is a simple data entry program. 
Given a user-defined P + SPEC file, the 
program accepts user keyboard entries 
and assembles uniform-length ASCII 
records composed of fields of user-de- 
termined fixed lengths. The program 
defines the fields within records in a 
SPEC file that the user creates. When 
you run the Put + program again later, 
the program adds new records to the 
end of the existing file. 

During keyboard entry of data, you 
go from one field to the next by means 
of the down-arrow key, and store the 
record by pushing the enter key. I found 
that to be awkward, and often pressed 
the enter key at the end of a line when the 
software expects the down-arrow key. 

Also, when filling in, for example, a 
three-character field with a three-digit 
entry, I often found that Put + jumped 
ahead to the next record when it should 
have simply accepted text for the next 
field in the same record. PCSG has 
since corrected both of these awkward 
situations in Put + . 

Given the SPEC file and assuming 
you have fewer than 256 records, the 
Sort+ program then sorts the records 
as discussed below. You can also easily 
search the records using SCHEDL and 
ADDRSS (or even Text). 



he Phone Line 

Hwv. 11 South Trenton. GA 

1-404-657-6948 _ — 



i LOW 



prices 



RADIO SHACK: 
(All equip is 100% pure RS) 

Model 100, 8k ram $ 650 

Model 100. 24k ram $ 850 

Model 12. 2-dnve $3250 

Model 4. 64k. 2-dnve $1650 

5 meg hard drive $1658 

DMP-2100 printer $1599 

DMP-200 pr.nter $ 599 

All Radio Shack Software 10% Off 
Call for other 
LOW, LOW RS prices not listed. 
Miscellaneous 
All Eagles list come with "Spellbinder". 

"Ultracalc". CP/M & CBasc 
Eagle HE 2-dnve w/390k per drive $1995 
Eagle HIE. 2-dnve w;780k per drive $2999 
Eagle IVE. 780k floppy. 10 meg hard $3999 
Complete line ol Eagle - Call tor others - 

Daisy Writer w/48k buffer & cable $1295 
ProWriter 8510 printer $ 399 

ProWnter 1550 printer $ 675 

Okidata ML-92P printer $ 525 

Okidata ML-80P printer $ 350 

Okidata ML-82PS printer S 450 

Box 10 Verbatim 5 V diskettes 

(SS.DD) $ 29 

Box 10 Verbatim 8" diskettes 

(SS.DO) $ 49 

QUANTITY PRICING AVAILABLE 
ON DISKETTES . . . CALL! 
5V4" flip file, holds 50 $ 25 

8' flip file, holds 50 $ 35 

5V«" flip-pak. holds 10 $ 5 

8" flip-paK. holds 10 $ 6 

Disk drive head cleaner kit 

(VerDatim) $ 5 

9Vi" x 11" paper. 1250 shts. 

disaperf $ 19 

14%" x 11" green bar, 1500 shts$ 33 

ProWriter Ribbons ... $ 6 

J-Cat Direct Connect Modem . . $ 115 

Complete line of accessories — 

CALL, CALL, CALL 

(Prices subject to change. 
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THIS MONTH'S SPECIAL! 

9V 2 x11 paper, 1250 sheets, 
disaperf $19 



he Phone Line 

Hwv 11 South Trenton. GA 
1-404-657-6948 „vw 
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However, when you display the file 
on the screen or print it on the printer, it 
tends to look irregular. This occurs 
because the program runs adjacent 
fields together without spaces to sepa- 
rate them, and because both the screen 
display and print routines wraparound 
entire words at the end of the line rather 
than cut them off. According to PCSG, 
a new program called Data + ($59.95) is 
available that allows variable-format 
displays and listings. 

The Sort + program allows sorting of 
up to 255 uniform-length ASCII rec- 
ords according to any selected constant- 
length field in the records. It's easiest to 
use Sort + with records created through 
Put + , but you can use Sort + on other 
files too, as long as the records and 
fields within records are of uniform 
length. Simply create a Put + specifica- 
tion file to match the fields in the file 
you want sorted. 

Also, when Sort + reads in the file it 
will sort, it puts any lines of nonstan- 
dard length at the beginning of the out- 
put file. This is handy for two reasons: 
You can leave explanatory material, 
such as a heading or verbal summary, at 
the beginning of the file and it isn't dis- 
rupted by the sorting process. 





Program 


K to load 


Free K to ran 


Write + 


4.4 


2 


EXPNS + 


7.0 


5 


Put + 


2.8 


1 


Sort + 


2.6 


4 + 


Telex + 


3.9 


1 


Graph + 


6.0 


7 


Table 1. Program sizes. 



If you mistakenly include a line of in- 
consistent length in the file, it appears at 
the beginning as well. This brings the line 
to your attention so you can correct it. 

The sort is a simple sort in ASCII 
order. The documentation claims that 
you can sort 255 records in 15 to 20 
seconds. One file I sorted actually re- 
quired just over two minutes. I attrib- 
ute this to the fact that Sort + swaps 
entire records whenever a comparison 
so indicates. 

This isn't really a drawback, but a 
consequence of the Model 100's limited 
memory. On a larger machine, it would 
be possible to sort more efficiently by 
extracting and sorting key fields, and by 
swapping the entire records only when 
the key fields are in order. 

PCSG has also released another pro- 
gram, Sort2 + , that does a few things 
Sort + cannot. For example, it sorts 
true numeric data so that 6 comes out 
above 10 in order. 

Or you can set Sort2+ to sort with 
the uppercase flag bit suppressed: The 
result is that the program treats upper- 
and lowercase letters equally in the sort- 
ing process. Finally, it performs the sort 
directly on the RAM file, rather than by 
reading the file into the Basic program 
area. Sort2 + needs less free RAM than 
Sort + . 

Telex + helps you send telexes, mail- 
grams, and the like from text files 
you've previously typed in and saved. 
To use Telex + , you must open an ac- 
count with Action Telex, a company 
based in Dallas that accepts messages 
through a modem over phone lines and 
sends them out via the Western Union 
telex network. 

This requires payment of a $150 an- 
nual registration fee and a moderate us- 



For Version 1.3: 

1400 IF FF^oOO THEN PRINT«,MID$(LF$,l,2'(BM < 7o + LCVo));: HF<7o = 2:GOSUB 1550 

1405 PRINT«,CHR$(12);:IF BL<7o - PP^o>0 AND PGVo<PE% THEN 1490 

1410 IF CN"7o<NC^o THEN CLOSE:BL°7o = 160:PP^o - 0:GOSUB 1450:GOTO 130 ELSE 

PRINT(G,CHR$(12); 



For Version 2.1: 

32 IFFFO0THENPRINT#2,LEFT$ (LF$,2*(BM + LC));:HF = 2:GOSUB43 

33 PRINT«,CHR$(12);:IFBL - PP>OANDPG<PETHEN39 

34 IFCN<NCTHENCLOSE:BL= 160 :PP = 0:GOSUB37:GOTO6 
ELSEIFFDTHENPRINT#2,CHR$(12); 

Program Listing 1. Formfeed modifications for Write + . 



age charge. The advertisements I've 
seen for Businesspak + don't make this 
point very clear. The Businesspak + 
documentation describes a free trial ar- 
rangement whereby you can send three 
free telexes or mailgrams. 

I tried this by calling the phone num- 
ber in the manual and supplying the re- 
quested information. I was told that 
Action Telex would contact me with an 
identification code for the free trial. 
Three weeks and three more phone calls 
passed before I finally got a code. 

When I tried it out, the program in- 
dicated that Action Telex had accepted 
my mailgram and two telexes for deliv- 
ery, but none of them reached their des- 
tination. When the local office finally 
called with another code, I had better 
luck. The mailgram got through all 
right, but the telex was delayed eight 
hours. 

Though the documentation said 
nothing on the matter, I found I had to 
precede the destination telex number 
with a zero. After that I had no trouble 
with Action Telex. 

I also had some problems with the 
Telex + program itself. The Model 100 
has a built-in modem with provisions 
for acoustic coupling and direct-con- 
nect autodial operation. However, one 
constant feature of the program is that 
it tries to dial the phone number for ac- 
cess to the Action Telex computer 
whenever you run it. 

If you are using the acoustic coupler, 
this doesn't hurt anything, just wastes 
time. But if you are trying to dial the ac- 
cess number manually for MCI access 
or to get through a Touch-Tone-orily 
switchboard, the dialing routine frus- 
trates your efforts by hanging up the 
phone for a second before listening for 
the carrier tone. 

It would be helpful if PCSG modified 
Telex + to allow the equivalent of the 
Term key in TELCOM, and thus by- 
passed the autodialing routine. One 
remedy is to use a duplex jack instead of 
the silver phone cord. Plug in both the 
phone and beige cable. Do not hang up 
the phone until the Model 100 detects 
the carrier. 

Graph + lets you prepare graphs based 
on numerical and text information 
typed in using the EXPNS + program. 
The graphs can be pie, bar, and line 
charts. 

Since Graph + takes its input only 
from EXPNS +, and since EXPNS + 
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SUPREME RULER 

Have you conquered the World lately? Was It a 
Challenge? If the answer to either of these questions 
Is NO, you obviously don't have SUPREME RULER; You 
haven't led your own country, managing your economy 
and controlling the destinies of millions of people; you 
haven't had the chance to overcome opponents 
(Human and/or Computer) bent on achieving the same 
goals. 

In SUPREME RULER you must protect your economy (or else 
risk a recession), support and feed your people, encourage 
new business, manage government revenues, and control 
your army. These and many other factors are interdependent, 
making this a very challenging game/simulation. 
Supports up to 9 countries (4 with 16K), either human or com- 
puter controlled. The computer plays by all the rules, and makes a worthy opponent in single-player 





games. 



16K and 32K versions together on Cassette, with 40 Page Manual. PRICE: $18.50 

32K version (with SAVE GAME feature) on Disk with 40 Page Manual. PRICE: $20.50 



1 Model l/llll 



For those off you with 48K: 

SUPREME RULER PLUS! 



The extra memory is filled with many new features, 
expanded reports, more intelligent computer opponents 
with selectable "skill levels", and MUCH MORE! 
Comes with a 50 page manual and a start-up booklet. 



SIOUR "TRIPLE PROTECTION" 
GUARANTEE 



< a bad one by only a magazine 
you' satisfaction Here fs ou 



In today's software world >i <s hard to tell a good program tro 
ad. trial's why JMG has a warranty plan thai will guarantei 
"Triple Protection'' guarantee 

1) QUALITY GUARANTEE: II you are unsatisfied with the software product you t\»i» pur 
chased, you may return u (in good condition) within 14 days for a relund, lest a 12 handl 
ing charge (We also ask lhal you send us a brief teller stating the reason for your return. 

2) UPOATES GUARANTEE: We always listen to our customers, and we often improve and 
expand our software products on me basis of their comments. If we make an improvement 
to a product and release a new version, all our previous purchasers will be notified andl 
offered the update To receive an update you only have to return your original disk pi 
11 tor shipping costs 

3) MEDIA GUARANTEE: The diskette or cassette has a Lifetime Guarantee If yours turn: 
out to be defective, or <t fails and you do nol nave any backups made, then |ust return th 
disk/cassette and we'll replace it 



Provided on either Disk or Cassette. 



PRICE: 



$26.50 



TO ORDER: Mail or Phone your order, 

OR 



Go and see your nearest dealer II he doesn't carry 
JMG programs, shout at him a bit. 



JMT,. 



//vrsmr/ffm 



w 




THE FINE PRINT: 

We accept VISA and MasterCard 
Ail prices in U S Funds 

Please allow 1 or 2 weeks lor PERSONAL CHECKS to dear 
SHIPPING CHARGES are S2 00 M North America. S5 00 

overseas 



P.O. BOX 598 
FALLS STATION, 
NIAGARA FALLS, N.Y. 
U.S.A. 14303 

OR 

710 UPPER JAMES ST. 
HAMILTON, ONTARIO 
CANADA L9C 2Z8 
(416) 389-6086 




EXTERMINATE! 

The World is counting on you to annihilate a horde of alien bugs 
that are trying to escape from an underground cavern. Your on- 
ly weapons are your skill, strategy, and an armed "Rover". This 
100% Machine Language program has quality graphics and 
sound, and surprises to keep you busy at every new skill level. 




EXTERMINATE on Cassette. 
Model l/lll Diskette, 



PRICE: 
PRICE: 



$15.50 
$17.50 



A 



tm 



* Order now and you will receive a free "Bug Hopper" Jumping Disc! 




^ See Us! of Advertisers on Page 291 



80 Micro, December 1983 • 71 



REVIEWS 



handles only up to 18 columns, that's 
the largest number of points you can 
graph. Thus any line graph is, of neces- 
sity, quite bumpy. 

The Businesspak + software comes 
on cassette, all of which you can back 
up. 1 found the cassettes themselves to 
be of high quality and well recorded; I 
had no load errors after dozens of loads. 
You must load each program from cas- 
sette before use, which takes as long as 
four minutes. 

Documentation and Support 

The documentation, totaling some 
108 pages, is written under the assump- 
tion that the user is already familiar 
with the connections to the Model 100, 
has mastered the built-in program Text, 
and has at least passing familiarity with 
the other built-in software. 

The documentation has no general in- 
dex, but you don't need one since index 
tabs for each program allow easy ref- 
erence to explanatory material. In addi- 
tion, Write + , perhaps the most complex 
program, has its own index in the most 
recently received documentation. 

The PCSG telephone number ap- 
pears prominently on the manuals and 
instructions. I called several times at 
various times of the day and night, and 
always reached cheerful people. 
Though I had difficulty getting signed 
up with Action Telex, the frustration 
was outweighed by the many other 
times that my questions were answered 
immediately and correctly. 

Each time I called, PCSG asked for 
the serial number of my software pack- 
age. I consider this a perfectly reason- 
able request as it helps protect against 



software pirates, but the drawback was 
that I was immediately identified as a 
reviewer. Nonetheless, I sense that all 
purchasers can expect good customer 
support. 

User-Friendliness 

The programs are well error-trapped, 
although occasionally I tripped them up 
with unusual inputs. For example, each 
program depends on one or more SPEC 
files containing file formats, field 
names, and so on. If the SPEC file is 
not set up properly, the program using 
it can go astray. I had particular prob- 



usinesspak + provides 

a good package 

of routines for 

the Model 100 owner. 

They are easy 

to learn and use. y> 



lems coming up with a P + SPEC file 
suitable for use with Put + . 

One problem anyone faces who 
writes text-handling programs for the 
Model 100 is that RAM files can have 
arbitrarily long records. A Line Input or 
Input that goes to a string variable can 
cause an OS (out of string space) error 
that's hard to protect against. 

To alleviate this problem, Microsoft 
provided the INPUTS function, which 
gets a specified number of characters 
from an input device regardless of line 



tZZ) 
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SOFTWARE PRINT SPOOLER 

B MODEL I. DISK BASIC 32/48K 

B SPOOLS LPRINT. LLIST, JKL ETC. 
B SET BUFFER SIZE FROM BASIC 

B MODEL III VERSION COMING SOON 

B SUPPLIED ON DATA DISK $34.95 

OHIO RESIDENTS PLEASE ADD SALES TAX " SM 

ELCSOFT PO BOX 302 BRUNSWICK. OH. 44212 (218) 273-1070 



terminators. Even that function gener- 
ates errors; for example, if three 
characters are requested, and if only 
two characters are left in the device 
you'll get an end-of-file error. 

The writers of Businesspak + use a 
machine-code routine of about 166 
bytes called from Basic. This routine 
goes to the input device and gets the 
next printable line of characters up to 
the next carriage return or space. 

One drawback of the machine-code 
routine is that if no space occurs within 
the next 160 characters, the routine only 
returns a single character. I discovered 
this when I attempted to list a Basic pro- 
gram with all the spaces removed. Some 
of the long lines in the file printed out in 
a column, one character at a time. I had 
to go back to the Basic program and in- 
sert spaces to make listing through 
Write + possible. 

The programs are written in Basic 
rather than machine code. The advan- 
tage of Basic is that the user can easily 
modify the code, perhaps to customize 
it for a different printer or add a fea- 
ture. The disadvantage is that machine 
code can be faster and more compact. 
For most of the programs, such as 
Write + and Put + , the execution, 
printing, and keyboard delays are not 
even perceptible. 

Even if you have the maximum RAM 
available to the Model 100, 32K, you 
don't have enough room to leave all the 
Businesspak + programs in RAM all the 
time. The instruction book suggests that 
you purge the programs when you are 
done and reload them later from tape. 
Personally, 1 find Write + so handy 
that I have left it in RAM continuously 
since first loading it. 

The advertising and the manual I ini- 
tially received are silent on the required 
RAM. Most of the routines fit in less 
than 4K, leaving a little work space for 
an 8K user (see Table 1). No serious user 
should consider less than 24K, and I 
recommend getting a full 32K. 

Businesspak + provides a good pack- 
age of routines for the Model 100 
owner. They are easy to learn and use. 
The graphing program works only on 
the Radio Shack DMP-100, and the tel- 
ex program involves a further expendi- 
ture of $150 per year. But the word pro- 
cessing, sorting, text entry, and simple 
spreadsheet programs are general in 
their scope and utility. I recommend 
them. ■ 
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Now you can enhance your TRS-80" 1 ' Model in word processing 
system with the JUKI 6100 letter quality printer and driver soft- 
ware package. 

Totally compatible with the TRS™ Model m when used with the 
SuperSCRIPSIT™ word processor, the Model 6100 is a sophisti- 
cated printer with all the advanced features of a higher priced 
unit. And the JUKI Model 6100 printer driver software package 
can be added to the TRS 80'" Model 4 system as well. 



Utilizing a 100 character daisy wheel drop-in system, the Model 
61 00 prints bi-directionally at 1 8 cps, has 1 0/1 2/1 5 pitch, propor- 
tional spacing, and a 2k buffer memory expandable to 8k. 
Operating on a linear induction motor for accurate positioning, 
the logic seeking Model 6100 performs superscript, subscript, 
bold/shadow printing, double strike, underlining and has 
graphic capabilities. 

Also, the Juki printer is lightweight and conventional in design, 
has low noise level, is easy to maintain, and features a self- 
testing function. And the printer driver software is available on 
diskette for either parallel or serial interface. 



But the dream is not over...wrth a low price tag of '699.00 and driver 
software diskette for less than '25.00 you'll have top quality per- 
.-521 formance for a remarkably affordable price. 

JUKI INDUSTRIES OF AMERICA, INC. contact your juki distributor for the dealer location most convenient for you 
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Assembly Language 
Made Simple — Part I 

by Hardin Brothers 

Assembly-language programming is like swimming: If you've never done it 
before and plunge in without any instruction, chances are you'll end 
up over your head. However, with the proper lessons and step-by-step 
guidelines, you'll learn the skill smoothly and without trauma. This 
article is the first in a consecutive three-part series that describes 
Assembly-language programming from start to finish. 

Like Basic and all other computer languages, Assembly 
language is a variation on the computer's only true lan- 
guage, machine code. Machine-language programs 
comprising only l's and zeros, are difficult to 
write and prone to typing errors. Consequently, 
programmers developed other languages that 
use mnemonic code to replace machine code. 
Although easier to work with, the further re- 
moved from machine code these languages 
are, the slower they execute and the less 
powerful they are. 

Assembly language provides a happy 

medium. It combines the advantages of 

simple code with the power of a lan- 
guage that closely resembles machine 

code. As a result, an Assembly-language 

program runs faster and provides more 

computational power than, say, a Basic 

program. 

Before you begin to write in Assem- 
bly language, you need the proper 

tools. Most important is a program 

called an editor/assembler. If you don't 

own one, the Radio Shack Series 1 Edi 

tor/ Assembler is a good choice to get 

you started. It's powerful for the price 

($30 to $35), comes with excellent docu- 
mentation, and while it doesn't completely 

satisfy an experienced programmer, it's 

powerful enough to satisfy all your needs 

until you become an expert. NEWDOS80 in- 
cludes Apparat's EDTASM module, also an 

excellent first assembler. 
Several other beginner programming tools are 

helpful in addition to the editor/assembler, but they're 

not mandatory. Most useful is a good monitor program. 

Monitors let you single-step through a program and watch 

the execution of each instruction. Radio Shack's T-Bug and 
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Here's your first lesson in Assembly-language 

programming. This article describes how the Z80 

chip processes Assembly instructions. 



Debug, as well as any DOS Debug, can start you off, but 
more powerful monitors are available. 

Other useful tools are a disassembler program, Nanos 
Systems Corp.'s Z80 reference card, a printer for listings 
(invaluable for complex debugging), several reference 
books, and a disk system to simplify loading, saving, and 
assembling programs. These are all extras that make As- 
sembly-language programming easier; at first, all you 
need is an editor/assembler. 

TheZ80 

The heart of your Model I, II, III, or 4 is a Z80 micro- 
processor chip (or Z80A, the same thing but faster). 
Though this is one of the most advanced 8-bit micropro- 
cessors made, with 22 registers and a strong instruction 
set, it still has a very limited repertoire of capabilities. 

The Z80 can get a value from memory, put a value 
into memory, move values around in between its internal 
registers, add and subtract two values, perform simple 
logical manipulations (AND, OR, and Exclusive-Or), 
report some information about the results of its opera- 
tions, keep track of where to find its next instruction, 
and manipulate a simple data structure called a stack. It 
can't multiply or divide, directly print to the screen or 
printer, or do most of the things your computer does in 
Basic. 

Your job as an Assembly-language programmer is to 
utilize the simple abilities of the Z80 chip to develop a 
complex program, usually complete with input from 
keyboard, tape, or disk and output to tape, disk, screen, 
or printer. To do so, learn to think in terms of the Z80's 
capabilities, which means you have to break each opera- 
tion into specific, small steps. If you can train yourself to 
analyze and build programs in these small steps, you're 
well on your way to becoming an Assembly-language 
programmer. 

Assembly and Machine Language 

The only instructions the Z80 understands are se- 
quences of 5-volt and zero-volt electrical impulses. Gen- 
erally we refer to those impulses as l's and zeros. 

For example, the sequence of impulses represented as 
1100101100100111 makes the Z80 copy a specific single 
bit from one place inside itself to another. Because se- 



quences of l's and zeros look like a binary number, pro- 
grammers often think of them as such, and translate 
them into hexadecimal or, rarely, decimal numbers. The 
above instruction would thus appear as CBH 47H in 
hexadecimal notation, 203 071 in decimal. When you 
write programs by loading such values directly into 
memory, either with POKEs or by using a monitor pro- 
gram, you program in the Z80 native tongue, machine 
language. 

However, the Z80 recognizes almost 700 such instruc- 
tions. Except in unusual circumstances, it's a waste of 
time for a programmer to look up each instruction in a 
table and enter its special sequence directly into memory. 
That's why the first computer language ever developed 
was "Assembler." Using an assembler, you can write in- 
structions using mnemonic (memory aids), 2- to 4-letter 
abbreviations of program instructions. You can write the 
binary instruction above as BIT 0,A which, while still far 
removed from English, is much easier to remember and 
understand. 

The assembler changes the mnemonic into the appro- 
priate bit sequence by looking it up in a table. The list of 
mnemonic instructions, which you write, is called a 
source code; the list of machine instructions, which the 
assembler writes from the source code, is the object 
code. The Z80 chip cannot act directly on source code in- 
structions, so the translation into bit sequences is neces- 
sary before you can run your program. 

Unlike Basic, assemblers are not interactive. You must 
write the source code, assemble it into machine language 
(which you save on either tape or disk), then load the ob- 
ject code back into the computer to run it. If a bug oc- 
curs in the program (and one almost always does), you 
must then reload the assembler program, reload your 
source code, correct the source code, save your source 
code back to tape or disk, assemble the program again 
on tape or disk, load the new object code back into mem- 
ory, and run it again. 

Virtually all assemblers come with an editor, a sepa- 
rate but related program that helps you write and correct 
source code. The editor is a simple, line-oriented text 
processor that includes the ability to number lines of 
source code and to find lines by reference to their 
numbers. 
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Figure 1. The Z80 registers. 



Whenever you use an editor/assem- 
bler package to write a program, you 
must go through a four-step process: 

• Use the editor to write the source 
code. 

• Save the source code to tape or disk. 

• Assemble the source code into object 
code and save the object code to tape or 
disk. 

• Leave the editor/assembler program, 
return to either Level II Basic or DOS, 
load in the object code form of the pro- 
gram, and run it. 

The finished program probably loads 
as a SYSTEM program, if it's on tape, 
or as a /CMD program if it's on disk. 

Memory and Registers 

Your computer provides several dif- 
ferent types of memory. Basic resides in 
ROM, the keyboard and screen each 
have specially dedicated random-access 
memory (RAM), and programs and 
data use between 16K and 48K (on the 
Models I and III) of general-purpose 
RAM. Each byte of memory has a 
unique address which the Z80 uses to 
find stored values and to place values in 
the correct locations. 

Like program instructions, memory 
addresses are nothing but unique se- 
quences of electronic impulses, but it is 
easier to think of them in terms of hexa- 
decimal or decimal numbers. You can 
remember memory addresses more eas- 
ily in hexadecimal once you become fa- 
miliar with that numbering system. 

In Models I and III, ROM occupies 
addresses from 0000 hexadecimal (hex) 
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to 37FF hex, the keyboard from 3800 
hex to 3BFF hex, the video screen from 
3C00 hex to 3FFF hex, and general 
memory from 4000 hex to 7FFF hex, 
BFFF hex, or FFFF hex depending on 
the amount of RAM in your system. All 
of the programs I include with this arti- 
cle run with any size RAM (except 4K) 
for a Model I, III, or 4 (in the Model HI 
mode). 

You may notice that memory holds 
both program instructions and data, 
and wonder how the Z80 distinguishes 
the two. It doesn't. As far as the Z80 is 
concerned, no difference exists between 
the two; you and your program decide 
which parts of memory hold instruc- 
tions and which hold data. However, if 
you make a mistake and allow the Z80 
to operate on data as if it were instruc- 
tions, you face the infamous "silent 
death" — either a locked up computer 



or a spontaneous reboot. 

The Z80 contains 208 bits of memory 
organized into registers (see Fig. 1). 
Each register is either 8 or 16 bits 
wide — that is, each holds either 8 or 16 
bits of information. As a programmer, 
you manipulate the values held in these 
registers, and copy information from 
the registers to RAM and vice versa. 

The A register, which holds 8 bits, is 
the accumulator. It's a general pipeline 
for moving data into and out of the Z80 
chip, and also aids in almost all of the 
arithmetic and logical operations the 
Z80 performs. 

The individual bits of a second regis- 
ter, called the F or flag register, holds 
information about the results of various 
internal operations. The Z80 uses these 
flags to perform conditional branches 
(similar to the Basic If. . .Then com- 
mand). 

B, C, D, E, H, and L are all general- 
purpose 8-bit registers that hold tempo- 
rary data and operands for arithmetic 
and logical operations. You can also use 
these registers in pairs: BC, DE, and 
HL. Each pair holds 16 bits and can 
hold data addresses in memory, or large 
values used in some arithmetic func- 
tions. 

The HL register pair also has a spe- 
cial function. Whenever the Z80 per- 
forms 16-bit arithmetic operations, the 
HL register pair becomes an accumula- 
tor and holds the results of the calcula- 
tions. Using any register pair as two 
8-bit or one 16-bit register is entirely up 
to you, and you can change their func- 
tion at any time. 

Two 16-bit index registers exist, IX 
and IY. They almost always hold ad- 
dresses of data tables in memory, and 
make accessing that much easier. 

SP, the stack pointer, is a special- 
purpose register that holds the address 
of (points to) a data table called the 
stack. Stack operations let the Z80 
return to the appropriate location after 
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The First Program — 

Print "HI" in the upper- 
left corner ot the screen 



The Key Box 

Model I and m 
16KRAM 
Assembly Language 
Editor/ Assembler 



LD 
LD 
LD 
LD 
JP 



7880H 

A,48H 

(3C00H) ,A 
A,49H 

(3C81H) ,A 
LOOP 

START 



.-Define beg. of prog. 

,-48H is ASCII value of B 
; and put it on screen 
,-49H is ASCII value of I 
l and put it on screen 
; Loop forever 



Program Listing 1. Assembly-Language Lesson I. 



Shape your TRS-80 to 
communicate with any computer you want. 




Omniterm is the most flexible, powerful 
terminal program you can buy. Omniterm lets you 
adapt your TRS-80 to communicate with 99.9% of 
the world's computers. Your company's mainframe, 
for example. Or any other personal computer, time- 
sharing computer, or communications service. 

Omniterm overcomes incompatibilities in 
screen formats, baud rates, character sets, control 
codes and file transfer protocols. Seven complete 
translation tables let you change any character, for 
complete compatibility of all input and output 
devices. Omniterm is so flexible, users have even 
set up their ASCII-coded systems to communicate 
with EBCDIC-coded systems. 

You can send all ASCII characters, even those 
that aren't on your keyboard. Reformat your screen 
to neatly accommodate any line length. Run your 
printer while you're sending or receiving data. 
And even review data that's scrolled off the top 
of the screen. 

Omniterm 's well-thought-out design makes it 
easy to use. You can get a status display of all func- 
tions while on line to tell you what's going on, and 
make any changes at the same time. You can create 
a special file of your settings to make it easier next 
time. You also get X/Y cursor control, single keystroke 
sign-on and auto-dialing. Even a phone directory. 
And lots more. 






You don't have to be a computer expert to use 
Omniterm. Just spend a day with what the review- 
ers call "the best manual in the business." Then if 
you need helpjust call, write, or contact us via 
CompuServe, Delphi, or Source. 

Omniterm is the proven terminal program. The 
program thousands of people have used success- 
fully. And the one the editors call the "top program 
available" (Byte, 80-Micr o, Infoworld, etc.) 

Omniterm comes complete with sample setting 
files, conversion utilities, a practical text editor, seven 
translation tables, and a 76-page manual with index. 

Available at leading dealers, or prompt shipment 
on direct phone and mail orders. Order Omniterm, 
for a super-smart TRS-80 that's putty in your hands. 



Only S95 for TRS-80 Models I. Ill or 4 (32K memory, 
one disk minimum). $175 for Models II, 12 or 16 
(64K memory minimum). (In Mass., add 5% sales 
tax. ) MasterCard, VISA, and C.O.D. 
IBM PC version coming soon. 
DEALER INQUIRIES INVITED. 



Telephone: (617) 852-0233 
CompuServe: 70310,267 
Source: TCA8 18 
Delphi: Lindbergh 
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Omniterm 

lindb&rgh Systems 

49 Beechmont St., Worcester, MA 1 609 
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it completes a subroutine, simplify sav- 
ing data from registers temporarily, and 
allow transfer of 16 bits of information 
from one register pair to another. 

The program counter, register PC, 
always holds the address of the next 
program instruction. The Z80 uses the 
PC register to keep its place in the pro- 
gram while it carries out an instruction. 

A', F\ B\ C, D', E\ H', and L' (the 
prime set) are a second set of general- 
purpose registers. If you give the correct 
instructions to the Z80, it saves the reg- 
ular general registers (A to L) and the 
prime set becomes active. A later ex- 
change instruction switches the first set 
of registers back into active service. It's 
up to the program (and programmer) to 
keep track of which set is in use at any 
given time— the Z80 considers the inac- 
tive set the prime set. 

Finally, there are two 8-bit registers, I 
and R, that programmers rarely use. 
The R register holds the address of the 
next bank of memory that needs re- 
freshing (a kind of electronic tickling to 
stay awake). The Z80 handles the mem- 
ory refresh chores automatically. The I 
register is useful for some interrupt pro- 
cessing, but the Models I and III don't 
include the hardware necessary to use it. 

A First Program 

The best way to understand Assem- 
bly-language programming is to start 
programming. Because every editor/ 
assembler package includes its own 
unique editor instructions, I will not 
give explicit instructions on using the 
editor portion of your editor/assem- 
bler. Load the program and run it, then 
use the documentation to experiment 
with the editor until you are comfort- 
able with its commands. You probably 
use a command like I to start entering 
text on numbered lines, a Break to 
return to the function prompt, a P to list 
what you have written, and so on. 

Your first Basic program was proba- 
bly something like 

10 PRINT "HI" 

so I'll start you with a similar Assembly- 
language program (see Program Listing 
1). Even though this is a simple, short 
program, there is much to learn from it. 
The first nine lines, 100-180, are all 
remarks and the assembler ignores 
them. In most assembler formats, a 
semicolon precedes all remarks. 

It is wise to liberally include remark 
statements in your source code pro- 
grams—the remarks don't take up 
memory space in your completed ma- 
chine-language program and they help 
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you understand program logic several 
weeks later. 

After the remark lines, everything in 
the program falls into four neat col- 
umns. The first column, or field, con- 
tains a five-digit line number as supplied 
by the editor. As I explained earlier, 
these numbers are used only by the edi- 
tor and ignored by the assembler. They 
help you find the correct line to edit and 
the right place to insert new lines. Just 
as in Basic, it is normal in Assembly 
language to increment lines by 10 so you 
can insert lines later. Also, your editor 
probably includes a simple renumbering 
facility. 

The second column contains labels, 



each of which can contain one to six 
alphanumeric characters. Labels can 
represent either values (as I show in the 
next program) or the addresses. The 
labels in this program, Start and Loop, 
represent the addresses of the instruc- 
tions that follow them. 

The third column contains either the 
mnemonics for the machine-code in- 
structions or pseudo-ops — direct in- 
structions to the assembler program 
that don't get translated into machine 
instructions. Simple assemblers provide 
only a handful of pseudo-ops that are 
easy to understand and use. 

The fourth column contains the oper- 
ands for each instruction. Each mne- 



Making Sense of 
Those Crazy Numbers 



by Amee Eisenberg 
80 Micro Technical Editor 

The Decimal System 

For those of us with 10 fingers, a 
decimal number system (based on 
units of 10) has always made intrinsic 
sense. You start at your thumb and 
keep counting until you run out of 
fingers. Then you make a mark to 
signify one group of 10 and start at 
your thumb again. Things are 
counted in groups of 10s plus any left- 
over 1*8. 

We write numbers using a place 
value system, placing units, or l's, 
furthest to the right in a number. The 
next place holds the 10s, and the next 
the 10 times 10s, or 100s. Reading 
from right to left, the value of the 
place increases by a multiple of the 
base. Thus, 1, 10, and 100 signify 
one unit, 10 units, and 10 times 10, 
or 100, units respectively. You can 
represent this as follows: 

YYY (♦ 1) 
CIO) 
(* 100) 

The Binary System 

Your computer is based on a bi- 
nary numbering system; that is, it 
uses a two-unit counting system. It 
counts with electrical impulses that 
are either off or on, which we repre- 
sent numerically as and 1. It also 
uses a place value system to keep 



track of larger numbers. 

In a binary, or base 2, numbering 
system, the places hold multiples of 
2. So the first place represents units, 
the next 2's, the next 4's. Thus, 1, 10, 
and 100 signify 1 unit, 2 units, and 2 
times 2, or 4, units respectively. This 
is represented as: 



YYY 



(*i) 

C2) 
C4) 



Binary becomes ungainly for 
humans as the numbers get larger. 
For instance, the number 136 
decimal is written 10001000 in 
binary. That is, there are no l's, no 
2's, no 4's, one 8, no 16s, no 32s, no 
64s, and one 128. Adding the one 8 
and the one 128 results in the decimal 
equivalent, 136, as below: 



10 








(0* 1) 









(0* 2) 









(0* 4) 






8 


(1 * 8) 









(0* 16) 









(0 • 32) 









(0* 64) 






128 


(1 *128) 






136 


decimal 



Since humans count in decimal 
and computers in binary, a com- 
promise counting system is necessary 
to make conversations between hu- 
mans and computers a little simpler. 



monic requires that zero, one, or two 
operands follow it. In most cases, the 
number of operands is obvious — you 
can't ask the Z80 to load (LD) a value 
unless it knows where the value is com- 
ing from and where it is going. So, two 
operands always follow the Load 
command. 

Finally, Assembly code reserves the 
last column of each line for remarks. 
You can quickly leam to write cogent 
remarks that fit on the same screen line 
as the rest of the instructions and pro- 
duce clean, easy-to-read source code. 

Refer back to Listing 1. Lines 
100-180 are remarks ignored by the 
assembler. Line 190 starts with the 



pseudo-op ORG, which defines the 
starting address of the program so the 
assembler can calculate addresses of 
each of the instructions. 

Notice that the program's address, 
7000H, is a hexadecimal number fol- 
lowed by the letter H. The same ad- 
dress, in decimal, is 28672. Unless a suf- 
fix of H or B follows a number, the 
assembler assumes that number is in 
decimal format. However, the assem- 
bler accepts a suffix of D to indicate a 
decimal number. Get into the habit of 
adding a base suffix to the end of every 
number you use in a source code, re- 
gardless of its base; it makes debugging 
much easier. 



Enter the base 16, or hexadecimal, 
numbering system. 

The Hexadecimal System 

Hexadecimal (usually abbreviated 
hex), is just like decimal if you have 
16 fingers. To count in hex, you say 
0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. A 
is equivalent to 10 decimal, B to 1 1 
decimal, C to 12, D to 13, E to 14, 
and F to 15. Ten hex is equal to 16 
decimal because, just like decimal 
and binary, hex uses a place value 
system to represent numbers. Ten 
hex means that there are no units and 
one 16: 



YY 



(*i) 

(*16) 



When you write a hexadecimal 
number, we append the uppercase 
letter H to it to avoid confusing it 
with binary or decimal. Additional- 
ly, we write the numbers A through 
F as 0AH, 0BH, 0CH, etc., the zero 
eliminating confusing the numeral 
with a letter. 

To understand why hex is conve- 
nient for the computer, you need to 
think about how the computer stores 
information. The Z80 microproces- 
sor uses 8-bit logic. A bit is an elec- 
tronic signal that's either on or off 
(binary, remember?). 

A group of 8 bits of information 
clustered together is called a byte. A 
single hex numeral can represent 
half-bytes, or nibbles, consisting of 4 
bits because the greatest value a four- 
digit binary number represents is 16 
decimal. Remember, 1000 in binary 
is 10 in hex and 16 in decimal. So two 
hexadecimal digits can represent any 
8-bit value (a byte). 



It's easy to convert a binary byte 
to a hexadecimal byte. Take the 
number 10001000 binary again. The 
first step is to break the byte into its 
component nibbles, 1000 and 1000. 
Then convert each nibble to hex: 

10 (0*1) 10 (0*1) 

(0*2) (0*2) 

(0*4) (0*4) 

8 (1*8) 8 (1*8) 



8H 



8H = 88H 



Therefore, 10001000 binary is 88 
hex. Check this by converting both 
binary and hex values back to dec- 
imal. Earlier I said that 10001000 bi- 
nary is 136 decimal. 88H means 8 
units plus 8 sixteens (or 128) which 
equals 136 decimal. 

Try another binary-to-hex conver- 
sion, this time with 10011110. Break 
it into two nibbles: 1001 and 1110. 
Convert each nibble: 

10 1 1 (1*1) 1110 (0*1) 

(0*2) 2 (1*2) 

(0*4) 4 (1*4) 

8 (1*8) 8 (1*8) 

9 E (14 decimal) 
= 9EH 



So, 10011110 is 9E hex. If you 
check this by converting to decimal 
you find 10011110 equals (128 + 
16+8 + 4 + 2) or 158, and 9EH 
equals (9x 16+ 14), also 158. 

Working with binary and hex be- 
comes easier as you do more of it. 
And learning these other number 
bases is necessary if you want to 
speak in your computer's native 
tongue. ■ 



Gets Mail 



From unsolicited letters of testimonial 

Gentlemen: 

....Thank you for such an 
excellent product! I spent part 
of last evening installing the 
CRT and had absolutely no 
problems with the installation. 
I wish all modifications could 
be as easy and as well sup- 
ported as the one I received 
from your organization. You 
can be sure of recommenda- 
tions for your product from 
me. 

Thanks again 

D.C. 

APO, NY 



Dear Langley-St. Clair. 

[This] letter [is] to thank you 
for putting together a really 
great addition to the Radio 
Shack Model II. 

I had unsuccessfully tried 
two different kinds of anti- 
glare products prior to the pur- 
chasing of your anti-glare 
Green Phosphor CRT. 

Not being an electronics ex- 
pert I was hesitant to try the 
installation myself. But, after 
reading the instructions that 
were supplied with the CRT, I 
decided to try it. The instruc- 
tions were so outstanding that 
the whole process was ac- 
complished without any prob- 
lem or question.... 

We hope you will develop 
some other additions or im- 
provements for the Model II. 
We can be counted as an en- 
thusiastic supporter. 
Cordially, 
B.T. 
Gregory, Michigan 



LSIS't NEW SOFT-VIEW 
REPLACEMENT CUT 

FOR THE 
FULL STORY, 
SEE PAGE 41 
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01100 


























•■111 


;* 










• 


M12ff 


;* 




The Second Prograa — 




• 


00130 


•• 










• 


00140 


>* 




Fill the 


screen with 


'HI 


* 


00150 
■ I17I 


; 










• 






••180 


VIDEO 


EQU 


3C00B 




;3C00H - top of screen 


00190 


f 












••2M 






ORG 


7000H 






••211 


1 












••220 


START 


LD 


BL, VIDEO 




jHL--> Top of screen 


80230 






LD 


BC,400H 




jBC-length of screen 


• •240 


LOOP1 


LD 


A, 'H' 




jGet first character 


• 0250 






LD 


(HL) ,A 




j Put it on screen 


00260 






IMC 


HL 




• HL— > next screen pos'n 


00270 






DEC 


BC 




sBC-nuaber of pos'ns left 


■ •280 






LD 


A,'I" 




(Get next character 


00290 






LD 


(HL),A 




jPut it on screen 


00300 






INC 


HL 




;HL"> next pos'n 


00310 






DEC 


BC 




;one less pos'n left 


00320 






LD 


A,B 




; Get MSB of count 


00330 






OR 


c 




;Merge with LSB of count 


00340 






JP 


NZ.LOOPl 




1 Loop er of pos'ns left 


00350 


LOOP2 


JP 


LOOP2 




;Then loop forever 


00360 


1 












•0370 






END 


START 






00380 


7 
















Program Listing 2. Assembly-Language Lesson 2. 



Line 210 is the first line of actual in- 
struction. It has the label Start, which 
the assembler sets equal to the address 
of the instruction (7000 hex). This in- 
struction tells the computer to load 
(LD) the A register with 48 hex, the 
ASCII value of the character H. 

Line 220 instructs the Z80 to take the 
current value in the A register, and 
place it in memory at address 3C00 hex. 
Remember that the screen memory oc- 
cupies addresses from 3C00 hex to 
3FFF hex. Therefore, this instruction 
causes the Z80 to place the value 48 hex 
in the first location of screen memory. 
The computer's screen electronics then 
print an H in the upper left-hand corner 
of the screen. 

Four things in line 220 require special 
attention. First, notice the parentheses 
placed around the screen address. They 
are necessary to indicate to the assem- 
bler that 3CO0 hex is an address, not a 
value you want manipulated. The in- 
struction is best read as "Load the con- 
tents of register A into the memory 
location represented by the value 3C00 
hex." 

Second, notice that getting the H to 
the screen requires two instructions. 
The first instruction reads the H from 
memory and the second stores it to a 
different place in memory. In general, 
the Z80 cannot simply move data from 
one memory location to another. It only 
moves data to or from the registers in 
the chip. (Some instructions avoid this 
restriction, however.) 

Third, it is important to realize that 
this instruction doesn't change the con- 
tents of register A. It copies the contents 
to location 3C00 hex, but A is not emp- 
ty. An LD instruction never changes the 
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value that it moves; it only transfers that 
value to a new place. 

Fourth, notice the order of the two 
operands of each LD instruction. The 
first operand receives the value trans- 
ferred from the second. If you read line 
220 as "Load 3C00H from A" you can 
remember the correct order of 
operands. 

Lines 230 and 240 are now clear. 
They load the A register with the ASCII 
value of I and place that value at the 
next screen location. When the comput- 
er executes the instruction in line 240, it 
prints HI in the top comer of the screen. 

Line 250 introduces a new instruc- 
tion, the Jump (JP) instruction. It tells 
the Z80 to take its next instruction from 
a new place in memory (like Basic's 
GOTO). Notice that the line gives the 
symbol LOOP, and the instruction says 
"Jump to LOOP." This instruction 
produces a tight, endless loop similar to 
the Bask instruction "50 GOTO 50." 
The computer seems to lock up and 
there's no way to regain control except 
by pushing the reset button. This in- 
struction is necessary to stop the Z80 
from wandering off and trying to exe- 
cute whatever it finds scattered through 
memory. Every program must come to 
some specific end, either with a loop or 
a return to Basic or DOS. 

The last line of Listing 1 uses the 
pseudo-op END for two purposes. 
First, the assembler needs to know the 
end point of the program. Every source 
code must have END in its last line. Sec- 
ond, if the address of the beginning of 
the program follows END, the assem- 
bler includes that information on disk 
or tape so the program runs auto- 
matically. Start is the label for the be- 



ginning of this short program and, be- 
cause it already equals 7000 hex, it tells 
the assembler that the program starts at 
that address. 

Before you read further, try to enter 
and assemble the program in Listing 1. 
Use the Insert command to get auto- 
matic line numbering, and copy the 
program exactly (you may leave out the 
remarks if you wish), using the right-ar- 
row key to tab between columns on the 
screen. Then return to the prompt. 

When you're ready to assemble the 
program, first try a test assembly by as- 
sembling the program with no output. 
The command you give to the assembler 
is probably A ,NO, or A/NO which 
asks it to assemble without output. If 
you enter the program correctly, the as- 
sembler displays 00000 Errors. That is 
the assembler's method of saying that 
each line has correct syntax; obviously, 
the assembler doesn't know whether 
your program does what you want it to. 

Save the source code to either tape or 
disk. (If you make a logic error in your 
program, you want to correct the source 
code, not write it all over.) Assemble the 
program to tape or disk. In both cases, 
give the program a name — on tape the 
names can be anything you wish; on 
disk, write the source code with a /SRC 
or /ASM extension and the program 
with a /CMD extension to make it run 
directly. Finally, use SYSTEM or DOS 
to load and run your program. "HI" 
should appear in the upper left corner 
of the screen. Your computer is in an 
endless loop, so press the Reset button 
to regain control. 

If all goes well, reload the editor/ 
assembler and the source code and try 
to modify it — perhaps have the pro- 
gram print your name on the screen. 
Experiment with different messages and 
different screen locations — it is the only 
way to learn Assembly language. 

Modifying a Program 

I know Listing 1 isn't an exciting pro- 
gram, but your first Basic program 
probably wasn't much fun either. Here 
I add a few bells and whistles, as well as 
some new concepts. 

Program Listing 2 fills the entire 
screen with the letters HI. It also intro- 
duces several new programming tech- 
niques, the first of which is in line 180. 
The EQU pseudo-op sets the label Vid- 
eo equal to the value 3CO0 hex; instead 
of having to remember a value each 
time you use it in a program, you can 
give it an easy-to-remember label. 

Line 200 looks familiar. Line 220 tells 
the computer to load the value of Video 
into the HL register pair. In this pro- 
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gram, HL points to, or holds, the ad- 
dress of the current video position in or- 
der to simplify the program. 

Line 230 loads the BC register pair 
with the value 400 hex (which equals 
1,024). This program uses BC as a byte 
counter; 400 hex equals the length of the 
screen, and when BC is zero, the screen 
is full. Using a byte counter is similar to 
using a For. . .Next loop in Basic. 

Line 240 loads the A register with the 
ASCII value for H. By placing the H in- 
side a set of single quotation marks, you 
tell the assembler to translate the letter 
into its ASCII equivalent — you don't 
have to look it up in a table. Line 250 
loads the value in the A register into the 
memory location to which HL points. 
Notice that parentheses enclose the HL 



"The screen 
should fill with 
the word HI." 



just like the addresses in the last pro- 
gram, which tells the Z80 to treat the 
current HL value as a memory address. 

Line 260 increments (increases by 1) 
HL so it points at the next memory lo- 
cation and line 270 decrements (de- 
creases by 1) BC so it holds the number 
of screen positions remaining. Lines 
280-310 repeat the whole process for 
the letter I. 

Lines 320 and 330 test the value in BC 
to see if it is zero yet, which means the 
screen is full. First, the program copies 
the value in the B register into the A reg- 
ister. Then it ORs the value in C with 
the current value in A. If both B and C 
are zero, the result of the OR is zero, 
and the program sets the zero flag in the 
F register. Otherwise, the result is some 
other value and the F register flag indi- 
cates Not Zero. 

Line 340 uses the results of the OR to 
decide whether or not to repeat loop 1 . 
It tells the Z80 to jump only if the F reg- 
ister shows Not Zero. If the flag indi- 
cates a zero result of the OR in the pre- 
vious instruction, the program ignores 
the Jump command. The jump contin- 
ues until the BC register pair decrements 
to zero. Then line 350 performs an end- 
less-loop jump. 

Notice that the instructions from 
lines 240-340 do not depend on any par- 
ticular values in HL or BC. Whatever its 
current value, HL points to the current 
address on the screen. The program in- 
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•1111 


• • 






* 


00120 


»• Tne Third Froqram — 


• 


■ •131 


l« 






* 


Bene 


i* Fill the 


screen with a 


* 


• •151 


i* a 


lmple message 


• 


00160 


»* 






* 


••171 










90188 


t 








••190 


l 








••290 


VIDEO 


EQU 


3C99H 


j Address of screen top 


0*210 


1 








00220 




ORG 


7000H 


I Beginning of program 


00230 


I 








00240 


;Flrst, 


clear the acreen 




00250 


1 








00260 


CLEAR 


LD 


HL, VIDEO 


;HL--> acreen top 


00270 




LD 


BC400H 


>BC » Length of screen 


00280 


CL10 


LD 


(HL),' ' 


; ASCI I Space to screen 


00290 




INC 


HL 


;HL==> next screen pos'n 


00300 




DEC 


BC 


;Decrease count 


00310 




LD 


A,B 


;Get MSB of Count 


00320 




OR 


C 


; Merge LSB of count 


00331 




JP 


NZ,CL10 


l Loop back until BOB 


80349 


1 








00350 
• •361 


1 Now that screen le clear, dl 
1 


•play messaqe 


• •370 


PRINT 


LD 


HL, VIDEO 


rHL"> screen top 


10360 




LD 


DE, HESS AG 


(DE-»> beg. of message 


00390 


PR10 


LD 


A,(DE) 


iGet nest character 


00419 




LD 


(HL) ,A 


;And put It on acreen 


• 9419 




CALL 


INCNSG 


{Increment i check DE 


99429 




CALL 


INCVID 


l Increment t check HL 


99439 
99449 


1 


JP 


NZ.PR1I 


(LOOS until tciun't foil 


99459 
99469 


jThe screen la 
f 


full, look for 


e keystroke then start over 


99479 


KEY 


LD 


A,(3BFFH) 


l Check the keyboard 


60480 




OR 


A 


jSet the flags 


00490 
00500 


1 


JP 


I, KEY 


j Loop until key is down 


00510 


iKey ia 


pressed — wait until 


it is released 


00520 


I 








00530 


NOKEY 


LD 


A, (3BFFH) 


iCheck the keyboard 


00540 




OR 


A 


;Set the flags 


005S0 




JP 


NZ. NOKEY 


jWait until key is up 


00560 
00570 


; 


JP 


CLEAR 


;Then start again 


00580 


j Now come the subroutines 




00590 


; 








00600 


l Increment the 


message pointe 


r until it points to 


00610 


; the 


end of the messaqe and 


then reset it to the 


00620 


J begl 


nning. 






00630 


1 








00640 


INCNSG 


INC 


DE 


;DE-«> Next pos'n of msg. 


00650 




LD 


A,(DE) 


;Get the character 


00660 




CP 





lis it s 7 


00670 




RET 


NX 


jReturn if not 


00680 




LD 


DE, MESSAG 


i Else DE=«> beg. of msg. 


00690 




RET 




;And then return 


00700 


; 








00710 


; Increment the 


video pointer 


juttil it is off the screen 


00720 


I 








00730 


INCVID 


INC 


HL 


;BL==> Next pos'n of vid. 


00740 




LD 


A,H 


jGet MSB of pointer 


00750 




CP 


40H 


jlf H-40H, off the screen 


00760 




RET 




j Return for test 


00770 


1 








00780 


jNow type in the message 




00790 


1 (You 


may use any message you wish) 


00800 


I 








00810 


MESSAG 


DEFM 


'How 1b this 


for fast? ' 


00820 




DBFB 


■ 


jHark end of message 


00830 


■ 








00840 


,- That's 


all, so end the progr 




008S0 


> 








00860 




END 


CLEAR 


; Include starting address 


00870 


• 












Program Listing 3. Assembly- Language Lesson 3. 



crements it after each character prints. 
BC's current value decrements after the 
program prints each character. The 
program continues until BC indicates a 
full screen. The entire routine depends 
on the Z80's ability to make a condi- 
tional jump in line 340, based on the 
current status of the zero flag. 

Enter, assemble, and run Program 
Listing 2. Again, you must use the reset 
button to exit from the program be- 
cause of the endless loop in line 350. 
The screen should fill with the word HI. 
See if you can modify this program be- 



ing careful that you don't let the pro- 
gram print off the end of the screen. 

More Bells and Whistles 

This next program lets you fill the 
screen with any message you wish. It 
also allows you to hit any key to clear 
the screen and print the message again. 

Lines 190-270 in Program Listing 3 
need no explanation. Notice that the in- 
struction in line 280 loads a character 
(here, an ASCII space) directly into the 
memory location to which HL points. 
This instruction avoids first loading the 
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The Best Just Got Better 



Introducing the new Strobe Models 260 and 200 Graphics 
Plotters. How do you make the world's most cost-effective graphics 
system even more remarkable? Simple. Make it easier to use, more 
powerful, more versatile and more attractive. The hard part is doing all 
of the above while holding the line on a very affordable price. With the 
new Models 260 and 200 Graphics Systems, Strobe has done it all. And 
the benefits are all yours. 

The Strobe 260 is the first eight-pen plotter and software package 
available for under $1, 000. With just a 
few keystrokes on your computer, the 
system produces superb high-resolu- 
tion charts, drawings and transparen- 
cies with up to eight automated color 
breaks. The even more economical 
Model 200 produces the same wide 
range of graphics with a single pen 
which may be changed manually. 

The new Strobe plotters interface 
with virtually every popular microcom- 
puter made today, including the Apple 
II, He and HI, Victor, IBM PC. Kaypro 




and Osborne systems. What's more, the StrobeWare software programs 
provide every graphic format you will probably ever need, including 
multicolor pie charts, bar graphs, line graphs, text processing, and a 
broad selection of symbols and character styles. To further increase your 
capabilities, the new Strobe systems also interface with over 40 other 
popular graphics programs. 

Every feature of the new Strobe Graphics System is designed to give 
you the highest quality graphics quickly; easily and inexpensively. The sys- 
tem also looks very nice on your desk 
So visit your local dealer today and see 
how much better the best can be. 

Apple I! lie and III Victor, IBM PC. bvprn ind Osborne art 
trademarks of Apple Computer. Inc., Victor Inited, Inc . Inter- 
national Business Machines Corporation bypro Corporation, 
and Osborne Computer Corporation, respectively 



Strobe Inc. 

897 5-A Independence Ave 
Mountain View, CA 94043 
415/969-5130 




The Strobe Graphics System 

Seeing is believing 



COMPUTER SHACK 



Computer Shack has been in the bus- 
iness of publishing software for 3 years 
We are the leading publisher and de- 
veloper of Games and Misc. SOFTWARE 
for the Radio Shack Computers. At the 
present time we have more excellent 
quality games for the Model l/IH/4 then 
Radio Shack Try one of our excellent 
software programs and get on our mail- 
ing list for our exciting Software catalog. 

Our current list of best selling games 
for the Model i/lll/4 include. ... 
JUMBO a great flight simulator of a 
Boeing 747 ($29.95/29.95) . . . TIME 
BANDIT a fantastic arcade game with 
3 different time zones. Our Best Arcade 
game ($22.95/ 26.95) . LIBERATOR 
A great clone of Donkey Kong' ( 1 9.95/ 
24.95) . MOON ROVER Battle the 
strange invaders while making a run 
for the nearest earth installation 
($22 .95/26.95) . . . FURY A great space 
game with three different screens 
($22.95/26.95) ...CONVOY You must 
protect the convoy from enemy fighter 
planes and helicopters ($22.95/ 26.95) 
.. DIGOUT A great game for those who 
like to dig underground and snoot the 
monsters ($ 1 9.95/24.95) . . . CYBORG 
The greatest Pac Man" type maze 
game ever written for the TRS-80 
($19.95/ 24.95) . . CLASH Mounted 
on your dragon you take on the world 
($19.95/ 24 95) STRONGHOLD 
Protect your four cities from flying 
bombs ($21.95/ 24.95) 

Serious Soft ware for the Model l/IH/4. 
SuperDos a program that improves 
TRS -DOS 1.3 (Model III). A better 
copyi Copies Visacalc and Scrlpsit. 
Disables passwords. Runs faster. 
makes TRS- DOS better $19.95 
Super Input gives your basic program 
a Professional Machine Language in- 
put routine that lets you move the 
curser around the screen to make 
input and corrections a snap $19.95 
Family Trae an excellent Genealogy 
program to help trace and keep track 
of the Famny Tree ($29.95/29.95) . 
Check Writer a very good check writ- 
ing and check book balancing pro- 
gram for the individual or small bus- 
iness ($39.95) . . . Tead A tape editor 
and debugger for the tape based 
machine $19.95 ... TRSFIX a great 
program with over 132 different 
changes that allow you to totally cus- 
tomize your Model III TRS DOS operat- 
ing system. $29.95 . . . and many many 
more. 

All Computer Shack programs are unconditionally guaranteed to perform as ad- 
vertised. We fill 95% of our orders within 24 hours. 

For Information call (313) 673-8700 or 673-2224 for ORDERS call 1 -800-392- 
8881 



1691 Fason • Pontiac. Michigan 48054 
Info (313)673-1205 • Orders CALL TOIL FREE (BOO) 392-8881 

Master Charge and VISA OK Please add S3 00 tor shipping m the U S A S5 00 

tor Canada 

Dealers inquires Invited 



PASCAL ONLY $49.95 

Special introductory offer* MiTron 
PASCAL complete in every way. Full 
floating points. 96 standard keywords 
and 32 non standard keywords Learn 
Pascal for only $49.95 . Why spend over 
a hundred dollars for the same thing from 
someone else??? MiTron Pascal is nor- 
mally priced at $149.95. Model l/IH/4. 

Superlnput 

A great new machine language sub- 
routine that you can add to any Basic 
program to give it professional keyboard 
routines Go to anywhere on the screen 
and input or edit. 3 versions Model l/lll. 
Model 4, COCO. Disk only $19.95. 

SuperScratch Pad 

A great new program by Mark Feldman 
This is a all machine language information 
reference utility. . It has all the features 
of a data base, word processor, and note 
book. This is a screen based data base. 
You can organize each screen just the 
way you want it simply and quickly. This is 
the easiest Data Base or information 
storing system available Sorts Prints. 
Help page, up to 1792 characters per 
record Its GREAT. Instead of having 
many sheets of paper with notes on them 
you can put it all into the Super Scratch 
Pad for only $49.95 

SuperOi rectory 

Still the greatest disk catalog program on 
the market Reads any Dos i/m/4. 35-80 
track disks. Lets you add descriptive re- 
marks to the files. Super Fast sort and f i nd 
routines List Price $49.95 Christmas 
Special $39.95. 

LIFETIME DISKS . ... $1 .77 

All of our disks are guaranteed for the life 
of your Computer. If they ever wear out 
send them back for free replacement 

100 d.sK» single aide double density 1 77.96 
10 disks single side double density $19 95 
10 disks flippy* two sides double density $29 95 

CYCLE BILLING SYSTEM 

A great Accounts receivable program for 
the business man who must send out bills 
on certain cycles Monthly. Quarterly or 
Weekly. Keeps running totalsforyearand 
gives many reports Each program is set 
up special for you with drivers for your 
printer etc 

l/IM/4 Special Version for Model 4 only 
$199.95 



character into the A register and then 
back into a new location in memory. 

Lines 290-330 are similar to the last 
program. They increment HL, decre- 
ment BC, and test to see if BC equals 
zero. The entire block of code from 
lines 260-330 clears the screen by filling 
it with spaces. 

The second block of the program, 
lines 370-430, prints a message repeat- 
edly until it fills the screen. HL again 
points to the screen location. Now, 
however, DE points to the message in 
line 810. These lines load 1 byte of the 



"Keep experimenting 

and you will 

soon find that 

Assembly language is 

as easy as any 

other computer language. " 



message into the A register in line 390, 
then put that character into screen 
memory in line 400. 

Lines 410 and 420 introduce a new 
mnemonic, Call. This instruction is sim- 
ilar to Basic's GOSUB command in that 
it runs a subroutine. The Z80 saves the 
address of the next instruction before it 
runs a subroutine in order to know 
where to return when it completes the 
subroutine. Then it jumps to the sub- 
routine and performs those instruc- 
tions. 

The label INCMSG, which stands for 
"Increment Message Pointer," defines 
the first subroutine. The subroutine 
starts at line 640. This line increments 
DE, which points to the message. Once 
incremented, line 650 loads the new 
character to which it points into A. The 
command CP zero in line 660 means 
"Compare the value in A with zero. If 
the two values are identical, set the flag 
to Z to indicate a true compare; other- 
wise set the flag to NZ." 

The RET command in line 670 means 
"Return from this subroutine." Be- 
cause NZ follows it, it is a conditional 
return — the computer executes the re- 
turn only if the flag in the F register in- 
dicates Not Zero. Otherwise, in line 
680, the program points DE to the be- 
ginning of the message again, and then 
an unconditional return in line 690 
sends the Z80 back to the instruction in 
line 420. The entire subroutine INC- 
MSG depends on a zero byte at the end 

Continued on p. 86 
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Beginner's 
Guide to 
Assembly- 
Language 
Terminology 

Simple Glossary 

This short glossary should help 
you learn the most common As- 
sembly-language terms. It's arranged 
in logical, rather than alphabetical, 
order. 

bit (binary digit) — Though some- 
times denned in terms of electronic 
signals, for present purposes a bit is 
the smallest amount of information 
on which the computer acts. It is a 
single 1 or zero digit and the building 
block for all computer notation. 

byte — A sequence of 8 bits. A byte 
is generally thought of in terms of its 
total value. With 8 bits you can ex- 
press any value between 0O00000OB 
and 1111111 IB. In normal decimal 
notation that's any value between 
and 255; in hexadecimal it's any 
value from 00 hex to OFF hex. 

word — In computer jargon, a 
word comprises 2 consecutive bytes, 
or 16 bits, and the computer handles 
it as a single value. The value of a 
word can vary from to 65535 (deci- 
mal), from 0000 hex to FFFF hex, 
from 00000000 OO00OO0OB to 
11111111 11111111B in binary. 

address — A one-word (2-byte) val- 
ue that denotes any byte of memory. 
Every byte of memory has a unique 
address, allowing you to find it easi- 
ly, and find and manipulate its value. 

LSB and MSB (least significant 
byte and most significant byte) — 
Since every word and every address is 
composed of 2 bytes, it is useful to 
have a name for each. The most sig- 
nificant byte is the high-order 
byte — the one that normally comes 
first. The other is the least significant 
byte. For example, in the hexadeci- 
mal word 3C42 hex, 3C hex is the 
most significant byte and 42 hex is 
the least significant byte. Because of 
the way the internal Z80 circuitry 
works, it usually stores 2-byte values 
in memory backwards, with the LSB 
before the MSB. 



ASCII code — Every possible vid- 
eo character, all video control char- 
acters, all graphics characters, and 
all special (Model III) characters 
have a unique 1-byte code that the 
video circuitry uses. The codes for 
letters and numbers are standard be- 
tween various computers, but graph- 
ics and special characters are not. 
The ASCII code for the character 1 is 
49 or 31 hex or 00110001B (rather 
than the seemingly obvious value of 
1, a complicating fact of life for ma- 
chine-language programmers). 

register and register pair — Reg- 
isters are special memory inside the 
Z80 chip. Each is either 1 or 2 bytes 
in length (8 or 16 bits). A register pair 
is two 8-bit registers that can work 
together as a single 16-bit register. 
There are 22 registers inside the Z80 
that your programs can manipulate 
directly. 

ROM (read-only memory) — ROM 
is unalterable, unchangeable memo- 
ry inside the computer that holds the 
resident Level I or Level II Basic in- 
side the Models I and III. This mem- 
ory doesn't change even when you 
shut off the computer's power, so 
your computer never "forgets" its 
knowledge of Bask. 

RAM (random-access memory) — 
Sometimes called read-and-write 
memory, or program memory, this 
memory is changeable. The com- 
puter uses it to store both programs 
and data. Unfortunately, it loses all 
of the information stored in it if the 
power to your computer is turned 
off. Unless you did some unusual 
home-brew modifications, your com- 
puter has 4K, 16K, 32K, or 48K bytes 
of RAM. (K stands for 1000, but in 
computer usage usually means 1024. 
16K, therefore, means 16384 bytes of 
RAM.) 

Status Flags 

The F, or flag, register contains 4 
commonly used status bits, each of 
which can direct conditional jumps, 
calls, and returns. 

Z and NZ— The zero flag is the 
most common. This bit indicates 
whether the result of a previous 
operation was zero or some other 
value. For example, if the result of a 
subtract or compare operation is 
zero, the flag shows zero. In source 
code, the condition Z means zero 
and NZ means not zero. The zero 

Continual on p. 96 
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MASTER 

HORSE 

HANMCAPPER' 

OVER 3 YEARS IN THE MAKING 
1st complete handicapping program 
that evaluates all variables 



liHAPMlC 
'ON j' ' ■'■ s 



ADAPTS TO ANY TRACK IN THE 
WORLD 

Quickly and easily by changing data statements 
relating to local track records / jockeys and trainers 

COMPLETE INSTRUCTIONS INCLUDED 



A Thoroughbred • 

Maiden 59 95 16K 
B Qualerhorse * 

Ma.den 59 95 16K 
C Pace Handicap 

39 95 16K 
D Thoroughbred Pace 

'■■,■- .- 
F A * !• .Mr N 

99 95 48K 



PROFESSOR JONES' FOOTBALL PREDICTOR 

PROF. PIX — Th«s complete football analysis will predict: 
1) Overlays 2) Point Spreads 3) "Superptays" 
4) "Over/Under" Bets. FOR NFL/USFL/COLLEGE 

T D 

Specify Mod l/lll 19 96 24 95 



'ROr-ESSiONA.. Sv5T L '. 



LNWII 



SOFTWARE 



:96K) W«.KAGt E 



(LNW Business Series) 
General Ledger / Payroll 
Accounts Payable ' 
Accounts Receivable 
Electric Spread Sheet'* 
Electric Pencil" — WP 
program 

Micro Term" — modem 

program 
Chart Ex — graphics pkg 
LNW Basic 
DOS plus 
3.4 Micro 
Soft Basic 
CP/M 2.2 

ANO 
MASTER PACK 
HANOtCAPPCR 
by Prof. Jones 




S2195 



PMI.L- " 

Fiji Whole System 



Jttm Hea t er Dog Analysis™ 

Prof Jones' complete system will make your track 

days enjoyable $99.95 complete 

~W Deluxe Horae Handtcapper" 

Everything on program E. and Also 1) runs full 14 

horae field. 2) contain* printer mode, 3) provides 

ae c ape w/out data loss $129.95 complete 

_W» Master Bettor- 

a must for all master handicappers using Prof Jones' 

systems $99.95 complete 

71% M IN MONEY" 
FOR 1983 



MASTER Complele G'eyhound Hsndicapp*r 

dog ':,'.■" ■'■ ".'. 

ANALYSIS'" ; •'.. ••/ sQ Q 9f. ... 



Send check / money order / VISA / Mastercharge 
(Include expiration date) to: __ . , 

Prof. Jones 



1114 N. 24th SL 
BoiM, ID 83702 



FAST y 449 

SHIPPING 

Or call and place 
©rdar at (208) 342-6939 



TERMS FREE SHIPPING ALL SOFTWARE. 

Add $6.00 hardware / COO. Add $6.00 / Add 3 
weeks personal checks / Add 4.5% ID residents / 
Add $6.00 outside USA. / prices subject to change. 
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Continued from p. 84 

of the message to mark its conclusion. 

Line 420 sends the Z80 out to another 
subroutine, INCVID (Increment the 
Video Pointer), and passes control to 
the instructions starting in line 730. First 
line 730 increments HL. Remember that 
the video memory is in address from 
3C00 hex to 3FFF hex. If HL equals any 
value in that range, it points at the 
screen and everything is okay. But when 
HL equals 4000 hex, it points to the first 
memory address past the screen. Then 
H holds the value 40 hex and L holds 
the value 00 hex. 

Line 740 loads the new value in the 
HL register into the A register for test- 
ing. Line 750 compares that value to 40 
hex in order to set the F register flags. 
You might expect the next instruction to 
be a conditional jump or return, but it 
isn't. Instead, the subroutine ends with 
an unconditional return (RET) command. 
However, the return command doesn't 
affect the F register, and so the flags re- 
main the same when the Z80 returns to 
the instruction in line 430, which does 
contain a conditional instruction. Very 
often in Assembly language, programs 
set the condition flags with one instruc- 
tion but don't use them until several in- 
structions later. Be sure that the instruc- 



tions between don't change any of the 
flags. 

Line 430 repeats the print block until 
the screen fills. Then the program con- 
tinues with the KEY block starting with 
line 470. Here, the value in memory lo- 
cation 3BFF hex loads into the A regis- 
ter, which is part of the keyboard mem- 
ory. This location holds a zero if you're 
not pressing any key; if it holds any 
other value, you're holding down at 
least one key. 

Unfortunately, loading a value into 
the A register doesn't set the condition 
flags. Therefore, line 480 ORs register 
A with itself. The value in A doesn't 
change, but the flags are set to indicate 
whether its current value is zero. If it is, 
the conditional jump in line 490 sends 
the Z80 back to KEY to wait for you to 
press a key. 

After you do so, the program enters 
the final block of the program, 
NOKEY. Another loop waits for you to 
release the key. Then, and only then, 
the program loops back to the Clear 
routine at the beginning, clears the 
screen, and starts all over. 

Lines 810 and 820 demonstrate two 
new pseudo-ops. In line 810, DEFM 
means "Store the text between the 




. . your Word Machine is the best bargain I have 
found in software in my last two years of personal 
computing. " 



PEL-TEK'S 

word. A ^ 
machine 2.0 



J.B., Tuscan, AZ 



A unique Word Processor for the TRSSOMod I /III 
32/48K Disk System — different in design, concept, 
function and price. 



only 



Order toll free 1-800-523 2445 
Add $2.00 postage and handling 

Your SECOND Word Processor shouldn't be a "me too" product but should be useful, 
economical, and truly different with features like these: 



great lor kid*, wives 



Easy to learn Commands 
and nervous secretaries 

Graphics mode — to mix graphics with text on the 
same lines I printer support needed) 

On screen formatting — So what you type is what 
you print — including centering, word wrapping 
and tabbing 

Lowercase support - lor unmodified Mod I's 

Create and Edit Communications files, like those 
sent to/from CompuServe 



Exit to D.O.S. and re-enter without losing text — 
even after re-booting! 

< Embed any ASCII character 0-255 in text. Supports 
any printer's special features 

I Software forms control: Eject lines/ pages, print 
multiple copies, print-time entries 



Written in machine language 
And much more . . . 



printer independent 



Send serf -addressed, stamped envelope for FREE copy of Manual ($.37 postage, please) 
. . . CHRISTMAS SPECIAL - Free "JUMPY" Arcade game on disk 

PEL-TEK ■ P.O. Box 1026 ■ Southampton, PA 18966 

Toll free order line 1-800-523-2445, Ext. 19 
in Pennsylvania call 1-800-346-7511, Ext. 19 



Visa, Master Charge, check or money order 
Add $2.00 Postage and Handling ■ PA. residents add 6% sales tax 



••324 



single quotation marks in memory 
here." It loads whatever you type in in- 
to memory and sets the label MESSAG 
equal to the address of the first 
character. 

Finally, in line 820, DEFB means 
"store 1 byte of this value into 
memory." This instruction stores a byte 



Continued from p. 85 



flag generally checks the results of 
arithmetic and logical operations, 
and tests whether a single register 
decrement (DEC) results in zero. 

C and NC— The carry flag in- 
dicates whether a carry or borrow 
occurred that gives an arithmetically 
inaccurate answer. For example, if a 
program adds two 8-bit numbers and 
produces a 9-bit result, the carry flag 
holds the 9th bit. Also, rotate and 
shift instructions use the carry flag 
extensively. 

P and M — The normal arithmetic 
convention for working with signed 
numbers uses the highest-order bit to 
indicate the sign. Therefore 1 indi- 
cates a negative number and zero in- 
dicates a positive number. The sign 
flag shows whether the result of a 
signed arithmetic operation is plus 
(P) or minus (M). This flag is also of 
use with compare operations. 

PE and PO— The last testable flag 
has two functions. As a parity flag, it 
indicates whether a byte has an even 
or odd number of bits equal to 1 . PE 
then means even parity and PO 
means odd parity. The same set of 
flags can also indicate whether there 
is an overflow from an 8-bit or 16-bit 
addition or subtraction, in which 
case PO means no overflow and PE 
indicates that an overflow has 
occurred. 

N and H — There are two final 
flags in the Z80, N and H, which you 
cannot test directly by a program. 
The computer uses them in a special 
type of arithmetic called "binary- 
coded decimal" and generally ac- 
cesses them by the special DAA in- 
struction. 

Logical Operations 

The Z80 performs three kinds of 
logical operations: OR, AND, and 
XOR. Each has specific uses in As- 
sembly-language programs. 

Each logical command works on a 
single bit position at a time. For ex- 
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of zero into memory to mark the end of 
the message. This is the zero byte that 
the subroutine INCMSG tests for. 
Never assume that any memory loca- 
tion holds some specific value. If your 
program looks for a byte of zero at the 
end of a message, you must put that 
byte there. 



ample, when the Z80 uses OR to 
combine two values, first it ORs their 
highest bits, then their next highest 
bits, and so on. Logical operations 
have no concern with the total values 
of the operands; bit patterns are the 
only concern. 

AND— When the Z80 ANDs, the 
result bit is a 1 only if both of the op- 
erand bits are l's. 

10010011 

AND 10100110 

10000010 

Use AND to mask out unwanted 
bits. For example, if you want to iso- 
late just the 4 lowest bits of an 8-bit 
byte, you can AND that byte with 
00001111. The result copies the 4 
lowest bits of the original byte into 
the result and sets the 4 highest bits to 
zero. 

OR— The result bit of 2 ORed bits 
is a 1 if either or both of the operand 
bits are l's. 

10010011 

OR 10100110 

10110111 

OR merges two values together 
and forms bit records in which each 
bit in a byte has an individual 
meaning. 

XOR (Exclusive OR)— The result 
bit of 2 XORed bits is a 1 if either, 
but not both, of the operand bits 
is a 1. 

10010011 

XOR 10100110 

00110101 

Programs use XOR less often than 
OR and AND. Its major use is in 
clearing the A register and flags with 
the command XOR A. 

An interesting fact about the XOR 
operation is that it is cyclic. For exam- 
ple, if you XOR A and B, and then 
XOR the result by B again, the second 
result is the original A value. ■ 



Be sure to try a test assembly of List- 
ing 3 before you save the source code 
and assemble the program. With a pro- 
gram of this length, you can easily make 
a typing mistake that you must correct 
before the program runs correctly. 

Once you get this program running, it 
demonstrates the speed of machine lan- 
guage. When you press and release a 
key, you see a very brief blink on the 
screen. In that time, it prints a space in 
every screen location and prints the 
message again until the screen is full. 
Even though it must print 2,028 charac- 
ters, it all happens in a flicker of the 
screen. 

I -earning More 

No one can leam any computer lan- 
guage from one article. So far you can 
use only a few mnemonics and a few of 
the many types of program logic. You 
are on your way, but still have much to 
learn. 

You can do many things to develop 
your Assembly-language programming 
skills. First, read Assembly-language 
programs in magazines carefully and try 
to follow the logic of each. Most maga- 
zine programs have a lot of remarks to 
help you understand what they do. 



Second, read through the list of Z80 
mnemonics (there is an excellent list 
with complete explanations in the Series 
1 manual) and try to imagine how you 
can use each variation of each instruc- 
tion. Also, you might read one of the 
books available on beginning Assem- 
bly-language programming. William 
Barden's TRS-80 Assembly- Language 
Programming, available from Radio 
Shack, is one of the easiest to read. 

Third, if you have some short ma- 
chine-language programs available in 
your library, try to disassemble one and 
understand what it does without the 
benefit of remarks. Don't try to disas- 
semble something as long as Scripsit or 
VisiCalc; such complexity will com- 
pletely overwhelm you. 

Most important, write your own As- 
sembly-language programs. The more 
you write, the easier it becomes. Keep 
trying, keep writing, keep experiment- 
ing and you will soon find that Assem- 
bly language is as easy as any other 
computer language. ■ 

Write to Hardin Brothers at 280 
North Campus Ave., Upland, CA 
9 J 786, or contact him through Com- 
puServe. His e-mail address is 
72165,735. 



M.M. !=<:»■ 



MX-80 and RX-80 OWNERS 



MICRO-GRIP FRICTION FEED 

Add inexpensive friction feed !o your MX 80 or 
RX-80 Easily installed with screwdriver, no solder 
mq Does not disturb tractor feed Also fits 
printers based on Epson design such as IBM PC. 
Commodore and HP Dot Matrix printers 

Wt. 1 lb. ONLY $39.95/ea. 

CARTRIDGE RIBBONS FOR 

$5.00/ea. ^ /T T\ RS LP 

9.75/ea. 5i^\ A^£ A RS LP V 
5.75/ea. 
2.75/ea. 
5.85/ea. 




EPSON MX 70'80 
EPSON MX 100 
RS Daisy Wheel II M/S 
RS LP I. IV (Zip Pack) 
RS LP I. II. IV (Cart ) 




V S5.85/ea 

VIII 7.00/ea 

RS DMP 400 5.50/ea 

DIABLO Hytype II M/S 4.50/ea 

OKIDATA 84 5.00/ea 



PRESSURE SENSITIVE 
LABELS 

ONE ACROSS 3 1/2" x 15/16" 
ONLY S2.70/M 

Order in increments of 5.000 



COMPUTER PAPER 

MINI PACKS 

9-1/2 ' x 11" Blank. 20 lb 1 pt.. 1000/ctn 

(Extra fine perforations r & I.) ONLY $16.25/Ctn. 

14 7/8" x 11" 1/2" Green Bar. 15 lb 1 pt.. 1500/ctn 

ONLY S25.00/ctn. 

STANDARD PACKAGING 

9-1/2' x 11" Blank, 15 lb 1 pt 3300/ctn. ONLY $26.00/ctn. 

14-7/8" x 11" 1/2" Green Bar, 15 lb 1 pt . 3500/ctn 

ONLY $40.00/ctn. 



ALL COMPUTER SUPPLIES AT DISCOUNT PRICES 

TERMS AND CONDITIONS 

We require * minimum order ol S 10.00. nol including shipping charges Prices effective 7/1/83 and sub|ect lo 
change without notice To keep prices competitive we operale on cash basis Credit extended lo Federal agen 
cies. bul an other institutions and individuals send payment with order, our prices DO NOT include shipping No 
COD orders accepted We ship via UPS or motor freight Include street address, we don't ship to P O boxes 
Freight charges added to credit card purchases No merchandise relumed without prior written authorization 
Irom us Merchandise ordered in error or nol wanted is subtect to 25*'. restocking charge and limiied to merchan. 
dise credit only 




Send for our Free Brochure of Computer Supplies. Ask for Catalog No. DP-50 

Sir? BILL COLE ENTERPRISES. INC. ' " 

P.O. BOX 60 • DEPT. 80/12 WOLLASTON, MA 021704060 617-963-5510 
For Credit Card Orders ONLY! Call Toll Free 1-800-22&-8249 



I 
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Assembly-Language Disk I/O 



by David G. Haan 



w 



ith a knowledge of Assembly-language disk 
input/output, you can make your programs run 
more efficiently and solve most I/O problems. 



Assembly-language disk input/out- 
put (I/O) is a complicated and advanced 
technique, but understanding it allows 
you more creativity in programming 
and more knowledge in troubleshooting 
and repairing disk I/O problems. 

This article deals with the use of the 
Model III TRSDOS disk I/O and ex- 
plains the subroutines used in reading 
and writing disk files. Included is a 
demonstration program, TESTFILE/ 
TST, that chains these ROM routines 
and shows how they manipulate disk 
files. 

Within the text, I explain how to use 



each of the routines and what you can 
expect on entry and exit. I also point out 
some errors in Radio Shack's explana- 
tion of these routines. You should have 
a copy of the Disk System Owner's 
Manual for reference. 

In order to see the results of each rou- 
tine, I provide a non-destructive exit 
routine so you can examine the areas in 
memory that are affected. I list the rou- 
tines alphabetically in the first section of 
EQUs. 

I don't intend here to teach coding 
practice, but merely to demonstrate 
steps necessary to use each of the rou- 



Storage 


Bytes 


Areas 


Used 


BUFFER 


256 


UREC 


lea 




than 




256 


DCB 


64 


KBLNBF 


16 


DIRBUF 


24 



Description 

Operating system uses this as a data storage area during a disk read or 
write. It must be 256 bytes long since all reads and writes are done one 
sector at a time. 

A user buffer that locates all the data you want to write to or read 
from disk. The system moves data between UREC and Buffer if the 
logical record length is less than 256 bytes. 

Data control block contains information used by the system to read or 
write data from or to the disk. For a layout of the DCB, see Table 3 or 
the Disk System Owner's Manual. 

Buffer used to hold data entered via keyboard. Used in conjunction 
with system routine KBLINE. 

This is where RAMDIR places a single directory entry. The format of 
this buffer is shown in Table 4 or under RAMDIR in the Disk System 
Owner's Manual. 

Table I. Storage areas and buffers. 



tines. At the end of this article, you 
should have sufficient knowledge to 
write Assembly-language disk I/O 
routines. 

I will use the Program Listing 
(TESTFILE/TST) as a demonstration 
program throughout this article. If a file 
by the name of TESTFILE/TST exists 
on the disk you want to use, you should 
rename it. 

Table 1 lists the major storage areas 
and buffers TESTFILE uses for system 
routines and their functions. 

The program sets up registers before 
each call to a system routine. This is not 
always necessary since some of the reg- 
isters used remain unchanged when re- 
turning from a previous routine. It is 
done, however, to indicate the informa- 
tion required prior to calling a system 
routine. 

Following along with the Listing 
helps you see what registers the rou- 
tines need, and what they need to 
contain prior to executing the routines. 
Table 2 shows the condition of the regis- 
ters prior to and after each routine's 
execution. 

Program Operation 

The demonstration program starts by 
saving the HL register (see the Listing). 
The HL register contains the address of 
the first non-blank character following 
the last command you entered under 



The Key Box 

Model m 
32KRAM 
Assembly Language 
TRSDOS, Editor/Assembler, 
Disk Drive 
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For users of Apple, IBM, TRS/80, Atari, Commodore, Texas Instruments, and other brand name computers: 

Here's the easiest way to buy quality 
diskettes at discount prices 



Now you can get error-free double density diskettes by 
IBM. Control Data, Maxell and Verbatim delivered to your 
door. For some of the lowest prices around 

You save because we ship huge volumes of magnetic 
media in boxes of 10. 

To order, use this form.. 



Size 



For even faster service, call toll-free. 
1-(800)-FLOPPYS 

®1-(800)-521-5700 
Michigan • 1-800-482-4770 
Canada • 1-800-265-4824 
Alaska/Hawaii • 1-800-821-9029 

ALL MAJOR CREDIT CARDS ACCEPTED 

Shipping & handling FOB Southfield 
Transaction Storage Systems Inc.. Southfield, M 



|5-'VSS 
15-VDS 
I 8"SS 
'j 8" DS 



| Sub 
I Totals 



24 90 
3990 
2490 
3990 



Qty 



S 



V faballiit a 



23.90 
34.90 



Qty 



Control 
Data 



19.90 
29.90 
19.90 
29.90 



Qty 



maxell 



28 90 
41.90 



Qty 



■Name 

■ Company 

■ Address . 



Title 



State 



□ MASTERCARD 



Zip 



□ VISA 



EXPECT A MIRACLE 



jC.ty 

I Damex 

I Card » Exp. Date _ 

| Shipping and handling 1-6 boxes add $4 00 per order i|W& 
1 7 or more add $6.00 per order W ™ I -O 

■ Clip and mail today to: Transaction Storage Systems. Inc.. 
J 22255 Greenfield Road, Southfield, Ml 48075 ^430 



TRSDOS READY. Keep this fact in 
mind for later reference. 

Then the program checks to see if this 
is your initial entry into this program. It 
does so by looking at a storage location 
called Entry that contains the address of 
the location at which you reenter the 
program (if you have reentered it). 

If the reentry address is between 8000 
hexadecimal (hex) and 8FFF hex, Entry 
uses it as the reentry address. The pro- 
gram places the contents of Entry there 
with a routine called Look. Look is the 
non-destructive exit routine the pro- 
gram calls each time you execute a sys- 
tem program and provides a place in 
memory where you can look to see the 
effects of the routine's execution. 

When you run this program for the 
first time, it clears the storage areas 
from Buffer to LKBUF. This makes it 
easier to see what data the system rou- 
tines put into memory. Also, the pro- 
gram puts dummy data into the area 
called UREC. The program then writes 
this data to disk. Following this, a mes- 
sage indicates the start of the program. 

The program then prompts you for 
the name of a file to which you want to 
write data. This is where you type in the 
filespec you want used in the disk's data 
control block (DCB). The code that 
asks for the filespec starts at the label 
GETSPC. With the B register set to 15, 
and the HL register set to the keyboard 
input buffer (KBLNBF), the system 
routine KBLINE lets you enter up to 15 
characters for a file name. 

Once you do so and hit the enter key, 
the system's Syntax routine checks to 
see if your filespec has the correct syn- 
tax. If it does, the subroutine duplicates 
the filespec in the DCB. Syntax uses 
the HL register, which points to the file- 
spec in the keyboard input buffer 
(KBLNBF), and the DE register, which 
points to the DCB. 

On return, Syntax sets or clears the 
zero flag, depending on whether or not 
the filespec syntax was good. If it is, the 
subroutine sets the zero flag. If not, it 
resets the zero flag and the program 
prompts you for the filespec again. 

To check this system, enter any file 
name preceded by a blank such as 
BADSPEC. Press the enter key. Since 
this enters a bad filespec (the first char- 
acter is a blank), the program displays a 
message asking for a filespec again. 

You might think that since the file 
name must begin with an alpha charac- 
ter and have eight or fewer characters, 
Syntax would check this. It doesn't. It 
does check to see that the filespec starts 
with a blank, but Syntax allows the file 
name to start with a number and simply 
90 • 80 Micro, December 1983 



truncates it to eight characters. 

Also, if you use an extension and 
password, Syntax truncates the exten- 
sion to three characters, the password to 
eight characters, and doesn't return an 
error. If you need to check for the accu- 
racy of your filespec, better do your 
own checking rather than rely on the 
Syntax routine. 

Now enter TESTFILE as a file name 
and press the enter key. Since this file 
name has the correct syntax, the subrou- 
tine copies it to the DCB and the local 
routine Look displays a message asking 
you if you want to look at the results. If 
you answer with anything other than Y, 
the program continues execution, so 
answer with a Y. This brings you into 
Debug. 

You can go directly to Debug from the 
demonstration program by using the 
system routine called COMDOS. COM- 
DOS executes any command you can ex- 
ecute while in TRSDOS READY from a 
user program. The HL register must 
point to the address which has the com- 
mand you wish to execute. The program 
then executes a jump to COMDOS. 

The Look routine points the HL reg- 
ister to the label EXECUT in the mes- 
sage area of the listing, which contains 
the program name Debug followed by a 
carriage return. Once in Debug, you can 
use the command D to look at both 
KBLNBF and the DCB. 

To view KBLNBF, enter its address 



found in the section of equates at the 
beginning of the program under Stor- 
age Locations. In KBLNBF, note the 
file name TESTFILE followed by ODH, 
a carriage return. Now look at the 
DCB. You can find this address listed in 
the section of equates also. 

Notice that the file names in 
KBLNBF, which is now below the 
DCB, and the DCB are the same except 
for one thing. The file name TESTFILE 
in KBLNBF is followed by ODH while 
the file name in the DCB is followed by 
03H. The TRSDOS Disk System Own- 
er's Manual says the file name in the 
DCB is followed by ODH. As you can 
see, this isn't true if you use the Syntax 
routine. 

To return to the demonstration pro- 
gram, press the Q key to exit Debug and 
type in the name under which you as- 
sembled the demonstration program. 
This returns you to where you left off. 
The program displays a message on the 
screen indicating the location at which 
you reentered the program. In fact, 
each time you reenter the program, a 
message indicates the reentry point. 

You should reenter the demonstra- 
tion program at the label Extend. You 
can now enter a three-character exten- 
sion that the program adds to your file 
name in the DCB via the PUTEXT rou- 
tine. Of course, you could have added 
the extension to the file name when you 
originally entered the filespec, but the 











Registers 






Routine 




AF 


BC 


DE 


HL 


IX 


IY 


BKSPC 




Yes 


No 


No 


No 


No 


No 


CLOSE 




Yes 


No 


No 


No 


No 


No 


CMDDOS 




N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


CMDTXT 




N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


COMDOS 




N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


DIVIDE 




Yes 


No 


No 


Yes 


No 


No 


DSPDIR 




Yes 


Yes 


No 


Yes 


No 


No 


ERRDSP 




Yes* 


No 


No 


No 


No 


No 


FILPTR 




Yes 


Yes 


No 


No 


No 


No 


INIT 




Yes 


No 


No 


No 


No 


No 


JP2DOS 




N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


KILl 




No 


No 


No 


No 


No 


No 


OPEN 




Yes 


No 


No 


No 


No 


No 


POSEOF 




Yes 


No 


No 


No 


No 


No 


POSN 




Yes 


No 


No 


No 


No 


No 


PUTEXT 




Yes 


Yes 


No 


Yes 


No 


No 


RAMDIR 




No 


No 


No 


No 


Yes 


No 


READ 




Yes 


No 


No 


No 


No 


No 


REWIND 




Yes 


No 


No 


No 


No 


No 


SYNTAX 




Yes 


Yes 


No 


Yes 


No 


No 


VERF 




Yes 


No 


No 


No 


No 


No 


WRITE 




Yes 


No 


No 


No 


No 


No 


Yes = registers have changed. No 


= registers have not changed. N/A = no 


applicable. 


Only the primary 


registers change; 


the demonstration program doesn't use the alternate set. 


• Only the flag register changes. 
















Table 2. Regisi 


er conditions after routine execution. 







PRODUCTS 



AND SERVICE 
TOO GOOD TO 



SOFTWARE 

NEWDOS80/Vers.2 $124.95 

COMREFforNewdos80 13.95 

LD0S5.1 109.95 

DOSPLUS3.5 119.95 

DOSPLUSIV 119.95 

6.0 Plus 39.95 

DOSPLUSII 195.00 

Micro Clinic -Modi 24.50 

MicroClinic-Mod3 28.50 

Super Utility + 3 59.95 

Trashman 34.50 

Faster 24.95 

R.PM.-DiskTimer 22.50 

Basic Editor by C.A.U. 24.75 
M-ZAL Release Two 

by C.A.U. 119.50 

LDOS Utility Disk #1 42.50 

The Toolbox for LDOS 59.95 

EDASIV 84.95 

The BASIC Answer 59.95 

Dot Writer 3.0 66.50 

Dot Writer 3.0 w/letterset 84.50 

Dot Writer Font Disks 23.50 

GEAP 38.50 

Maxi Manager 119.50 

MaxiMail(Mod30nly) 64.95 

Maxi Stat 164.95 

MaxiCRAS 79.95 

Powermail Plus 129.00 

The Home Accountant 62.95 

Tallymaster 62.95 

MicrotermMod1,3,or4 64.95 

Omniterm Mod 1/3 79.95 

OmnitermModll 139.95 

LYNX Modem 209.00 

LNWDoubler5/8wDos+ 194.95 

LNWDoubler5/8w/oDos 159.95 

LNWSystem Expansion II 329.95 
SBSG Accounting Modules 

Model 1or3 175.00 

Model 2 250.00 

Verbatim Disk 5"SS/DD 26.50 




WORD PROCESSING 




4S¥ 



Newscript7.l 
Newscript 7.1 plus Labels 
Newscript DW Proportional 
Newscript File Converter 

GAMES 

tape 

Attack Force or Cosmic Fighter 1275 

Stellar Escort or Galaxy Invasion 12.75 

Meteor Mission II or Robot Attack 1 2.75 

Defense Command or Super Nova 1 2 75 
WeerrJ 

Forbidden City or Forbidden Planet 
Hyperlighl Patrol 

Defiance (Disk Only) or Panik 15 50 

Devils Tower 12.75 

Alien Defense or Bounceoids 13.95 

Sneak Thief 1 7 25 

Frogger 17 25 

Reign of Red Dragon or Stratos 19 95 
Double Feature 

Caterpillar or Scarfman 13 95 

Armoured Patrol or Eliminator 1995 

Rear Guard or Sea Dragon 19 95 
Adv Tripac 1-3. 4-6. 7-9, or 10-12 
Adventure international Hint Book 



WRITE FOR OUR 
FREE CATALOG 




99.95 

114.95 

39.95 

19.95 



disk 
1595 
15.95 
15.95 
15.95 
15.95 
29.95 
1550 
1950 
15 95 
17.25 
1895 
1995 
19 95 
31.95 
17 25 
1995 
19.95 
31 75 
695 



Electric Webster + Corrections 119.50 

Elec. Webster Grammar 39.95 

Elec. Webster Hyphenation 39.95 

Lazy Writer 3.4 139.95 

LeScript Mod 109.95 

Zorloffll 58.95 

6.0 PLUS 

Enables the novice and expert alike to increase 
their programming speed and ability above the 
limits created by TRSDOS 6.0. 6 Plus provides 
features too numerous to mention including a 
utility to insert keyword spaces in Model 3 
programs. 

$39.50 

DOSPLUS IV 

Experience the full power of your Model IV with 
DISPLUS IV. 100°/o program and media compat- 
ibility with TRSDOS 6 eliminates conversion 
problems. 

$119.50 

LNW80 II COMPUTER 

Includes Dosplus 3.5. CP/M 2.2. Microterm, 

Electric Pencil. Chart-Ex. LNWBasic. and a full 

accounting system including general ledger, 

accounts receivable, accounts payable, and 

payroll 

$1,599.00 



24-Hour Shipping for Items in Stock 

Free Use of Credit Cards 

Large Selection-Call for Items Not Listed 



Toll Free Oroer Line 

Free Shipping on Orders over $100 

Friendly. Honest, Reliable Service 



We accept Visa. Master Card, check, cash, money 
orders and COD In the 48 continental States add S2 50 
for UPS standard shipping, we'll pay shipping if your 
cder is over S100 Alasxa and Hawaii orders a r e 
charged actual shipping charges COD orders a'e 
charged an extra $2 00 and require cash or cet'f ed 
checx on delivery POs accepted upon approval. 

When ordenng oy mail, include your telephone num- 
ber cred I card information computer model, memory 
size, and number of drives. Colorado residents add 
appropriate sales tax (6Vj=% n Denver) 

Prices are subject to change without notice 




| Applied Microsystems, Inc. 

612 Washington, Denver, CO 80203 -**> 



order now 1-800-468-4474 

TOLL FREE ' ,T„ „ 1WW TT 

IN COLORADO CALL 861-9250 



LIOS is a TM of Logical Systems, Inc 



■-ZJU. is a TM of CAU 



TRS-80 is a TM of Tandy Corp. 



NEWSCUPT is a TM of Prosoft 



extension is being requested here to 
demonstrate the routine. Enter TST as 
the extension. 

To work properly, PUTEXT re- 
quires that the HL register point to the 
location of the extension and the DE 
register point to the DCB. The demo 
program then calls PUTEXT. There are 
no exit conditions to check for, so the 
program calls Look so you can again 
check the results in KBLNBF and the 
DCB. In the DCB, the filename now 
appears as TESTFILE/TST followed 
by 03H. Now return to the demonstra- 
tion program. 

You should have reentered at the 
label OPNFIL. Here the program at- 
tempts to open the file using the file- 
name TESTFILE/TST. If the file had 
already existed, it would simply have 
been opened, but since the file doesn't 
exist, the program displays the message 
File Not Found. You can look at the 
DCB and see that nothing happened. 

Before going on, look at the local 
routine ERPROC which contains the 
system routine called ERRDSP. You 
can find this in the Listing under the 
banner Error Display Processor. 
ERRDSP is a system routine that dis- 
plays an error code or expanded error 
message on the CRT. It then either re- 
turns to the user program, or to TRS- 
DOS READY. Setting bit 6 masks the 
error code that is in the A register. The 



routine spells out the full error message. 

If bit 7 is set, control returns to the 
user program. How you process an er- 
ror is up to you. You can abort the pro- 
gram, try again, skip processing, or 
whatever you feel is appropriate. Now 
return to the demonstration program. 

You should reenter the program at 
label NEWFIL. This initializes a new 
file and you can again look at the DCB. 
The parameters that the HL, BC, and 
DE registers pass are the same whether 
you open or initialize a file. 

In this case, the HL register contains 
the address of a 256-byte buffer called 
Buffer where the operating system does 
the actual writing to and reading from 
the disk. The DE register must point to 
the DCB, and the B register must con- 
tain the logical record length. 

A physical record is 256 bytes long or 
one disk sector. You can subdivide the 
physical record into smaller segments 
called logical records. A logical record is 
a record of from 1 to 256 bytes long. In 
the EQUs, I define the logical record 
length (LRL) as 128 bytes long. 

If you define a logical record as 64 
bytes long, four logical records com- 
prise one physical record (4 x 64 = 256). 
However, if a logical record does not 
evenly divide into a 256-byte physical 
record (such as a logical record of 50 
bytes), the system spans physical rec- 
ords to keep your logical records intact. 



Byte 


Contents 


0-2 


Reserved for system use. 


3-4 


Address of system I/O buffer. (BUFFER) 


5 


Offset into the current physical record of the end of the last logical record read or 




written. 


6 


Drive number on which the file exists. 


7 


Reserved for system use. 


8 


End Of File offset to the end of the last logical record. 


9 


Logical record length. 


10-11 


The next physical record where a read or write will take place. 


12-13 


The last physical record in the file. 


14-63 


Reserved for system use. 




Table 3. Data control block layout. 



Byte Contents 

0-14 File name/ext:d left justified and padded with spaces. 

15 Protection level of file. to 6. 

16 End Of File offset to the end of the last logical record in the last physical record. 

17 The logical record length. 

18-19 The last physical record number in the file. LSB is in byte 18 and the MSB is in 

byte 19. 
20-21 The number of granules allocated to the file. LSB is in byte 20 and the MSB is in 

byte 21. 
22-23 Two plus marks indicating the end of the directory. 

Table 4. Directory layout in RAM. 



It's possible to have a logical record 
equal in size to the physical record (256 
bytes), but this requires additional pro- 
gramming. I'll discuss how the data 
moves to and from disk and the special 
requirements for 256-byte logical rec- 
ords later. 

For now, answer Y to the question on 
the screen and take a look at the DCB. 
Notice that the program file name in the 
DCB no longer appears. Instead, the 
DCB's layout is as shown in Table 3. 
Bytes 3 and 4 of the DCB point to the 
256-byte buffer called Buffer. Remem- 
ber, the low order byte appears first, the 
high order byte second. 

Byte 5 represents the offset to the de- 
limiter at the end of the current physical 
record. Byte 6 indicates the drive num- 
ber on which the file resides. Byte 8 is 
the end-of-file offset of the last delimit- 
er in the last physical record. Byte 9 
shows the logical record length, and 
bytes 10 and 1 1 display the next physi- 
cal record number with bytes 12 and 
13 giving the ending physical record 
of the file. 

Figures 1 and 2 show examples of 
how to interpret the contents of bytes 5, 
8, 10, and 11 of the DCB. Figure 1 
shows two physical records, or sectors, 
of 256 bytes each, comprising four 
128-byte logical records. 

Suppose you just read the first logical 
record (record zero) of physical record 
zero. Byte 5 of the DCB now contains 
80 hex and bytes 10 and 1 1 of the DCB 
contain 0000 hex. The DCB now points 
to the first byte of the next logical 
record. 

Logical record zero goes from bytes 
hex to 7F hex, and logical record 1 goes 
from bytes 80 hex to OFF hex. Byte 5 of 
the DCB actually contains the first byte 
following the end of the last logical 
record read or, for that matter, the last 
one written. 

Figure 2 is similar to Fig. 1 (now in 
the second logical record of physical 
record zero). Here, byte 5 of the DCB 
contains hex, and bytes 10 and 1 1 of 
the DCB contain 0001 hex. The DCB 
now points to the first byte of logical 
record 2, the first logical record of phys- 
ical record 1. 

Byte 8 of the DCB is similar to byte 5 
of the DCB, but only applies to the last 
physical record in the file. It points to 
the first byte following the last logical 
record in the last physical record. 

In Fig. 2, if the last logical record in 
the file is logical record 2, byte 8 of the 
DCB contains 80 hex. This is actually 
the first byte of the next logical record, 
if it existed. You should note that the 
value in byte 8 need not always point to 
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3 WAYS TO MAKE 
YOUR COMPUTER 
WORK HARDER, 

and better, and faster . . . 



THE BI-TECH HARD DISK 
SUB SYSTEM 



Combining proven technology with innovative 
Bi-Tech design, the highly reliable 5.25-inch 
HARD DISK DRIVE SUBSYSTEM fulfills the 
fundamental requirements of a peripheral stor- 
age device, which provides mass 
storage, high speed data transfer, and 
removable backup capability. 





THE BI-TECH 
REMOVABLE CARTRIDGE 
HARD DISK DRIVE 

The Bi-Tech REMOVABLE CARTRIDGE 
used with the REMOVABLE HARD DISK 
DRIVE is small, lightweight, and portable. 
Yet, it provides a total storage capacity of 
5.0 Mbytes. Pre-recorded embedded servo 
information provides tor the most reliable 
cartridge interchangeabilitv and data in- 
tegrity in the industry. 




THE BI-TECH 
MULTIPLEXER 



joining the Bi-Tech MULTIPLEXER with 
your hard disk subsystem enables vou to 
share hard disk storage with many comput- 
ers. All users can share programs and data 
present on the hard disk, thus affording a 
true data base to all of its users. Each com- 
puter can run completely independent of 
the other computers. 




• 300 



Orders Only 
800-645-1165 
N.Y. call (516) 567-8155 



Dealer inquiries wekome. 
Pric es subject to rhanRe 
NYS residents add tan. 



American Enpress 

Visa Carte Blanche 

Diners Club Mastercard 

(516) 567-8155 (voice) (516) 588-5836 (modem) 



B.T. Enterprises 
Dept.1L 
10CarloughRd. 
Bohemia, N.Y. 11716 

B.I Enterprises is a division ot 
Bi-Tech Enterprises tnt 



' See Ust of Advertisers on Page 291 
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the beginning of the next logical record. 
It can point anywhere within your last 
logical record. It is meant to point to the 
first byte following the actual end of 
data. 

To make sure you put the correct 
end-of-file (EOF) offset in the DCB, 
you must calculate and put the actual 
EOF offset into byte 8 of the DCB. One 
way you can experiment with this is to 
use this program with different logical 
record lengths and modify the end-of- 
file offset in byte 8 of the DCB just 
before closing the file. To keep it sim- 
ple, don't do it here. Now return to the 
demonstration program. 

Write Operation 

Once you return from looking at the 
DCB, execute the code at the WRTFIL 
label. The system needs two pieces of 
data to write a record to disk. The HL 
register must point to the buffer that 
contains the data you want to save, and 
the DE register must point to the DCB. 
The program sets the HL register to 
point to UREC, which contains some 
sample data, while the DE register 
points to the DCB. 

When the program invokes the Write 
subroutine, it moves 128 bytes (the logi- 
cal record length) from UREC to the 
area called Buffer. If the write is suc- 
cessful, it sets the zero flag. If an error 
occurs, the subroutine resets the zero 
flag and returns an error code in the A 
register for display via ERPROC. 

As long as the logical record length is 
fewer than 256 bytes long, the system 



moves data from the user buffer UREC 
to the I/O buffer called Buffer and vice 
versa. 

If you set the logical record length to 
256 by opening a file with the B register 
equal to zero, you must move the data 
between UREC and Buffer yourself. 
This means that for each Write com- 
mand, you must move the 256 bytes of 
data you want written to Buffer before 
the program calls the Write routine. 
Also, after each read, you must move 
the 256 bytes from Buffer to wherever 
you want it to go as its final destination. 
When the logical record length is 256 
bytes, Read and Write commands ig- 
nore the HL register. 

Once you complete the first write of . 
the logical record of 128 bytes, answer 
Y to the question on the screen and look 
at Buffer and the DCB. If you look at 
the DCB, you see that the next physical 
record number at bytes 10 and 11 is 
zero. Also, the offset to the delimiter at 
the end of the current physical record at 
byte 5 is 80 hex, indicating that the pro- 
gram successfully completed one write. 
Records start at number zero with two 
80 hex logical records per physical rec- 
ord. Looking at Buffer, you can see the 
dummy data. 

Return to the demonstration pro- 
gram to continue with the next write at 
label WRT002. The program now ini- 
tiates a second disk write, but here the 
HL register points one logical record 
length (1 LRL) into UREC. This occurs 
so the system can pick up the next block 
of data. 





/I 


PHYSICAL RECORD 


f 


PHYSICAL RECORD 1 










\ 






\ LOGICAL j|i LOGICAL 
: RECORD ;ji RECORD 1 \ 


LOGICAL 
RECORD 2 


LOGICAL 
RECORD 3 






\ 


BYTE OH / \ BYTE 80H / 
BYTE 7FH / BYTE 0FFH / 

Figure 1. Byte interprets. 
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; RECORD 2 ; 


LOGICAL 
j RECORD 3 








\ BYTE 80H / \ BYTE «H / \ BYTE 80H 
BYTE 0FFH / BYTE 7FH / 

Figure 2. Byte interprets. 
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Make sure the HL register points to 
the right area of memory for the data 
you want transferred. If the write is suc- 
cessful, the program transfers a sector 
of data, or 2 LRLs, from Buffer to the 
disk. Again, you can look at the DCB 
and buffer areas for verification. 

Now the DCB shows that the next 
physical record number at bytes 10 and 
1 1 is 1 and the ending physical record at 
bytes 12 and 13 is also 1. The offset to 
the end of the current record at byte 5 is 
zero, indicating that the program has 
written two logical records. 

After returning to the demonstration 
program at label WRT003, the program 
completes a third write, after which you 
may look at the DCB. Notice that the 
last half of the buffer contains junk. 
The program clears out Buffer after it 
writes a sector and loads it with data of 
its own choosing from somewhere in the 
system. 

Now, return to the demonstration 
program at label WRT004 for a fourth 
disk write. Following this, at label 
WRT005, the program makes a fifth 
write. After each of these writes you 
may look at the DCB. 

Since the fifth write is only half of a 
new third sector, the DCB shows that 
the next physical record is 2 (the third 
physical record), the ending physical 
record is 2, and the offset is 80 hex at 
byte 5, for a total of five 80 hex-byte 
logical records. 

In the Disk System Owner's Manual 
the explanation of the next record num- 
ber (NRN) as well as those of Read and 
Write operations, say that after each 
Read or Write the NRN increments by 
one. This is true only if the logical 
record length is 256 bytes long. If the 
logical record length is 128 bytes as in 
this case, the NRN increments only 
after two reads or writes. 

You should now return to the pro- 
gram to close the file. You enter at label 
CLOSFL. To close a file, you need to 
pass only one parameter to the routine 
called Close. This is the address of the 
DCB in the DE register. When you close 
the file, the program makes a final write 
to the disk, keeps track of the end of the 
last logical record, and updates the 
DCB and the disk directory. 

If you close the file successfully, the 
program sets the zero flag. If not, you 
need to process the error. Get into De- 
bug and look at the DCB. As you can 
see, the file name, including the number 
of the disk drive where the file is locat- 
ed, again appears at the beginning of 
the DCB. If you call the directory, no- 
tice that the file has an LRL of 128 
bytes, five logical records, three physi- 



Three Good Reasons To Buy Software 
From Mumford Micro Systems: 

1. Cy/USllty. Mumford Micro has been selling software for the TRS-80 since 1978. Nobody survives in this competitive 
market for that long on poorly written software. Our best references are thousands of satisfied and repeat customers, but if 
you haven't spoken to one of them, our 10 day money-back guarantee might sec tire your confidence. Our rate of return? 
Less than one in 200. 

JL. PriC6. Quality software at exorbitant prices is no bargain. Don't be misled by our low prices. Mumford Micro is known 
for true value in addition to high quality. 

«J. oerVlCe. We are not distributors or "middle men." We are the original producers of every package we sell. If you 
have a problem with one of our programs, you can often call and talk to the author. On those occasions when a problem 
cannot be resolved on the phone, prompt technical help is available from a programmer who is intimately familiar with the 
program you purchased. 



INSTANT ASSEMBLER 

The Instant Assembler a a powerful assembly language development system for the 
TRS-80 If you are already an assembly language programmer, its unique design will greatly 
increase your productivity If you are tust getting started, there is no better assembler to help 
you learn machine language programming Some of its unique features are immediate 
assembly, which detects syntax errors as source is entered, and a compact source format that 
allows you to write programs nearly three times as large as other assemblers in the same 
amount of memory It will assemble to disk. tape, or directly to memory for immediate 
debugging with the built- :n debugger, and also produces relocatable code modules that can 
be saved on disk or tape and linked together in memory for large or modular assemblies You 
can quickly switch from assembler to debugger without losing your source. The built-in 
debugger will step though your programs one instruction at a time, showing each disassem- 
bled instruction and its effect on the registers and memory II will load or save both 
conventional source files and its own condensed source format. 

The Instant Assembler package includes six separate programs. The assembler itself 
includes the editor and built-in debugger. The Linking Loader is included in several versions 
for different memory sizes. A stand-alone version of the debugger (MicroMind) is also 
included. MicroMind can be relocated in memory and has commands to single-step, set 
breakpoints, display or alter registers or memory, find bytes or words, disassemble to screen 
or printer, convert between hex and decimal numbers, and write SYSTEM tapes. The Instant 
Assembler comes with a comprehensive 65 page instruction manual with many examples 

Specify Model 1 or Model 111. TAPE INTASM 2.1 $39.95 on tape 

Specify Model I or Model III. DISK INTASM 2.1 $49.95 on disk 



TELCOM 



Mumiord Micro offers two telecommunications programs TELCOM I has most of the 
features needed to communicate with bulletin boards, time share systems, or for file transfers 
between two dsk - based micros over modems or direct wire It is menu dnven and extremely 
simple to use Functions include transmit a disk file, receive a disk file, save received data on 
disk, examine and modify UART parameters. 8 programmable log -on messages, automatic 
checksum venfication of accurate transmission and reception, and many more user conveni- 
ences. Supports line printers, lowercase characters. Xorv'Xoff protocol, and programmable 
character keys. 

TELCOM II is an expanded version of this program for the most demand) ng telecomm unica- 
oons applications. The terminal mode now has a help menu and a large printer spooler for 
high baud rates. From within the terminal mode you can load disk files into the memory 
buffer, type into the buffer, transmit the buffer, or view the buffer or data that has already 
scrolled off the screen. It has 10 different programmable messages that can each be sent with a 
single command for auto log-on or auto dialing, and 5 different character translation tables. 
TELCOM II also includes an error correction file transfer mode which is compatible with the 
LYNC program available on CP/M systems and the IBM PC TELCOM II will exchange disk 
files with any computer running this protocol (including another TRS-80 running TELCOM 
II). and will automatically detect and correct errors in transmission Files can be sent to or 
fetched from an unattended computer The extreme ease of use TELCOM I is known for has 
not been compromised Reconfiguration of the programmable features is done internally 
from clear menus for fast, easy operation Both versions of TELCOM come with complete 
instruction manuals, which are available separately for $5 to help you decide which program 
is best suited to your needs 

Specify Model I or Model IU. TELCOM I $39.95 on disk 

Specify Model I or Model IU. TELCOM H $69.95 on disk 

MODEL I CLOCK MOD 

The SK - 2 dock modification allows CPU speeds to be switched between normal, an increase 
of 50% or 100%. or a 50% reduction Speeds may be changed with a toggle switch (not 
inducted) or on software command It can be configured to return to normal speed any time a 
disk is active and has provisions for adding an LED to indicate when the computer is not at 
normal speed. It mounts inside the keyboard unit with only 4 necessary connections and is 
easily removed if the computer ever needs service. The SK 2 has been field proven by 3 
years of use. and comes fully assembled with socketed IC's and illustrated instructions. 
Model I only. SK-2 $24.95 



DISK INDEX 



DISK INDEX will assemble a master index of your entire program library by automatically 
reading the program names and free space from each disk The index may then he 
alphabetized or searched for any disk program, or extension It will alphabetize 2400 
programs in less than 50 seconds and will find any program out of 2400 in less than J 
seconds. Disks or programs may be added or deleted manually, and the whole index or any 
selected part may be pnnted on paper in several different formats The index itself may also 
be stored on disk for future access and update. A 48K machine will hold up to 255 disks and 
over 2400 programs in each file, and you may build as many files as you need There is no 
limit to the number of filenames it can read on any one disk. It will run on either a Model I ot 
Model III and catalog disks for either machine regardless of which one is running it. though 
Model I owners must have double density to catalog Model III disks. It will automatically 
recognize any DOS and disk density. DISK INDEX works with any operating system written 
for the Model I or Model 111 except CP/M, and is extremely fast and easy to use. 
Specify Model I or Model 111. DISK INDEX VERSION 3 $29.95 on disk 

INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive reference guide to the Model I and Model III ROMs 
which allows the machine language or Basic programmer to easily utilize the sophisticated 
routines they contain Concisely explains set-ups. calling sequences, and variable passage 
for number conversion, anthmetic operations, and mathematical functions, as well as 
keyboard, tape, and video routines Part II presents an entirety new composite program 
structure which loads under the SYSTEM command and executes in both Basic and machine 
code with the speed and efficiency of a compiler In addition the 1H chapters indude a large 
body of other information useful to the programmer 80 Micro said "The book has no flaws, it 
is a perfect gem " Byte Magazine said "I recommend this book to senous machine language 
programmers." 
Includes updates for Model III. INSIDE LEVEL II $15.95 

DEMON DEBUGGER 

DEMON [for DEbugger and MONitor) is a sophisticated tool with which you can explore and 
debug machine language programs. It has two modes of operation In the STEP mode, it 
"emulates" the operation of the 7-80 and allows you to step through any machine language 
program one instruction at a time, showing you the address, hexadecimal value. Zilog 
mnemonic, register contents, and step count for each instruction. The 19 different STEP 
mode commands include step, step to a branch, run in step mode at a variable rate, run for a 
specified number of steps, change flags or registers, execute a CALL or RST set breakpoints 
in RAM or ROM. and break when a numberin a defined range appears in any double register 
The 26 commands in the MONITOR mode indude hex anthmetic, hex to decimal conver 
sion. block move, fill memory, find bytes, jump to address, disassemble to screen, printer. 
disk, or tape, load memory from disk or tape, write memory to disk or tape, full screen 
memory edit in hex or ASCII, and relocate cither programs or itself Screen displays may be 
routed to your Bne printer for hard copy. DEMON includes a comprehensive 40 page 
manual with many examples 
Specify Model 1 or Model III. DEMON $29.95 on tape or disk 

8748 ASSEMBLER 

Assemble programs for the complete Intel MCS-48 family of microcontrollers inducing the 
8741, 8742. 8748. and 8749 on your Model I. III. or IV Assembles from a source file wntten 
on your text editor directly to an object file on dsk It supports the standard Intel mnemonics 
and features conditional assembly and listing, complete expression evaluation, ten significant 
characters for symbols, a complete range of pseudo-ops. and informative error messages It 
comes with a comprehensive instruction manual which includes the instruction set for each 
component and sample listings for anthmetic and L'O subroutines We also offer plans, 
schematic, and software to help you build your own inexpensive 8748 programmer The 
8748 is a readily available single chip computer that contains RAM. EPROM. dock osdllator. 
a counter/timer, and 27 I/O lines in a single 40 pin package. A complete computer controller 
can be built with this one chip, a crystal, three capacitors, and a five volt power supply. 

Specify Model I or Model III. CASM48 $74.95 on disk 

Plane and software for an 8748 programmer $29.95 on disk 



MUMFORD 

MICRO 

SYSTEMS 



<>RI)I RING: Add $2 :"i() for postage and handling. California residents add 6"n sales tax. 
Visa. Mastercard, and COD orders are accepted. If not completely satisfied, return your 
purchase uithin 10 days for <i full refund Be sure to specify Model I or Model III format 

Box 400-E. Summerland, California 93067 (805) 969-4557 
Quality software since 1978 
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cal records (one granule), and an EOF 
of 128 bytes. 

If you want to quit and take a break, 
go ahead, but if you turn off your 
computer or run some other program, 
make sure you reenter the program 
at the correct point. To do this, use 
the M command under Debug and 
modify the location Entry so that it 
points to GTSPC1 in the demonstration 
program. 



Remember, the low order byte of the 
address of GTSPC1 goes into the low 
order byte of Entry, and the high order 
byte of the address of GTSPC1 goes in- 
to the high order byte of Entry. Now 
you can exit Debug and continue with 
the rest of this article. 

Read Operation 

Now I'D show you how to read the 
disk file you generated. You will read 







Program Listing. Demonstration program. 




00010 

00020 
00030 


I 












FUNDAMENTAL ASSEMBLY LANGUAGE DISK I/O 




00040 


f 




FOR THE TRS 


-80 MODEL III 




00050 












00060 


; 










00070 




ORG 


8000H 






00080 


BKSPC 


EQU 


4445H 


{BACKSPACE 1 LOGICAL REC 




00090 


CLOSE 


EQU 


4428H 


;CLOSE FILE ROUTINE 




00100 


CMDDOS 


EQU 


429CH 


;EXEC TRSDOS COMMAND 




00110 


CMDTXT 


EQU 


4225H 


;HAS LAST TRSDOS COMMAND 




00120 


COMDOS 


EQU 


4299H 


;EXEC TRSDOS COMMAND 




00130 


DIVIDE 


EQU 


4451H 


; DIVIDE ROUTINE 




00140 


DSPDIR 


EQU 


4419H 


/DISPLAY DIRECTORY 




00150 


ERRDSP 


EQU 


4409H 


.•DISPLAY ERROR MESSAGE 




00160 


FILPTR 


EQU 


428DH 


; FINDS FILE * AND DRIVE # 




00170 


INIT 


EQU 


4420H 


; INITIALIZE DISK FILE 




00180 


JP2DOS 


EQU 


402DH 


; ENTRY TO TRSDOS 




00190 


KILL 


EQU 


442CH 


; KILLS PILE 




00200 


OPEN 


EQU 


4424H 


;OPEN FILE ROUTINE 




00210 


POSEOF 


EQU 


4448H 


{GO TO END OF FILE 




00220 


POSH 


EQU 


4442H 


j POSITION TO LOGICAL REC. 




00230 


PUTEXT 


EQU 


444BH 


;PUT EXTENSION IN DCB 




00240 


RAMDIR 


EQU 


4290H 


j RAM DIRECTORY ROUTINE 




00250 


READ 


EQU 


4436H 


;DISK READ ROUTINE 




00260 


REWIND 


EQU 


443FH 


.■REWIND FILE ROUTINE 




00270 


SYNTAX 


EQU 


441CH 


;CHECK FILESPEC SYNTAX 




00280 


VERF 


EQU 


443CH 


; WRITE AND VERIFY 




00290 


WRITE 


EQU 


4439H 


;DISK WRITE ROUTINE 




00300 


; 










00310 












00320 


1 


MISCELLANEOUS ROUTINES AND DEFINITIONS 




00330 












00340 


1 










00350 


KBLINE 


EQU 


40H 


;SCAN KEYBOARD FOR LINE 




00360 


KBWAIT 


EQU 


49H 


jWAIT FOR KEYBOARD INPUT 




00370 


LRL 


EQU 


128 


/LOGICAL RECORD LENGTH 




00380 


LRL2 


EQU 


256 


{LOGICAL RECORD X2 




00390 


VDCLS 


EQU 


1C9H 


{CLEAR SCREEN ROUTINE 




00400 


VDLINE 


EQU 


21BH 


{DISPLAY LINE ROUTINE 




00410 


• 










00420 












00430 


t 




STORAGE 


LOCATIONS 




00440 












00450 












00460 


ADRBUF 


EQU 


$ 


{ADDRESS OF 'BUFFER' 




00470 


BUFFER 


DEFS 


256 


{DISK I/O BUFFER 




00480 


AUREC 


EQU 


S 


{ADDRESS OF 'UREC' 




00490 


OR EC 


DEFS 


640 


{USER BUFPER 




00500 


ADRDCB 


EQU 


S 


{ADDRESS OF 'DCB' 




00510 


DCB 


DEFS 


64 


{DATA CONTROL BLOCK 




00520 


AKBBUF 


EQU 


$ 


{ADDRESS OF 'KBLNBF' 




00530 


KBLNBF 


DEFS 


16 


{KEYBOARD INPUT BUFFER 




00540 


ADRDIR 


EQU 


S 


{ADDRESS OF 'DIRBUF' 




00550 


DIRBUF 


DEFS 


24 


{DIRECTORY BUFFER 




00560 


LENGTH 


EQU 


S-BUFFER 






00 570 


DRVNUH 


DEFS 


1 


{ASCII CODED DRIVE NUMBER 




00580 


LKBUF 


DEPS 


2 






00590 


AENTRY 


EQU 


S 


{ADDRESS OF RE-ENTRY BUF 




00600 


ENTRY 


DEFS 


2 


{RE-ENTRY ADDRESS BUFFER 




00610 


PARAM 


DEFS 


2 


{PARAMETER ADDRESS BUFFER 




00620 


; 










00630 


.********»****************»***«******«*******«*********** 




00640 


; 




WRITE DISK 


FILE EXERCISE 




00650 












00660 


l 










00670 


START 


LD 


(PARAM) ,HL 


,-SAVE PARAMETER POINTER 




00680 




CALL 


VDCLS 


{CLEAR SCREEN 




00690 




LD 


HL, (ENTRY) 


{GET RE-ENTRY ADDRESS 




00700 




LD 


A,H 






00710 




AND 


0F0H 






00720 




CP 


80H 


{IS THIS FIRST TIME THRU? 




00730 




JR 


NZ,START1 


{YES 




00740 




JP 


(HL) 


{NO. ENTER WHERE LEFT OFF 




00750 


START 1 


CALL 


CLRBUF 


{CLEAR OUT BUFFERS 




00760 




CALL 


MOVDAT 


{FILL USER BUFFER W/DATA 




00770 




LD 


HL,SIGNON 


{SIGNON MESSAGE 




00780 




CALL 


VDLINE 


{DISPLAY MESSAGE 




00790 


GETS PC 


LD 


HL.SPCMSG 


{FILESPEC MESSAGE 




00800 




CALL 


VDLINE 


{DISPLAY MESSAGE 




00810 




LD 


HL, KBLNBF 


{KEYBOARD INPUT BUFFER 




00820 




LD 


B,1S 


{MAX # OF CHARS. ALLOWED 




00830 




CALL 


KBLINE 


{GET FILESPEC 




00840 




LD 


HL, KBLNBF 


{FILESPEC ADDRESS 

Lis ling 


continued 



96 • 80 Micro, December 1983 



four records, the first, then the third, 
then back to the first, and finally the 
fifth logical record. 

By typing in the name of the demon- 
stration program, reenter the program. 
Do this, but with one additional entry, 
the name of the data file (TEST- 
FILE/TST) following the name of the 
demonstration program. 

For example, if the name of the dem- 
onstration program is DISKIO, type 
DISKIO TESTFILE/TST. You must 
include a single space between the pro- 
gram name DISKIO and the data file 
name. Every time you type in a com- 
mand at TRSDOS READY, the HL 
register contains the address of the first 
non-blank character following the last 
command. The Disk System Owner's 
Manual describes this in detail under 
CMDTXT. 

Once you type in the demonstration 
program name followed by the data file 
name, the program automatically saves 
the HL register in the location labeled 
PARAM. This brings you to the read 
section of the program at label 



"If you close 
the file successfully, 

the program 
sets the zero flag." 



GTSPCl, with an accompanying mes- 
sage. Then the program loads the HL 
register with the address contained in 
the location PARAM. The Read rou- 
tine checks this address to see if it in- 
cludes a carriage return, indicating the 
end of a command, and the absence of 
parameters to pass. If no parameters 
exist, the program asks you to enter the 
filespec just as when you initially ran the 
program. 

If you typed in the parameter TEST- 
FILE/TST, the program uses this as the 
filespec to open the file. If you type an 
illegal parameter, an error occurs and 
you must enter a new filespec. 

If everything goes right, the program 
opens the TESTFILE/TST file, ready 
to read. Before the program reads the 
file, it executes the FILPTR routine 
starting at label OPENOK. This routine 
requires that the DE register contain the 
DCB address. On return from FILPTR 
the B register contains the drive number 
on which the file resides, with the logical 
file number in the C register. 

Continued on p. 100 
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Creative Computer 



1236 E Colonial Drive 
Orlando, FL 32803 USA 



Department 80 
■ (305) 894-0789 ( F lorida) 

Writ* For Free Catalog 
Over 1 000 items in Diskettes, Paper, Labels, Ribbons. Checks, Storage Bows, Furni- 
ture. Binders and Hardware. Florida plus 5% tax 

Add n For Shipping On Order. Less Than »30 
Most orders oijt In 24 hourawlth VISA, M/C. Money Order. AM EX, Cashier Check. 
Bank Wire and COD. Personal check allow 10-14 days. Mall order only. Prices 
sutoto c t to change. 



CONVERT MOD m 
BASIC TO MOD 4 

Good News! The Model 4 is twice as fast as the Model III. 

Bad News! Model III disk BASIC programs only run at 

half speed on the Model 4. 

Best News! "CONV3T04" will automate many of the 

changes required to convert Model III BASIC 
programs to Model 4 BASIC. Your Model III 
BASIC programs will run twice as fast as they 
do now, and your manual conversion efforts 
will be vastly reduced. 

ites this powerful utility can insert all required spaces, recalculate 
PRINT (?) addresses, adjust TAB ( ) addresses, insert correct exponentiation 
symbols, and flag and list unresolved line numbers. 

Other options enable your programs to run even (aster - remove REM's, 
comments, down arrows, and unnecessary spaces. 

Or. format your programs and make them easier to read and debug 
down arrows and indent between multiple instructions, IF. THEN, and ELSE 
statements. 



■ ' ■ 

CONV3T04' 

NAME: 



I 



STREET: 

CITY: 



STATE 



ZIP 



EDUCATIONAL MICRO SYSTEMS, INC. 

PO Box 471. C(t- sey O/dJO 

201-879-5982 



DISPLAYS CORRECT SPELLINGS: 

If you don't know the correct spelling, 
E W will look it up for you, and display 
the dictionary. 

VERIFIES CORRECTIONS: If you 

think you know the correct spelling of 
a word, E W will check it for you before 
making the corrections. 

HYPHENATES AUTOMATICALLY: 

(Optional). Inserts discretionary hy- 
phens throughout text. 

GRAMMAR & STYLE CHECKER: 

(Optional). Identifies 22 types of com- 
mon errors. Makes suggested cor- 
rections with the stroke of a key. 
Runs within EW. 

50,000 WORD DICTIONARY: Uses 
only 2V6 bytes per word; add as many 
words as you wish. 



FAST CORRECTING: In as little as 
30 seconds, Electric Webster can return 
you to your Word Processing program, 
with your text fully corrected and on 
your screen. 

INTEGRATES: into 11 different word 
processing programs: Wordstar, Spell- 
binder, Newscript, Lazy Writer, Super- 
Scripsit, Scripsit, Electric Pencil, Copy 
Art, Superscript, Zorlof, and Magic 
Wand (specify). Begins proofing at the 
stroke of a key; returns you to word 
processing automatically. 




"The Cadillac" 

of spelling checkers 
80 Microcomputing, 9/82 

VOTED #1: If this sounds too good to 
believe, you don't need to take our word 
for it. Take the word of the thousands of 
80 Micro readers who voted Electric 
Webster the #1 spelling checker (1/83). 

"The most helpful program I've found is 
Electric Webster. After looking at nine 
proofreading programs, I've settled on 
Webster . . ." Creative Computing, 11/83 



ACCLAIMED: 

"Electric Webster is the best. Just read 
any review in any magazine and I don't 
believe that you will find even one dis- 
agreement to that statement." CINTUG, 
Cincinnati's Users Group Mag., 4183 

"In my opinion, the perfect combination 
is Correcting Electric Webster with the 
hyphenation and grammar add-ons. lb 
my surprise, it fills every reasonable 
expectation. It is fast, easy to use and 
accurate." Desktop Computing, 12/82 

Performance "Excellent"; Documentation 
"Good"; Ease of Use "Excellent"; Error 
Handling "Excellent". Info World, 8/82 



LOW PRICES: 




TRS-80 Electric Webster 


$ 89.95 


w/Correcting Feature 


$149.95 


Hyphenation 


$ 49.95 


Grammar & Style Checker 


$ 49.95 


CP/M or PC/DOS 




Electric Webster 


$209.95 


(with Correcting Feature) 




Hyphenation Option 


Included* 


Grammar & Style Option 


Included* 



w 



*Limited Time Only 

CORNUCOPIA 
SOFTWARE 



(415) 524-8098 



^45 



Post Office Box 61 1 1 Albany. California 94706 



SmUstot Advertisers on Page 291 
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TO YOUR 
RESCUE 



LET LOAD 80 
RESCUE YOU 



In the dawn of the computer age programmers needed the 
patience of Job to manually keyboard all the major program 
listings from a single issue of 80 MICRO. 

Then LOAD 80 burst onto the scene and exploded that 
practice. Today thousands of TRS-80* owners use LOAD 80 
cassettes and disks even - month. These time-conscious com- 
puterists spend more time enjoying all the benefits of those 
80 MICRO programs. 

LOAD 80 programs come directly from 80 MICRO giving 
you complete and detailed documentation right there in the 
magazine. And now, the new disk transfer system allows 
Model III users to run LOAD 80 disks without conversions. 
Save close to 30 % on the single issue price by subscribing to 
LOAD 80 today (choose either monthly cassettes or disks). 



Due to the tremendous popularity of color computing we 
are replacing COLOR LOAD 80 with INSTANT COCO. 
INSTANT COCO is the color loader backed by Wayne 
Green's new and exciting color computing magazine, HOT 
COCO. See the latest issue of HOT COCO for full details. 
We will still be offering from COLOR LOAD 80, The Rest 
of '82," and three volumes of color programs from 1983 



issues. 



Start enjoying all the benefits of the programs in 80 
MICRO without all the programming hassels. Fill out the 
attached order form and send it to LOAD 80, 80 Pine Street, 
Peterborough, NH 03458. Or call toll free and use your 
Master Card, Visa, or American Express. 



* 'ATTENTION MODEL III USERS* * 

New, Improved Operating System! 

— ReadvToRun!! 

1-800-258-5473 

outside USA, phone: 603-924-9471 

NEW DISK TBANSER SYSTEM ALLOWS LOAD 80 TO NOW BE RUN ON MODEL III SINGLE DRIVE 
UNITS WITH NO CONVERSIONS NECESSARY!! 

LOAD 80 is simply the listing from 80 MICRO. Use the KEY BOX accompanying each article as your guide to system configurations. LOAD 80 
runs on the ' TRS-80 Model I and Model III computers only. COLOR LOAD 80 rum on the ' TRS-80 Color Computer only. ' TRS-80 and Color 
Computer are trademarks of Radio Sliack. a division of Tandy Corp. 



Yes! Send me the December LOAD 80 

D Disk $21.47 □ Cassette $11.47 
Price includes postage and handling. 

Foreign air mail picas? add $.45 per item for postage and handling. 

Please enter my subscription for one year, beginning 

with this month's issue. 

□ Disk $199.97 D Cassette $99.97 

Foreign air mail please add $25 per subscription (or pmUge and handling. 
U.S. Funds drawn on U.S. Bank only 

DCheck/MO DMC DVisa DAE 

Card# Exp. date 



1283 



Signature.. 

Name 

Address _ 



City 



State. 



JZip_ 



Yes! Send me COLOR LOAD 80 

□ 1st Color Volume (Jan, Feb, March) @ $11.47 

□ 2nd Color Volume (Apr, May, June) @ $11.47 

□ 3rd Color Volume (August, September, Octolier) i 

□ "Best of "82" at $16.47 

Price includes postage and handling. 

Foreign air mail please add $.45 per item for postage and handling. 
U.S. Funds drawn on U.S. Bank only 

DCheck/MO DMC DVisa DAE 



QC12-83 



$11.47 



Card#_ 



Exp. date 



Signature. 
Name 



Address 



City 



State. 



_Zip_ 



LOAD 8f>80 PINE ST.»PETERBOROUGH, NH 03458 



COLOR LOAD 80*80 PINE ST.-PETERBOROUGH, NH 03458 



f See List of Advertisers on Page 307 
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Continued from p. 96 

If FILPTR finds the appropriate in- 
formation, it sets the zero flag. Other- 
wise, it resets the flag and the program 
skips down to the label RE ADO 1. 

On successful completion of FIL- 
PTR, the routine RAMDIR uses the BC 
register, returned by FILPTR, to get the 
directory information of TESTFILE/ 
TST and places it in memory. 

RAMDIR requires that the BC regis- 
ter contain the drive number in the B 
register, the file number in the C regis- 
ter, and the address of a 24-byte buffer 
in the HL register. The 24-byte buffer in 
this case is DIRBUF. The Disk System 
Owner's Manual states that the buffer 
must be 22 bytes long for data, plus 1 
byte for the plus symbol, which indi- 
cates the end of the directory. In fact, 
there are two plus marks at the end of 
the directory, thereby requiring 24 bytes 
in the buffer. If RAMDIR is successful, 
it sets the zero flag. 

Following the execution of RAM- 
DIR, the program converts the drive 
number and file number of TEST- 
FILE/TST contained in the BC register 
to ASCII and places them in two 
separate messages. In addition, it saves 
the ASCII coded drive number in a 
location labeled DRVNUM for later use 



BYTE 


MICRO 


N A B 


S K E E P 


AUTO 


T R/6) N E 


R U N D 


A/X/A O N 


D C \y 


/ 0/C K E A 


INT®/ 


'O S U B M 


FORM 


A T 1 M E 


Enjoy Word find games? 


Put FIN DWORD to work! 


• Solves word find puzzles 

• Menu driven system 

• User manual included 

• Money back guarantee 


Specify MOD 1 or MOD III 
32K & 1 disk. Printer optional 


$49.95 plus $4.00 S & H 
Credit cards welcome 


3E & 
WORDFIND DIVISION ^^ 

2700 REVERE SUITE 115 

HOUSTON, TEXAS 77098 

1-409-245-7692 

^341 



/ iMing co 


itinued 












00850 




LD 


DE.DCB ; 


DATA CONTROL BLOCK 




00860 




CALL 


SYNTAX ; 


TEST FOR CORRECT SYNTAX 




00870 




JR 


NZ, GETS PC J 


BAD SYNTAX 




00880 




CALL 


LOOK J 


EXAMINE FILESPEC ? 




00890 


EXTEND 


CALL 


HSG001 ; 


DISPLAY ENTRY MESSAGES 




00900 




LD 


HL,KBLNBF ; 


KEYBOARD INPUT BUFFER 




00910 




LD 


B,3 ; 


ALLOWS 3 CHAR. ENTRY 




00920 




CALL 


KBLINE t 


GET EXTENSION 




00930 




LD 


HL.KBLNBF J 


EXTENSION ADDRESS 




00940 




LD 


DE,DCB l 


DATA CONTROL BLOCK 




00950 




CALL 


PUTEXT l 


ADD EXTENSION TO FILSPC 




00960 




CALL 


LOOK ; 


EXAMINE FILESPEC ? 




00970 


OPNFIL 


CALL 


MSGB8 2 ; 


DISPLAY ENTRY MESSAGES 




00980 




LD 


HL, BUFFER | 


ADDR SECTOR I/O BUFFER 




00990 




LD. 


DE.DCB J 


DATA CONTROL BLOCK 




01000 




LD 


B,LRL J 


LOGICAL RECORD LENGTH 




01010 




CALL 


OPEN » 


OPEN FILE 




01020 




JR 


Z, INITOK J 


FILE OPENING SUCCESSFUL 




01030 




CALL 


ERPROC » 


DISPLAY ERROR MESSAGE 




01040 




CALL 


LOOK | 


EXAMINE DCB ? 




01050 


NEWFIL 


CALL 


MSG003 j 


DISPLAY ENTRY MESSAGES 




01060 




LD 


HL, BUFFER J 


ADDR SECTOR I/O BUFFER 




01070 




LD 


DE.DCB J 


DATA CONTROL BLOCK 




01080 




LD 


B.LRL | 


LOGICAL RECORD LENGTH 




01090 




CALL 


INIT J 


INITIALIZE A NEW FILE 




01100 




JR 


Z, INITOK | 


NEW FILE INITIALIZED 




01110 




CALL 


ERPROC 


DISFLAY ERROR MESSAGE 




01120 


INITOK 


CALL 


LOOK 


EXAMINE DCB ? 




01130 


WRTFIL 


CALL 


MSG004 


DISPLAY ENTRY MESSAGES 




01140 




LD 


HL,UREC 


USER BLOCK 




01150 




LD 


DE,DCB 


DATA CONTROL BLOCK 




01160 




CALL 


VERF 


WRITE DATA TO DISK 




01170 




JR 


Z.WRTOKl 


SUCCESSFUL WRITE 




01180 




CALL 


ERPROC 


DISPLAY ERROR MESSAGE 




01190 


WRTOK1 


CALL 


LOOK 


EXAMINE BUFFERS ? 




01200 


WRT002 


CALL 


MSG005 


DISPLAY ENTRY MESSAGES 




01210 




LD 


HL,UREC+LRL 


NEXT LRL OF DATA 




01220 




LD 


DE,DCB 


DATA CONTROL BLOCK 




01230 




CALL 


WRITE 


WRITE DATA TO DISK 




01240 




JR 


Z.WRTOK2 


SUCCESSFUL WRITE 




01250 




CALL 


ERPROC 


DISPLAY ERROR 




01260 


WP.TOK2 


CALL 


LOOK 


EXAMINE BUFFERS ? 




01270 


WRT003 


CALL 


MSG0 06 


DISPLAY ENTRY MESSAGES 




01280 




LD 


HL,UREC+LRL2 


NEXT LRL OF DATA 




01290 




LD 


DE,DCB 


DATA CONTROL BLOCK 




01300 




CALL 


WRITE 


WRITE DATA TO DISK 




01310 




JR 


Z.WRTOK3 


SUCCESSFUL WRITE 




01320 




CALL 


ERPROC 


DISPLAY ERROR 




S1330 


WRTOK3 


CALL 


LOOK 


EXAMINE BUFFERS ? 




01340 


WRT004 


CALL 


MSG007 


DISPLAY ENTRY MESSAGES 




01350 




LD 


HL.UREC+LRL+LRL2 






01360 




LD 


DE.DCB 


DATA CONTROL BLOCK 




3137? 




CALL 


WRITE 


WRITE DATA TO DISK 




01380 




JR 


Z.WRTOK4 


SUCCESSFUL WRITE 




01390 




CALL 


ERPROC 


DISPLAY ERROR 




01400 


WRTOK4 


CALL 


LOOK 


EXAMINE BUFFERS ? 




01410 


WRT00 5 


CALL 


MSG008 


DISPLAY ENTRY MESSAGES 




01420 




LD 


HL,UREC+LRL2+LRL 






01430 




LD 


DE , DCB • 


•DATA CONTROL BLOCK 




01440 




CALL 


WRITE 


•WRITE DATA TO DISK 




01450 




JR 


Z,WRTOK5 


(SUCCESSFUL WRITE 




01460 




CALL 


ERPROC 


•DISPLAY ERROR 




01470 


WRTOK5 


CALL 


LOOK 


; EXAMINE BUFFERS ? 




01480 


CLOSFL 


CALL 


MSG009 


(DISPLAY ENTRY MESSAGES 




01490 




LD 


DE,DCB 


;DATA CONTROL BLOCK 




01500 




CALL 


CLOSE 


;CLOSE FILE 




01510 




JR 


Z, CLOSOK 


;FILE CLOSED SUCCESSFULLY 




01520 




CALL 


ERPROC 


(DISPLAY ERROR MESSAGE 




01530 


CLOSOK 


LD 


HL,GTSPC1 


(GET RE-ENTRY ADDRESS 




01540 




LD 


(ENTRY) ,HL 


(SET NEW RE-ENTRY ADDRESS 




01550 




JP 


JP2D0S 


(JUMP TO TRSDOS READY 




01560 


■ 










01570 












01580 


1 




READ DISK FILE 


EXERCISE 




01590 












01600 


t 










01610 


GTS PCI 


CALL 


CLRBUF 


; CLEAR OCT BUFFERS 




01620 




CALL 


MSG810 


(DISPLAY ENTRY MESSAGES 




01630 




LD 


HL, (PARAM) 


(GET PARAMETER ADDRESS 




01640 




LD 


A,(HL) 


(FIRST CHARACTER OF PARAM 




01650 




C? 


0DH 


(CARRIAGE RETURN ? 




01660 




JR 


NZ, RDOPEN 


(OPEN FILE USING PARAM. 




01670 


GTS PC 2 


LD 


HL,SPCMSG 


,-GET FILESPEC MESSAGE 




01680 




CALL 


VDLINE 


(DISPLAY MESSAGE 




01690 




LD 


HL.KBLNBF 


(KEYBOARD INPUT BUFFER 




01700 




LD 


B.15 


(MAX t CHARS FROM KEYBRD 




01710 




CALL 


KBLINE 


(INPUT KEYBOARD DATA 




01720 




LD 


HL.KBLNBF 


(FILESPEC 




01730 


RDOPEN 


LD 


DE,DCB 


(DATA CONTROL BLOCK 




01740 




CALL 


SYNTAX 


(CHECK FOR CORRECT SYNTAX 




01750 




JR 


NZ.GTSPC2 


(BAD SYNTAX 




01760 




LD 


HL, BUFFER 


[SECTOR I/O BUFFER 




01770 




LD 


DE.DCB 


(DATA CONTROL BLOCK 




01780 




LD 


B,LRL 


(LOGICAL RECORD LENGTH 




01790 




CALL 


OPEN 


[OPEN FILE 




01800 




JR 


Z, OPENOK 


[OPENED SUCCESSFULLY 




01810 




CALL 


ERPROC 


[DISPLAY ERROR MESSAGE 




01820 




JR 


GTSPC2 


[GET NEW FILESPEC 




01830 


OPENOK 


LD 


DE,DCB 


[DATA CONTROL BLOCK 




01840 




CALL 


FILPTR 


[GET DRV/FILE # IN BC REG 




01850 




JR 


NZ,READ01 


[SKIP IF ERROR 




01860 




LD 


HL, DIRBUF 


[DIRECTORY BUFFER 




01870 




CALL 


RAMDIR 


[GET DIRECTORY INFO 




01880 




JR 


NZ,READ01 


[SKIP IF ERROR 




01890 




LD 


A,B 


[PUT DRIVE I IN A REG 




01900 




ADD 


A,30H 


[MAKE ASCII 




01910 




LD 


(DRVNUM) ,A 


[SAVE FOR ROUTINE DSPDIR 

/ isiing continued 



100 • 80 Micro, December 1983 



VIDEO INSTRUCTION TAPES! 



THE OLD HARD WAY 




STEP BY STEP INSTRUCTIONS 

PICTURES ARE WORTH 

THOUSANDS OF WORDS AND SAVE 

HOURS OF FRUSTRATION 

Use your VCR side by side with your computer 
to learn disk operating systems, how to program, 
and how to use programs. Your VCR along with your 
computer serve as your personal tutor. Pause your 
VCR to review and learn at your own pace. 

VHS or BETA FORMAT 

SPECIAL SALE WHILE SUPPLY LAST 

Verbatim Datalife Diskettes 

5 Year Warranty 5V4 In 

Double Density Diskettes In 

Plastic Storage Box 





THE NEW 


EASY WAY 




TAPES NOW AVAILABLE 


CAT# 


TOPIC 


APPROX RUN TIME 


DOS-1 


TRSDOS 1.3 MOD 3 


1 HR30 MIN 


DOS-6 


TRSDOS 6.0 MOD 4 


1 HR45 MIN 


DOS-3 


NEWDOS80 2.0 


1 HR45 MIN 


DOS-2 


DOSPLUS 3.5 


1 HR45 MIN 


DOS-5 


LDOS 


1 HR45 MIN 


DOS-4 


MULTIDOS 


1 HR45 MIN 


EW-1 


VISICALC 


1 HR30 MIN 


WP-1 


LAZY WRITER 


1 HR45 MIN 


WP-2 


SUPERSCRIPSIT 


1 HR45 MIN 


WP-3 


SCRIPSIT 


1 HR30 MIN 


DB-1 


PROFILE III PLUS 


1 HR45 MIN 


DIO-3 


TRSDOS 1.3 DISK I/O 


1 HR45 MIN 


DIO-4 


TRSDOS 6.0 DISK I/O 


1 HR45 MIN 



The DIO-3 and DIO-4 Video Tapes include disk 
basic commands with examples. Also teaches both 
random and sequential disk read and write. 



ONLY 



$25.00 



BOX OF TEN 



MASTERCARD — VISA and C.O.D. Orders accepted 
add $3.00 per order for shipping and handling. Telephone 
orders taken 9:00 a.m. - 6:00 p.m. Central Time. 
Specify either VHS or BETA Tape Format 

C.O.D. Orders add $3.00 
DEALER INQUIRIES WELCOME 

TO ORDER PHONE 
OR WRITE 



TAPE ABOVE ONLY 



$39.95 



EACH 



CAT # TOPIC 

BP-1 LEARNING MODEL 3 BASIC 

BP-2 LEARNING MODEL I BASIC 

BP-3 LEARNING C-64 BASIC 

BP-4 LEARNING VIC-20 BASIC 

DIO-1 COMMODORE 64 DISK I/O 

DIO-2 VIC 20 DISK I/O 



APPROX RUN TIME 

3 HR 

3 HR 

2 HR 

2 HR 

1 HR45 MIN 

1 HR45 MIN 



TAPES ABOVE ONLY 



$49.95 



EACH 



LYNN COMPUTER SERVICE 



6831 West 1 57th Street Tinley Park, 
(312)429-1915 



linois 60477 




BankAmericard 



VISA 



VISICALC IS A TRADEMARK OF PERSONEL SOFTWARE INC LAZY WRITER IS A TRADEMARK OF AlPHA BIT COMMUNICATION SCRIPSlT. SUPERSCRIPSIT. PROFILE III PLUS AND TRSDOS 
ARE TRADEMARKS OF TANDY CORP LDOS IS A TRADEMARK OF LOGICAL SYSTEMS INC NEWDOSBO IS A TRADEMARK OF APPARAT INC DOS PLUS IS A TRADEMARK OF MICRO SYSTEMS 
SOFTWARE INC MULTIDOS IS A TRADEMARK OF COSMOPOLITAN INC VIC 20 AND COMMODORE 6* ARE TRADEMARKS OF COMMODORE BUSINESS MACHINES. INC 



^ See List ot Advertisers on Page 291 
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Listing continued 












01920 




LD 


(DRVBUF) ,A 


;PUT IN MESSAGE 




01930 




LD 


L,C 


rSET UP HL REGISTER TO 




01940 




LD 


H,0 


/ MAKE FILE NUMBER AN 




019S0 




LD 


A, 10 


/ ASCII STRING. 




01960 




CALL 


DIVIDE 






01970 




ADD 


A,30H 


;MAKE REMAINDER ASCII 




01980 




LD 


(FILNUM+1) ,A 


/SAVE IN MESSAGE 




01990 




LD 


A,L 


|GET REST OF FILE NUMBER 




02000 




ADD 


A.30H 


/MAKE IT ASCII 




02010 




LD 


(FILNUM) ,A 


/PUT IN MESSAGE 




02020 




LD 


HL.DRVMSG 


/DRIVE NUMBER MESSAGE 




02030 




CALL 


VDLINE 


/DISPLAY MESSAGE 




02040 




LD 


HL.FILMSG 


/FILE NUMBER MESSAGE 




02050 




CALL 


VDLINE 


/DISPLAY REST OF MESSAGE 




02060 




CALL 


LOOK 


/EXAMINE DIRECTORY 7 




02070 


READ01 


CALL 


HSG011 


/DISPLAY ENTRY MESSAGES 




020B0 




LD 


HL.UREC 


/USER DATA BUFFER 




02090 




LD 


DB,DCB 


/DATA CONTROL BLOCK 




02100 




CALL 


READ 


/READ A LOGICAL RECORD 




02110 




JR 


Z, READOK 


/RECORD READ OK 




02120 




CALL 


ERPROC 


/DISPLAY ERROR MESSAGE 




92130 


READOK 


CALL 


LOOK 


/EXAMINE BUFFERS 7 




02140 


POSENT 


CALL 


HSG012 


/DISPLAY ENTRY MESSAGES 




02150 




LD 


DE.DCB 


/DATA CONTROL BLOCK 




02160 




LD 


BC,2 


ZLRL TO GO TO 




02170 




CALL 


POSN 


/GO TO 3RD LOGICAL RECORD 




02180 




JR 


Z, POSNOK 


/POSITIONED OK 




02190 




CALL 


ERPROC 


/DISPLAY ERROR MESSAGE 




02200 


POSNOK 


CALL 


LOOK 


/EXAMINE DCB 7 




02210 


READ02 


CALL 


KSG013 


/DISPLAY ENTRY MESSAGES 




02220 




LD 


HL,UREC+LRL 


, OFFSET INTO BUFFER 1 LRL 




02230 




LD 


DE,DCB 


/DATA CONTROL BLOCK 




02240 




CALL 


READ 


/READ NEXT LOGICAL RECORD 




02250 




JR 


X,RDOK 


/NEXT RECORD READ OK 




02260 




CALL 


ERPROC 


/DISPLAY ERROR MESSAGE 




02270 


RDOX 


CALL 


LOOK 


/EXAMINE BUFFERS 7 




02280 


REWENT 


CALL 


KSG014 


/DISPLAY ENTRY MESSAGES 




02290 




LD 


DE,DCB 


/DATA CONTROL BLOCK 




02300 




CALL 


REWIND 


/GO TO BEGINNING OF FILE 




02310 




JR 


Z, REHOK 


/REWIND COMPLETE 




02320 




CALL 


ERPROC 


/PROCESS ERROR MESSAGE 




02330 


REHOK 


CALL 


LOOK 


/EXAMINE BUFFERS 7 




02340 


READ03 


CALL 


KSG015 


/DISPLAY ENTRY MESSAGES 




02350 




LD 


HL,UREC+LRL2 


/NEXT LOGICAL RECORD 




02360 




LD 


DE,DCB 


/DATA CONTROL BLOCK 




02370 




CALL 


READ 


/READ FIRST LOGICAL REC 




02380 




JR 


Z,RDOKl 


/FIRST LOG REC READ OK 




02390 




CALL 


ERPROC 


/PROCESS ERROR MESSAGE 




02400 


ROOK1 


CALL 


LOOK 


/EXAMINE BUFFERS 7 




02410 


EOPENT 


CALL 


HSG016 


/DISPLAY ENTRY MESSAGES 




02420 




LD 


DE.DCB 


/DATA CONTROL BLOCK 




02430 




CALL 


POSEOF 


/GO TO END OF FILE 




02440 




JR 


Z,EOFOK 


/POSITIONED TO EOF OK 




024S0 




CALL 


ERPROC 


/PROCESS ERROR MESSAGE 




02460 


EOPOK 


CALL 


LOOK 


/EXAMINE BUFFERS 7 




02470 


BRENT 


CALL 


MSG017 


/DISPLAY ENTRY MESSAGES 




02480 




LD 


DE.DCB 


/DATA CONTROL BLOCK 




02490 




CALL 


BKSPC 


/BACK UP 1 LOGICAL RECORD 




02500 




JR 


Z, BKSPOK 


/BACKSPACE 1 LRL OK 




02510 




CALL 


ERPROC 


/PROCESS ERROR MESSAGE 




02520 


BKSPOK 


CALL 


LOOK 


/EXAMINE BUFFERS 7 




02530 


READ04 


CALL 


HSG018 


/DISPLAY ENTRY MESSAGES 




02540 




LD 


HL.UREC+LRL2+LRL /USER BUFFER 




02550 




LD 


DE.DCB 


/DATA CONTROL BLOCK 




02560 




CALL 


READ 


/READ LOGICAL RECORD 




02570 




JR 


Z,RDOK2 


/READ SUCCESSFUL 




02580 




CALL 


ERPROC 


/PROCESS ERROR MESSAGE 




02590 


RDOK2 


CALL 


LOOK 


/EXAMINE BUFFERS 7 




02600 


CLSENT 


CALL 


NSG019 


/DISPLAY ENTRY MESSAGES 




02610 




LD 


DE,DCB 


(DATA CONTROL BLOCK 




02620 




CALL 


CLOSE 


/CLOSE FILE 




02630 




JR 


Z, KILFIL 


/CLOSE OF FILE OK 




02640 




CALL 


ERPROC 


/PROCESS ERROR MESSAGE 




02650 


KILFIL 


ID 


HL.KILHSG 


/KILLING FILE MESSAGE 




02660 




CALL 


VDLINE 


/DISPLAY MESSAGE 




02C70 




LD 


DE.DCB 


/DATA CONTROL BLOCK 




02680 




CALL 


KILL 


/KILL PILE 




02690 




JR 


Z, KILLOK 


/KILL SUCCESSFUL 




02700 




CALL 


ERPROC 


/PROCESS ERROR 




02710 


KILLOK 


LD 


A.(DRVNUM) 


/GET DRIVE NUMBER 




02720 




LD 


(4271H) ,A 


/PUT IN SYSTEM AREA 




02730 




CALL 


DSPDIR 


/DISPLAY DIRECTORY 




02740 




LD 


HL.ENDMSG 


/END OF DEMO MESSAGE 




02750 




CALL 


VDLINE 


/DISPLAY MESSAGE 




02760 




CALL 


KBWAIT 


/WAIT FOR KEYBOARD ENTRY 




02770 




JP 


JP2DOS 


; GO TO TRSDOS READY 




02780 
02790 




















02800 






ERROR DISPLAY PROCESSOR 




02810 












02820 












02830 


ERPROC 


OR 


0C0H 


/DISPLAY MODE FOR ERRDSP 




02840 




CALL 


ERRDSP 


/DISPLAY ERROR MESSAGE 




02850 




RET 








02860 
02870 




















02880 
02890 






EXAMINE DATA 


PROCESSOR 












02900 












02910 


LOOK 


POP 


HL 


/GET RETURN ADDRESS 




02920 




PUSH 


BL 


/RESTORE IT 




02930 




LD 


(ENTRY) ,HL 


/SAVE RETURN ADDRESSS 




02940 


LOOK1 


LD 


HL.LKHSG 


/LOOK? MESSAGE 




02950 




CALL 


VDLINE 


/DISPLAY MESSAGE 




02960 




LD 


HL.LKBUF 


/ANSWER BUFFER 




02970 




LD 


B.l 


/ALLOW 1 CHAR TO RTN 

Listing 
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by the system routine DSPDIR. 

The program displays the messages 
and calls Look so you can see the direc- 
tory in RAM. You can use the directory 
to rind out how many records are in the 
file, the file's logical record length, and 
other information needed to read the 
file. See Table 4 for the directory's 
layout. 

Since you already know the number 
of logical records and the logical record 
length, returning to the demonstration 
program after looking at the directory 
leads right into reading the file starting 
at label READ01. 

When you open a file, the data in the 
DCB points to the first logical record in 
the file. A message indicates that you 
are reading the first logical record. With 
the HL register pointing to UREC and 
the DE register pointing to the DCB, the 
program makes a call to Read. If the 
read is successful, it sets the zero flag 
and puts the first logical record into 
UREC. This gives you an opportunity 
to look at the buffer UREC. 

After looking at UREC, return to the 



"You can use the directory 

to find out 

how many records 

are in the file. " 



demonstration program. You should 
reenter at the label POSENT where the 
routine POSN executes so you can read 
the third logical record. POSN requires 
that the BC register point to the logical 
record to which you want to read or 
write. Since the logical records start 
with record zero, record 2 is the third 
logical record, therefore BC equals 2. 

The DE register must point to the 
DCB. If the positioning is successful, 
the subroutine sets the zero flag and a 
Look call lets you view the DCB. You 
should note here that the next physical 
record number at bytes 10 and 11 in the 
DCB is now 1, and byte 5 (the offset to 
delimiter at end of current physical 
record) is zero. This confirms your posi- 
tion at the end of the second logical 
record and points to the third logical 
record. 

Now return to the demonstration 
program reentering at the label READ- 
02. Here the program reads the third 
logical record. The program loads the 
HL register with UREC plus LRL, al- 
lowing the next read from the disk to 
place the data in the next 128 bytes of 
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the user buffer UREC. The program 
next loads the DE register with the DCB 
address and executes a Read command. 
On successful completion, a call to 
Look lets you examine UREC and the 
DCB. 

Now return to the demonstration pro- 
gram at label RE WENT where it executes 
a Rewind routine. This routine requires 
that the program load only the DE reg- 
ister with the address of the DCB. Once 
the program executes Rewind, the DCB 
points to the beginning of the file, rec- 
ord zero. Again, a successful execution 
sets the zero flag and you can look at the 
DCB via Look. 

Returning to the demonstration pro- 
gram should place you at the label 
READ03. Here the program reads the 
first logical record. The HL register 
points one more logical record length 
into UREC, and the DE register con- 
tains the DCB address. The call to Read 
reads the first logical record into 
UREC. Following a successful read, 
you can look at UREC to verify that it 
now contains the first, third, and first 
logical records of TESTFILE/TST. 

You can do one of two things in order 
to read the last logical record. You can 
use the POSN routine to go to logical 
record 5, or you can go to the end of the 
file and backspace one logical record. 
Here I do the latter. 

Return to the demonstration pro- 
gram at label EOFENT. The DE regis- 
ter contains the address of the DCB and 
the program calls POSEOF. If success- 
ful, it sets the zero flag and the DCB 
points to the beginning of the next 
logical record beyond the last logical 
record. 

For a write operation, you can extend 
the file here. But since you're reading 
and you want to look at the last log- 
ical record, you must backspace one 
record. If you looked at the DCB af- 
ter the program executes POSEOF, 
return to the demonstration program at 
label BKENT. 

With the DE register pointing to the 
DCB address, a call to BKSPC reposi- 
tions the pointer in the DCB to the last 
logical record. To allow examination of 
the DCB, the program calls the Look 
routine. Considering bytes 10 and 11, 
the next physical record is 2 and the off- 
set to delimiter at end of current record 
at byte 5 is zero. This verifies that the 
DCB is pointing to the fifth logical 
record. 

Continuing with the demonstration 
program at label READ04, it loads the 
HL register with the address of the next 
logical record position into UREC and 
places the address of the DCB in the DE 
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02980 




CALL 


KBLINE 


(GET CHARACTER 




02990 




JR 


CLCOKl 


(BREAK KEY PRESSED 




03000 




LD 


A,(HL) 


I GET ANSWER 




03010 




CP 


lyl 


|WAS IT YES ? 




03020 




RET 


NZ 


;NO 




03030 




LD 


HL r EXECUT 


1 ADDRESS OF COMMAND 




03040 




JP 


COMDOS 


(ENTER DEBUG 




03050 












03060 












03070 
03080 




ENTRY POINT MESSAGE 


DISPLAY ROUTINES 












03090 












03100 


MSG001 


LD 


HL,ENTMSG 


; ENTRY POINT MESSAGE 




03110 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03120 




LD 


HL,ENT001 


(ENTRY POINT NAME #1 




03130 




CALL 


VDLINE 


(DISPLAY IT 




03140 




LD 


BLrEXTHSG 


(PROMPT FOR EXTENSION 




03150 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03160 




RET 








•3170 


MSG002 


LD 


HL.ENTMSG 


(ENTRY POINT MESSAGE 




03180 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03191 




LD 


HL,ENT002 


(ENTRY POINT NAME 42 




03200 




CALL 


VDLINE 


(DISPLAY IT 




03210 




LD 


HL,0PNMSG 


(OPEN FILE MESSAGE 




03220 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03230 




RET 








03240 


NSG003 


LD 


HL,ENTMSG 


(ENTRY POINT MESSAGE 




032S0 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03260 




LD 


HL,ENT003 


(ENTRY POINT NAME »3 




03270 




CALL 


VDLINE 


(DISPLAY IT 




03280 




LD 


HL.INITMS 


(INITIALIZING FILE MSG 




•3290 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03300 




RET 








03310 


MSG004 


LD 


HL,ENTHSG 


(ENTRY POINT MESSAGE 




03320 




CALL 


VDLINE 


(DIPLAY MESSAGE 




03330 




LD 


HL,ENT004 


(ENTRY POINT NAME #4 




03340 




CALL 


VDLINE 


(DISPLAY IT 




•3350 




LD 


HL.LRLlST 


('FIRST' LOGICAL REC MSG 




03360 




CALL 


VDLINE 


(DISPLAY IT 




03370 




LD 


HL,WRT001 


(WRITING LOGICAL REC MSG 




03380 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03390 




RET 








03400 


MSG005 


LD 


HL,ENTHSG 


(ENTRY POINT MESSAGE 




93410 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03420 




LD 


HL,ENT005 


(ENTRY POINT NAME 4 5 




03430 




CALL 


VDLINE 


(DISPLAY IT 




03441 




LD 


HL,LRL2ND 


( ' SECOND ' LOGICAL REC MSG 




03450 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03460 




LD 


BL,WRT001 


(WRITING LOGICAL REC MSG 




03470 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03480 




RET 








03490 


NSG006 


LD 


HL,ENTMSG 


(ENTRY POINT MESSAGE 




03S00 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03510 




LD 


HL,ENT006 


(ENTRY POINT NAME #6 




•3520 




CALL 


VDLINE 


(DISPLAY IT 




03530 




LD 


BL,LRL3RD 


('THIRD' LOGICAL REC MSG 




33540 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03550 




LD 


HL,WRT001 


(WRITING LOGICAL REC MSG 




03560 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03570 




RET 








03580 


MSG007 


LD 


HL,ENTKSG 


(ENTRY POINT MESSAGE 




03590 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03600 




LD 


HL.ENT007 


(ENTRY POINT NAME 47 




03610 




CALL 


VDLINE 


(DISPLAY IT 




03620 




LD 


HL,LRL4TH 


('FOURTH' LOGICAL REC MSG 




03630 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03640 




LD 


HL.WRT001 


(WRITING LOGICAL REC MSG 




03650 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03660 




RET 








03670 


MSG0B8 


LD 


HL r ENTMSG 


(ENTRY POINT MESSAGE 




03680 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03690 




LD 


HL,ENT008 


(ENTRY POINT NAME 18 




03700 




CALL 


VDLINE 


(DISPLAY IT 




03710 




LD 


HL r LRL5TH 


('FIFTH' LOGICAL REC MSG 




03720 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03730 




LD 


HL,WRT901 


(WRITING LOGICAL REC MSG 




03740 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03750 




RET 








03760 


H5G009 


LD 


UL,ENTMSG 


(ENTRY POINT MESSAGE 




03770 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03780 




LD 


HL,ENT009 


(ENTRY POINT NAME 49 




03790 




CALL 


VDLINE 


1 DISPLAY IT 




03800 




LD 


HL.CLOSMS 


(CLOSING FILE MESSAGE 




03810 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03820 




RET 








•3830 


MSG010 


LD 


HL,ENTMSG 


(ENTRY POINT MESSAGE 




03840 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03850 




LD 


HL,ENT010 


(ENTRY POINT NAME 410 




03860 




CALL 


VDLINE 


(DISPLAY IT 




03870 




LD 


HL,RDMSG 


(READING FILE MESSAGE 




03880 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03890 




RET 








03900 


MSG011 


LD 


HL,ENTMSG 


(ENTRY POINT MESSAGE 




•3910 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03920 




LD 


BL.ENT011 


(ENTRY POINT NAME til 




03930 




CALL 


VDLINE 


(DISPLAY IT 




03940 




LD 


HL,LRL1ST 


('FIRST' LOGICAL REC MSG 




03950 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03960 




LD 


HL,RDLRL 


(READING LOGICAL REC MSG 




03970 




CALL 


VDLINE 


(DISPLAY MESSAGE 




03980 




RET 








03990 


KSG012 


LD 


HL.ENTHSG 


(ENTRY POINT MESSAGE 




04000 




CALL 


VDLINE 


(DISPLAY MESSAGE 




04010 




LD 


HL,ENT012 


(ENTRY POINT NAME »12 




04020 




CALL 


VDLINE 


(DISPLAY IT 




04030 




LD 


HL,POSMSG 


(POSITIONING MESSAGE 

Listing 
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04040 




CALL 


VDLINE 


; DISPLAY MESSAGE 






04950 




RET 










04060 


MSC013 


LD 


HL,ENTMSG 


/ ENTRY POINT MESSAGE 






04070 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04080 




LD 


HL,ENT013 


; ENTRY POINT NAME 113 






04090 




CALL 


VDLINE 


/ DISPLAY IT 






04100 




LD 


HL.LRL3RD 


/'THIRD' LOGICAL REC MSG 






04110 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04120 




LD 


HL,RDLRL 


/READING LOGICAL REC MSG 






04130 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04140 




RET 










04150 


MSG014 


LD 


HL,ENTMSG 


/ENTRY POINT MESSAGE 






04160 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04170 




LD 


HL,ENT014 


/ENTRY POINT NAME 114 






04180 




CALL 


VDLINE 


/DISPLAY IT 






04190 




LD 


HL,RENMSG 


/REWINDING FILE MESSAGE 






04200 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04210 




RET 










04220 


MSG015 


LD 


HL,ENTMSG 


/ENTRY POINT MESSAGE 






04230 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04240 




LD 


HL,ENT015 


/ENTRY POINT NAME #15 






04250 




CALL 


VDLINE 


/DISPLAY IT 






04260 




LD 


HL.LRLlST 


/'FIRST' LOGICAL REC NSG 






04270 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04280 




LD 


HL.RDLRL 


/READING LOGICAL REC MSG 






04290 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04300 




RET 










04310 


HSG016 


LD 


HL,ENTHSG 


/ENTRY POINT MESSAGE 






04320 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04330 




LD 


HL,ENT016 


/ENTRY POINT NAME 116 






04340 




CALL 


VDLINE 


/DISPLAY IT 






04350 




LD 


BL,EOPHSG 


/POSITIONING TO EOF MSG 






04360 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04370 




RET 










04380 


MSG017 


LD 


HL,ENTMSG 


/ENTRY POINT MESSAGE 






04390 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04400 




LD 


HL.ENT017 


/ENTRY POINT NAME 117 






04410 




CALL 


VDLINE 


/DISPLAY IT 






04420 




LD 


HL,BKSPMS 


/BACKSPACING MESSAGE 






04430 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04440 




RET 










04450 


MSG018 


LD 


HL.ENTMSG 


/ENTRY POINT MESSAGE 






04460 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04470 




LD 


HL.ENT018 


/ENTRY POINT NAME 118 






04480 




CALL 


VDLINE 


/DISPLAY IT 






04490 




LD 


HL,LRL5TH 


/'FIFTH' LOGICAL REC MSG 






04500 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04510 




LD 


HL,RDLRL 


/READING LOGICAL REC NSG 






04520 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04530 




RET 










04540 


HSG019 


LD 


HL,ENTHSG 


/ENTRY POINT MESSAGE 






04550 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04560 




LD 


HL,ENT019 


/ENTRY POINT NAME #19 






04570 




CALL 


VDLINE 


/DISPLAY IT 






04580 




LD 


HL.CLOSHS 


/CLOSING FILE MESSAGE 






04590 




CALL 


VDLINE 


/DISPLAY MESSAGE 






04600 




RET 










04610 
04620 






















04630 
04640 






CLEAR BUFFER AREAS 














04650 














04660 


CLRBUP 


LD 


BC , LENGTH 


/LENGTH OF STORAGE AREA 






04670 




LD 


HL, BUFFER 


/START OF STORAGE AREA 






04680 


CLRLP 


XOR 


A 


/CLEAR A REGISTER 






04690 




LD 


(HL) ,A 


/CLEAR STORAGE AREA 






04700 




DEC 


BC 


/DECREMENT BYTE COUNTER 






04710 




LD 


A,B 


/IS CLEARING FUNC. DONE ? 






04720 




OR 


C 








04730 




INC 


HL 


/GO TO NEXT LOCATION 






04740 




JR 


NZ, CLRLP 


/NO, FINISH CLEARING BUFS 






04750 




RET 










04760 
04770 
04780 
04790 

04800 


; 












; 




PROVIDE DUMMY 


DATA FOR WRITE 






I 












04810 


MOVDAT 


LD 


DE,UREC 


/ADDRESS OF USER BUFFER 






04820 




LD 


A, 8 


/LOOP COUNTER 






04830 


MOVLP1 


LD 


HL,LRL001 


/DATA TO BE MOVED 






04841 




LD 


BC.16 


/NUMBER OF BYTES TO MOVE 






04850 




LDIR 




/MOVE THEM 






04860 




DEC 


A 


/REDUCE LOOP COUNTER 






04870 




JR 


NZ.MOVLP1 


/FINISH DATA MOVE 






04880 




LD 


A, 8 


/LOOP COUNTER 






04890 


HOVLP2 


LD 


HL,LRL002 


/DATA TO BE MOVED 






04900 




LD 


BC,16 


/NUMBER OF BYTES TO MOVE 






04910 




LDIR 




/MOVE THEM 






04920 




DEC 


A 


/REDUCE LOOP COUNTER 






04930 




JR 


NZ,MOVLP2 


/FINISH DATA HOVE 






04940 




LD 


A, 8 


/LOOP COUNTER 






04950 


HOVLP3 


LD 


HL,LRL003 


/DATA TO BE MOVED 






04960 




LD 


DC, 16 


/NUMBER OF BYTES TO MOVE 






04970 




LDIR 




/MOVE THEM 






04980 




DEC 


A 


/REDUCE LOOP COUNTER 






04990 




JR 


NZ r MOVLP3 


/FINISH DATA MOVE 






05000 




LD 


A, 8 


/LOOP COUNTER 






05010 


MOVLP4 


LD 


HL,LRL004 


/DATA TO BE MOVED 






05020 




LD 


BC,16 


/NUMBER OF BYTES TO MOVE 






05030 




LDIR 




/MOVE THEM 






05040 




DEC 


A 


; REDUCE LOOP COUNTER 






05050 




JR 


NZ,MOVLP4 


/FINISH DATA MOVE 






05060 




LD 


A, 8 


/LOOP COUNTER 






05070 


HOVLP5 


LD 


BlfMOiMS 


/DATA TO BE MOVED 






05080 




LD 


BC,16 


/NUMBER OF BYTES TO MOVE 






05090 




LDIR 




/MOVE THEM 

Lining 


continued 



register. The call to Read puts the fifth 
logical record into the user buffer 
UREC. A call to Look lets you view the 
new data in UREC. 

With the reading of all the records 
complete, you can now reenter the pro- 
gram at label CLSENT, where a num- 
ber of things happen in succession. You 
first want to close the file. Do so in the 
same manner in which you built the file, 
with the DE register pointing to the 
DCB and by executing a call to Gose. 

Since you no longer have any use for 
this file, you can also kill it. The only 
parameter you need to kill the file is to 
point the DE register to the DCB and 
make a call to the Kill routine. A suc- 
cessful kill operation returns the zero 
flag set. 

To verify this, look at the disk direc- 
tory to see that the directory no longer 
lists the file name. The subroutine KILL 
now sets the first 16 bytes of the DCB to 
zero. 

The DSPDIR routine displays the 
disk directory. It needs only the drive 
number of the disk from which you 
want a directory, coded as an ASCII 
number in location 4271 hex. If you re- 
member, you put the drive number in 
the location DRVNUM. Picking it up 
here and moving it to 4271 hex, fol- 
lowed by a call to DSPDIR, verifies that 
you killed TESTFILE/TST. The direc- 
tory listing is abbreviated, showing only 
file names. 

Now return to the demonstration 
program. Here, two messages indicate 
that you've closed and killed the file. 
Immediately following this, the pro- 
gram clears the screen and displays the 
directory. 

Enter any character following the di- 
rectory display to terminate the demon- 
stration program with a jump to the 
TRSDOS entry point JP2DOS. 

Two routines not covered in this pro- 
gram are VERF and CMDDOS. VERF 
is the same as Write except that after 
each write to disk, VERF reads the data 
to verify a proper write. 

CMDDOS is similar to COMDOS 
except CMDDOS returns to the user's 
program after completing the routine. 
Of course, if you execute one of your 
programs from another program using 
this command, you must execute a final 
return to ensure that you make it possi- 
ble to return. All the routines just cov- 
ered are limited to accessing user gener- 
ated files only. No system files are 
accessible. ■ 

Write to David G. Haan at 4361 S. 
Estes St., Littleton, CO 80123. 
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05100 




DEC 


A ; REDUCE LOOP COUNTER 


■ 5118 




JR 


NZ,MOVLP5 ; FINISH DATA MOVE 


05120 




RET 




05130 


; 






0514B 








05150 






MESSAGES 


05168 








85178 


1 






05180 


SIGNON 


DEFM 


'ASSEMBLY LANGUAGE DISK I/O ' 


05190 




DEFM 


'FOR THE TRS-8B MODEL III.' 


05200 




DEFB 


BDH 


85218 


SPCMSG 


DEFK 


'ENTER FILENAME. ' 


85228 




DEFB 


BDH 


05230 


LKMSG 


DEFM 


'DO YOU WISH TO LOOK AT ANY DATA?' 


83248 




DEFB 


UDH 


05258 


LRLB81 


DEFM 


'LRL NUMBER ONE. ' 


85268 


LRL882 


DEFM 


'LRL NUMBER TW0 . * 


85270 


LRL8B3 


DEFM 


'LRL NUHBR THREE ' 


05288 


LRL884 


DEFM 


'LRL NUMBER FOUR ' 


85298 


LRLB85 


DEFM 


'LRL NUMBER FIVE * 


85300 


EXTMSG 


DEFM 


■ENTER 3 CHARACTER EXTENSION (E.G. TST) . ' 


05310 




DEFB 


0DH 


05320 


OPNMSG 


DEFM 


'ATTEMPTING TO OPEN FILE.' 


05330 




DEFB 


0DH 


05340 


INITHS 


DEFM 


'INITIALIZING NEW FILE. 1 


85358 




DEFB 


0DH 


85360 


LRL1ST 


DEFM 


•FIRST ' 


05370 




DEFB 


B3H 
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05470 




DEFB 


0DH 


05480 


CLOSHS 


DEFM 
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BTA's MODEL 524 MULTIPORT 
CONTROLLER is a code activated one 
to four serial port expander — but that's 
not all since it has separate and indepen 
dent UARTS. buffers and handshaking 
each port can operate with a different 
configuration ie deferent baud rates. 
stop bits, etc These features also permit 
two or more devices to communicate 
with the 524 simultaneously 



I •"•' duality 
print«t 



Full duplex with EIA RS-232 protocol 

Baud rates up to 19,200 

Expansion to 16 ports by cascading 

Peripheral ports may be configured 
by user software 

One year warranty 



•MODEL 524 $249.00 

•MODEL 524A $279.00 

same as model 524 except has 2S6 byte 
rx tx buffers pei port 
•MODEL 524 D $269.00 

same as model 524. plus continuous poll 

ing of each peripheral device for data 
transfer requests I he device is auto 
matically connected when its turn comes 
up ON BUSY and OFF messages arc 
sent to the peripheral device 
•Other models available Contact us or 
your dealer for additional information 

BAY TECHNICAL ASSOCIATES. inc. 



HIGHWAY 603. PO SOX .18/ 
y B»V ST LOUIS MISSISSIPPI 39520 

6011467 8231 
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PRODUCER 

The Professional Program Writer, 
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What has your computer done for you 
lately? You bought it to be a powerful and 
time saving tool. But if lack of good 
software keeps you frustrated and makes 
your computer an expensive and idle 
gadget, The PRODUCER is here to solve 
your problem. 

Now you can design and produce 
professional quality programs that meet 
your exact specifications and you don't 
even need to understand programming at 
all. 



THE PRODUCER IS A SOFTWARE PACKAGE 
THAT WRITES PROGRAMS FOR YOU. 

Even though you have no knowledge about how to write 
programs, you can now create impressive, sophisticated 
and functional software to manage your data. You answer 
simple English questions, draw your screen on your 
monitor exactly like you want it, and The PRODUCER 
writes the entire BASIC program by itself. 

THE PRODUCER WAS DESIGNED FOR MICRO 
COMPUTER OWNERS WHO CANT FIND THE 
SOFTWARE PROGRAM TO DO WHAT THEY 
WANT IT TO DO. 

You may never need to buy another computer program to 
store and retrieve information, perform calculations on 
your data and get displayed and printed reports. The 
PRODUCER can create customized software of truly 
professional quality. 

The PRODUCER makes the micro computera useful tool 
to the novice and saves many hours of programming time 
for the experienced computer professional. 

IF YOU ARE A NOVICE 

The PRODUCER can make you feel like a pro. The Basic 
code is written for you. You push buttons, answer 
questions and watch the program develop in this 
remarkable process. 

IF YOU ARE A PROFESSIONAL PROGRAMMER 

The PRODUCER can be the time-saver you need to 
increase your productivity and make your job easier. The 
PRODUCER provides many of the advanced features 
found on products that cost many thousands of dollars 
more. You'll be proud to show your clients the 
professional quality programs created by The 
PRODUCER. 




Listen to what one of our users wrote recently: 
The PRODUCER has proven to be the greatest. I used to 
spend 70% of my time writing programs to create, maintain, 
sort, and list data. No More. Days and weeks of 
programming are now reduced to minutes and hours. The 
PRODUCER has increased the productivity of my custom 
software Jinn by 400%. This product is in a class reserved 
Jor the best. A Copelle, Northbrook, Illinois. 



HOW DO I LEARN TO USE THE PRODUCER 

In each TRS-80 version, we have provided a systematic 
guided tour of The PRODUCER program generator 
process. For the Model I and III, an audio cassette tape 
tutorial is part of your package. One of your fellow 
PRODUCER owners talks to you as you go through the 
step-by-step lessons. The tapes not only teach you the 
operating process, they enable you to actually create a 
program of your own design while you learn. 

We have provided over 200 pages of thorough 
documentation in The PRODUCER Reference Manual, 
but we encourage you not to read the manual until after 
you have completed the tutorial. We've had many rave 
reviews from our users, like this one from S.R. Foster of 
Pensacola, Florida: 

The tutorial was an excellent starter, ltenabledmetoget 
on with it wimout days and days of reading. Veryhelpjul. 



WHAT DO YOU GET 
WITH THE PRODUCER? 

You will be impressed with the 
professionalism of the PRODUCER 
package: 

DISKETTE(s) containing PRODUCER 
Program Development System. 
REFERENCE MANUAL of over 200 pages of 
extensive, easy to read, well organized 
material. Attractive hardback 3-ring binder. 
Color keyed index tabs separate the 
chapters. Comprehensive alphabetical 
Index refers to specific chapter subsections. 
QUICK REFERENCE CARD 
REGISTRATION CARD 
TUTORIAL SESSION including audio 
cassettes and detailed follow-along outline, 
written and produced by fellow PRODUCER 
user 

FREE HOME INVENTORY MANAGE- 
MENT PROGRAM ($5995 value as a 
sample) allowing you to use a finished 
program immediately. 

ONE YEAR SUBSCRIPTION to the 
PRODUCER newsletter 

TOLL FREE NUMBER for technical 
assistance, available only to registered 
PRODUCER owners 




Pictured are the components of the Model III version of The PRODUCER. Other versions may vary slightly. 
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HOW THE PRODUCER WORKS 

We think you will be impressed with the ease of 
operation and the amazing versatility of features 
you get with the PRODUCER. Here is a step by step 
overview of the program writing process. The 
screen shown is an unretouched photo of the 
Master Menu from which each of these steps is 
selected. 

□ Planning Your Program 

The PRODUCER provides a helpful planning form you can print on your own printer It 
helps you organize your thoughts to create a tailor made program !o meet your needs 

D Creating The Screen 

Visible on your monitor will be the screen where information will be entered, edited and 
displayed There are six simple steps to follow in creating your screen 

1. Draw Your Screen 

Using the arrow keys construct the screen in any configuration you desire With single 
keystrokes, enter large graphic letters and borders Edit at will until you are satisfied 

2. Define Message Areas 

Select an area of your screen where The PRODUCER messages to you will appear 

3. Define Input Fields 

The PRODUCER will ask you questions about the areas where you will enter the data 
You specify the length of each area or field, as well as acceptable characters in each 
field. 

4. Define Display Fields 

Locate the display fields anywhere you want on your screen These show the results of 
the calculations you want made on your data 

5. Define Custom Prompts 

You select an area where help messages to yourself can be displayed 

6. Save Your Results 

Assign a working name for your program and save it to disk 
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□ Editing Basic Data 

1 Edit any part of The PRODUCER program you have created -- screen field names, 
lengths, prompt areas, etc 

2 Type in any help message you want as a custom prompt to help you operate the 
program 

3. Easily create calculations for your program using actual field names You can use 
the contents of any numeric field and all math operations including logical operators 

D Making Basic Code 

Press a key. sit back and watch The PRODUCER do all the work of creating BASIC 
code for your program You can see the program lines appear on your screen 
Complete error- checking is done for you 



D Building Reports 



Virtually any report is available to you thru our NEW free form report generator It 
works with any size paper You are allowed up to 100 calculations within the report 
You can specify exact position of any text information to any position on your paper 
(even preprinted forms, checks, etc ) An amazingly versatile tool. 

□ Building The Program 

Put the finishing touches on your program by selecting cursor type. size, flashing 
speed, auto messages, custom logos, etc After your selections have been made, press 
a key and your entire finished program is created in less than 5 minutes. That's all there 



is to this remarkably simple program generation process 



Continued 
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TECHNICAL INFORMATION 

The PRODUCER provides many advanced features which aiiow you 
to do "magic" with the programs you create 



The SCREEN GENERATOR 

"Use the full screen (all lines and column positions) 
'Create a professional well organized screen with graphics 
"Save up to 9 separate screens in memory at one time and get 

instant access to each 
'Move the cursor to any location on the screen 
'Replicate bars'hnesgraphics to define certain screen areas 
'Access an instantly available Help Menu of all Screen 

Editor commands 
'Insert and delete any character with a single keystroke 
'Clear or erase selected areas of any screen 
'Insert and delete whole lines on the screen 
'Center any text on the screen 
'Move any rectangular block of text anywhere on the screen 

(block move) 
'Create titles with a single keystroke large graphic letter alphabet 
'Move portions of screens between different screens (cut and 

paste) 
'Save any number of screens to disk at any time 
"Recall any screen from disk any time 
'Create BASIC lines to re-create any screen 

FILE and RECORD HANDLING 

"Rapidly access records with BTREE File structure 

'Search for a record with only the first few letters of the 

name or key (partial key) (Example locate PRODUCER by 

typing PR) 
'Recall and edit duplicate and multiple keys (Example Several 

last names may be the same on a file and you can find 

and edit them individually 

'Fully edit any part of a previously entered record 
'Recover unused space automatically upon deletion of a record 
'Enter data very fast with the special batch mode 
"Recall immediately any record after it's been entered. 

eliminating time consuming sorting and indexing 
'Rapidly access any record anytime (2-4 seconds average) 
"Globally search and replace data in certain fields in 

selected record range 
'Automatically rebuild any file to meet new specifications. No 

need to re-enter data when a file needs to be restructured. 
"Balance any BTREE file automatically to reorganize and speed 

up file access time 
'Recover from power failure and easily rebuild files that have 

been damaged Avoid laborious re-entry of long data files 



SCREEN ORIENTED INPUT 
and EDITING of DATA 

'Insert and delete characters at any position in any field No 

back to start' retyping of data 
"Move forward or back to previously entered fields to edit 

using the arrow keys Totally non-destructive cursor Does not 

require re-entering of each data field 
'Move within any field using the arrow keys 
'Move instantly to any field with Control G command 
"Exit from input edit mode at any point allowing immediate 

escape from data entry mode Allows partial information to be 

entered for each record without the annoying, time 

consuming need to press ENTER for each blank field not used 

at the time of entry 
"Duplicate field information from a previous record with one 

keystroke No need to re-enter duplicate information. 

addresses, etc on consecutive records 
'View a custom prompt your own custom reminder or help 

message for each field with 1 keystroke 
"Verify each character typed automatically 
'Enter data as fast as you want, even if you are a speed typist 
'View visible display of automatic field length restrictions 
"View prompts for each field showing number of characters 

allowed 



PRINTED REPORTS 

"Create up to 9 separate reports at a time in a finished program 
"Generate any number of reports you want (no limit) 
'Select reports by name from a report menu in the program 
"Select from six different automatic report formats including 

custom mailing labels 
"Instantly print reports by key with no time consuming sort 

necessary 
'Sort and print any other (non key) field with the fast machine 

language sort 

'Sort only records that meet your search criteria 
"Sort on more than one field if desired 
'Use any restrictions or search criteria to determine which 

records will be included in a report 
"Use any number of multiple search cntenea (including logical) 

(Example You can search for all the males who are single. 

and drive a car that are over 24 years old but less than 

35 years old 
'Send any special command to your printer before or after any 

report 

'Specify any line length needed and any page length desired 
'Select single line or multiple lines per record, even one page per 

record 
"Total any fields during the report (running totals) 

FREEFORM REPORT GENERATOR 

Optional at onJy $49.95 

'Specify column and row of every heading and field 
'Allow up to 100 of interfield calculations, even string 

calculations 

'Include any text anywhere on the screen 
'Keep sub-totals on any field and print at any time in any format 
'Format any numeric fields anyway you wish 
'Print reports on pre-pnnted forms, checks, etc 
'Create form letters with merged field data with no word 

processing necessary 
"Put any field anywhere on the page No limitations 

ADVANCED CALCULATIONS 

'Globally recalculate any field in any or all records 
(Example If file is a list of gold assets and the spot price 
changes, each separate asset may be recalculated with 
a new value for the spot price) 

'Use all math operations including exponentiation and 
trigonometry 

'Use logical calculations such as And. Or. Not. etc 
'Use any level of parenthesis in calculation formulas 
'Save results in any field and display results in any field 
'Store temporary results in several extra memory slots 
'Pass calculation results between records 
'Determine the exact order of calculations 
"Display or save results at your option in the finished record 

OTHER ADVANCED FEATURES 

"Edit any part of any program without starting over or redefining 

the entire program 
'Create screen and input modules only (for professional 

programmers) 
'Create Calculate-only programs with the easy desk-top super 

calculator program 

'Design custom logos for your program 
'Control cursor type. size, flash speed, etc 
"Design custom prompts or help info for any field 



YOU ALSO GET 

'FREE 1 year SUBSCRIPTION to PRODUCER Newsletter 
'TOLL FREE assistance number for all registered users 
•REFERENCE MANUAL of over 200 pages 
'FREE audio TUTORIAL 
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WHAT ARE PRODUCER USERS SAYING? 

We continue to receive testimonials from satisfied users almost every day. 
Here's a sampling of the feedback we are receiving: 



VALUE 

VERY impressive! No matter how much I 
use the PRODUCER, there is no doubt I got 
my money's worth. It is clear the program, 
packaging and tutorial are developed 
with lots of thought... .Very user friendly! 
Congratulations! 

R. N. Forbes. Los Altos Hills. California 

The PRODUCER package I received was 
excellent The finest software package I 
have ever purchased. Far beyond my 
expectations. 

S. R. Foster. Pensacola. Florida 

/ think the PRODUCER will save me so 
much time that it will give me the time to 
do the more important tasks that my 
business calls for and the money III save 

from not having to buy canned programs 
that are overpriced. Now with the 
PRODUCER I can write a program 
overnight to do almost anything I want it 
to do and with written reports to boot. 
Talk about saving time and money. IJeel 
the PRODUCER will pay Jot itself with my 

first three programs. 

S. Tornatore. Canastota. New York 

The PRODUCER is a very impressive 
software package. It is well worth the 
money. While other micro owners are 
printing mailing labels. I am now selling 
them programs to use. I now have more 
time to spend enjoying my computer. 

V. E. Ryberg. Bloomington. Illinois 

I'm in love with the PRODUCER It's one of 
my favorite programs. 

R. Selsback. Burlingamc. California 

It was very complete and professionally 
done The packaging and program seem 
to have been thought out before assembly 
and sale. The 'value' of the deal, 
everything included was the best Tve 
seen to date. 

G. Slusher. Martin. Kentucky 

Very professional packaging. It gave the 
feeling of getting your moneys worth 
before even running the program.. .Very 
easy to use and leaves veryfew questions 
unanswered.. As you can see. I like the 
PRODUCER and was impressed with how 
trouble free it is. 

A. C. Vincent. Napa. California 

Excellent Above and beyond other 
software. 

R- Hapgood. Henrietta. Texas 



VERSATILITY 

The PRODUCER is the best all purpose 
program generator I have used. (We have 
tried almost all of them.) The generated 
code is bug free, well commented and 
efficient. 

R. A. Copella Northbrook. Ilinois 

J bought the PRODUCER to save time. I 
feel capable of being able to write almost 
all programs I need. The PRODUCER 
generated programs will save a lot of time 
writing basic code and debugging. Using 
the PRODUCER I can write a good 
database type program using math 
calculation in about three hours. I don't 
have to tell you how long it would take 
writing the same program from scratch. 
S. Tornatore. Canastota. New York 

A special thanks to Roger and all of you. 
You ve made my computing life easier 
and better. My 10 year old can't wait to 
get his hands on the PRODUCER. 

J. D. Konkler, Columbus. Ohio 



DOCUMENTATION 

The Reference Manual is a work of art. 
Not only is it attractive and easy to use. it 
is so well organized, documented and 
logically written that the manual is a 
rarity in the software market place. 

S. R Foster. Pensacola. Florida 

One of the best I've seen. We write about 
20 volumes of material per year. Take it 
from a 'pro', it's good! 

J. Crespi. Sherman Oaks. California 

The PRODUCER Reference Manual is 
professionally written to provide ready 
acess to easily understood answers to 
questions which arise during use of the 
PRODUCER. 

R. A. Copella. Northbrook. Illinois 

The Reference Manual is supreme and 
superior to anything I have worked with. 

R. A. Neuman. Okemos, Michigan 

Very well laid out and organized. One of 
the best Vve seen. 

J. D. Konkler. Columbus. Ohio 



QUALITY 



Thank you for an excellent program. I 
agree that The PRODUCER will change 
the entire concept of program creation in 
the future. But for now. you stand as the 
best data-base-management-system I 
can buy. 

E. Sung. Vancouver. B.C. 

r"our system really is Software of the 
Future. Your staff has insight others of us 
only dream of Congratulations on a 
product of extraordinary design. 

S. R. Foster. Pensacola. Florida 

This is an excellent program. At this 
point I am totally pleased. This is by far 
my number one software and I will use it 
anywhere and everywhere I possibly can 
both personal and business. Once again 
congratulations to all of the people 
involved. 

R. A. Neuman. Okemos. Michigan 

Comparison shopping indicates the 
PRODUCER'S superiority to all others. 
And I already own most of the others. 

R. A. Copella Northbrook. Ilinois 

Glad to see you take an interest in what 
some of us hackers are up against. I think 
the PRODUCER will make the software 
hackers upgrade their products to this 
high level quality of the PRODUCER. Tm 
sure you realize that there is a lot of 
garbage on the market 

D. J. Smith. Lombard. Ilinois 

/ was impressed by the professional 
appearance of your program. Other 
software I have received were on copy 
paper and stapled into a booklet with 
very vague instructions. 

W. J. Mahaffey. Absecon. N. J. 



USE 

The program is almost idiot proof. 

J. Crespi. Sherman Oaks. California 

It is a very friendly friend and we will be 

working together for some time to come. 

R. A. Neuman. Okemos. Michigan 

Very easy to use and leaves very few 
questions unanswered. 

A. C. Vincent, Napa. California 
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MODEL I version $149.95 

MODEL III version $149.95 

Available FALL/83 for 

MODEL II $299.95 

MODELIV $199.95 

MODEL 12 $299.95 

MODEL 16 $299.95 

MODEL 16 XENIX $499.95 

IBM - PC $299.95 



PRODUCER 
SOFTWARE 

Box 1245 
Arlington, Texas 

76004-1245 
Texas 817-274-6998 

800-433-5355 



GENERAL 



Finding the Search Solution 



by Joseph E. Trojak 



T 



hese two Assembly-language programs use 
signature screening techniques that help 
you easily maintain and search large text files. 



If you have large text files that re- 
quire efficient indexing and searching 
methods, Mindex and Search can help. 
Potential applications for these pro- 
grams include indexing personal litera- 
ture collections, client or patient rec- 
ords, mailing lists, card catalogs, and 
so on. 

Most information retrieval programs 
for microcomputers use sequential 
searching techniques that are exceeding- 
ly slow, or use indexing systems that re- 
quire laborious coding of key words. 
Mindex and Search use a method that 
quickly searches large files of text and 
avoids the problem of coding key words: 
signature screening. 

The first part of this article reviews 
file searching techniques and explains 
the signature screening method. The 
second part describes how to apply the 
signature screening method to 8-bit mi- 
crocomputers, and lists the Assembly- 
language source code for Mindex and 
Search. 

Both programs run on the Models II, 



The Key Box 

Models II and m 

64KRAM 

Assembly Language 

Radio Shack Assembly Language 

Development System (ALDS) or 

EDTASM 



12, 16, and III with 48K RAM and one 
or more disk drives. 

First, a few basic definitions. A key is 
that part of a record that identifies the 
record during a search. Primary keys 
uniquely specify a record. For example, 
when each record in a file contains the 
name, address, age, and social security 
number of a client, the social security 
number is a primary key for each rec- 
ord. It lets you call up a single, unique 
record. 

Neither the name, address, nor age is 
sufficient to uniquely specify a record, 
so each is termed a secondary key or at- 
tribute. To avoid confusion I'll use the 
term search key to refer to the item 
you're searching for, and the term rec- 
ord key to denote the part of the record 
you're searching. 

FDe Searching Techniques 

Sequential Search 

This is the simplest search technique. 
You start at the beginning of a file and 
compare every record key in the file 
with the search key until you find a 
match or the end of the file. 

An example of this searching tech- 
nique is that employed by a slow-witted 
detective who has a telephone number 
and needs to find the name and address 
of the person who leases the telephone 
line. The detective gets a telephone 
book, starts at page one, and compares 
every telephone number with the one he 
is searching for until he finds the exact 
number. 



If the detective is lucky, the name be- 
gins with A; if he is very unlucky, it be- 
gins with Z. Most detectives would just 
dial the number and ask questions. 

Binary Attribute Search 

In this search technique, each record 
has a number of attributes (secondary 
keys), each of which has only two possi- 
ble values: yes or no (true or false). 
Given a set of attributes, you can find 
all the records with these attributes by 



Suspect: Bugsy Moran 



3 



Criminal Record 

Military Service o 

College Education o 

IRS audit 

Alibi o 

United States Citizen 

Relative of Victim o 

Alcohol Abuse o 

Motive 

o 

o 

o 

o 

o 

o 

o 



o 
o 

o 
o 
o 
o 



o 
o 
o 
o 



Figure 1. Edge-notched card for suspect Bugsy 
Moran. 
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comparing corresponding true and false 
values. 

Our detective has a list of 200 sus- 
pects in a case on which he is working, 
and has the following information on 
each suspect: criminal record, military 
service, college education, IRS audit, 
alibi at time of crime, United States citi- 
zen, relative of victim, history of alco- 
hol abuse, and motive for the crime. He 
wants to find all suspects who have a 
criminal record, no alibi, and a motive. 

He goes to his local stationery store, 
purchases edge-notched cards, and 
codes them as shown in Fig. 1 . Each at- 
tribute has a hole at the edge of the 
card. If an attribute is true, a notch is 
cut out of the card next to the attribute; 
otherwise the hole is left intact. 

In Fig. 1, you can see that Bugsy 
Moran has a criminal record, no alibi, 
and a motive. Our detective makes his 
search in the following way: He ar- 
ranges all 200 cards in a deck and puts a 
needle through the holes for the alibi at- 
tribute, then lifts the deck by raising the 
needle. All records of suspects with 
alibis fall out of the deck and he can ex- 
clude them. 



Automobile Model 


Notch Code 


Buick 


99 21 


Cadillac 


54 83 


Chevrolet 


41 78 


Chrysler 


07 31 


DeSoto 


67 81 


Dodge 


46 IS 


Edsel 


66 10 


Ford 


73 09 


Hudson 


32 77 


Lincoln 


28 41 


Mercury 


12 88 


Nash 


34 89 


Oldsmobile 


59 42 


Packard 


44 75 


Pontiac 


74 28 


Plymouth 


57 71 


Rambler 


93 14 


Rolls Royce 


61 85 


Studebaker 


01 94 


Volkswagen 


57 39 


Automobile Color 


Notch Code 


Black 


40 74 


Blue 


02 77 


Brown 


04 14 


Chartreuse 


15 80 


Gray 


69 52 


Green 


23 94 


Maroon 


29 44 


Red 


39 15 


White 


70 96 


Yellow 


59 20 


Table I. Superimposed notch codes for 


automobile model and color. 





The detective takes the cards that 
didn't fall out and puts needles into the 
holes for the criminal history and mo- 
tive attributes. When he lifts the 
needles, all records of suspects with a 
criminal past, no alibi, and a motive for 
the crime fall out. This amounts to 10 
cards; he has narrowed his search to 10 
out of 200 suspects. 

You can consider the holes and 
notches in the edge-notched card as a 
string of bits. For any attribute, the bit 
is either zero (the hole is intact) or 1 (the 
card has a notch). The attribute bit 
string of each record is called the 
record's signature and is an index of the 



record's attributes. 

Binary Attribute Search of 
Superimposed Codes 

This technique is similar to the simple 
binary attribute search except that the 
signature has more attributes than bits. 
The principle is to map a set of m binary 
attributes from a record into a set of n 
codes, then superimpose the codes for 
each attribute onto an n-bit signature. 

Our detective is so enamored with his 
success in pruning his suspect list, he de- 
cides to use edge-notched cards for an- 
other purpose. In his state, automobile 
license numbers comprise three two- 





oOO 


1954 Studebaker 


50 
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Studebaker code ( 


>01 


Color: 


blue 


51 


o 




Color blue code 




Lic#: 23-56-46 


52 


o 






o03 


OwneT 


: John Doe 


53 









o 04 




5 Waterfront 


54 
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License no. 
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Studebaker code 
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Figure 2. Edge-notched card for a blue Studebaker with license number 23-56-46. 
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digit numbers (72-54-81). There are one 
million possible license numbers. 

Often, a witness to a crime remem- 
bers only one or two of the pairs of 
digits, so our detective devises a method 
that lets him quickly determine the 
owner of a vehicle when he knows only 
part of a license number. 

He buys cards with 100 holes and 
uses the following coding technique: He 
numbers the holes in the card zero to 99. 
For each pair of digits in the license 
number, he makes a notch correspond- 
ing to the number in the appropriate 
card hole (Fig. 2). Additionally, he 
codes 20 models and 10 car colors as 



shown in Table 1. 

The detective obtains a registration 
list from the Department of Motor Ve- 
hicles (DMV) and starts to code all the 
information about 200,000 automobiles 
in his city onto cards. One year later, 
just as he finishes his task, he gets a call 
from a client whose TRS-80 was stolen. 

The client saw the get-away car (a 
blue Studebaker) drive off, but could 
read only the first and last pairs of digits 
from the license plate. The DMV com- 
puter is broken so the police can't 
search the motor vehicle registry data 
base until tomorrow, but the client 
needs his computer today. 








00 


1952 Dodge 


50 o 




License no. . 




01 


Color: 


green 


51 o 




License no. 




02 


Lk#: 77-01-02 


52 o 
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03 


Ownei 


: John Smith 


53 o 
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5 Dock St. 


54 o 
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55 o 
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o 


10 






60 o 
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Figure 3. Edge-notched card for a green Dodge with license number 77-01-02. 
80 Micro, December 1983 



The detective takes his cards, puts 
them in a neat deck, then places very 
long needles through the holes corre- 
sponding to the digit pairs 46 and 23, 
the color blue, and the automobile 
model Studebaker. Three cards fall out 
of a deck of 200,000 cards. The detec- 
tive sequentially searches the three cards 
and finds that only two are Stude- 
bakers. He has narrowed his search 
from 200,000 to two. 

Both Studebakers are blue: one with 
license number 46-79-23 and the other 
23-46-42. The model and color codes 
are the same and the detective specified 
only two of the three possible two-digit 
numbers from the license (23 and 46), so 
the signatures of both automobile rec- 
ords fit the search. 

But why did the third car, a green 
Dodge, also fall out? The code for the 
color green is 23 94 and the code for the 
model Dodge is 46 15. The green Dodge 
that fits the search key had license num- 
ber 77-01-02. The notches in the card 
(23, 94, 46, 15, 01, 02, 77) corresponded 
to every needle placed in the deck (Fig. 
3), so the card fell out along with the 
two Studebaker cards. 

The detective used a primitive coding 
scheme. Elaborate methods have been 
developed for both edge-notch cards 
and bit-string computer searches. Sig- 
nature screening, which you'll use to 
search text files, is a variation on the 
method the detective employed. 

Tree Search 

In tree searching techniques, records 
are arranged in some order (numerical, 
alphabetical, and so on). Either the rec- 
ords within the data file are ordered, or 
a separate index file contains ordered 
information (keys) that points to the ap- 
propriate records in a file. 

You start searching anywhere in the 
file. If your search key doesn't match a 
record key, you move your search closer 
to the beginning or end of the file de- 
pending on whether the search key is 
greater or less than the key of the record 
just searched. 

As an example of this searching tech- 
nique, consider the slow-witted detec- 
tive. This time he has a suspect's name 
(John Smith) and wants to know where 
the suspect lives. Since names in the 
telephone book are ordered (sorted al- 
phabetically), the detective uses the fol- 
lowing search algorithm. 

He opens the telephone book to the 
middle and finds names beginning with 
the letter K. He knows that the letter S is 
between K and Z, so he divides the re- 
maining pages in half and finds names 
beginning with R. One more division 
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and search, and he finds names begin- 
ning with T. 

He continues his search in the oppo- 
site direction, and after five more di- 
vide-and-search sequences he locates 25 
John Smiths. The detective could have 
made his search more efficient if he had 
used information he already possessed: 
his knowledge that names beginning 
with S are closer to the back of the tele- 
phone book than to the front. 

The many different tree searching 
techniques include binary searches, in- 
dexed sequential access methods, and so 
on. All require that the information 
you're searching for have some order so 
that comparisons between a search key 
and a record key determine in which di- 
rection the search branches (toward the 
beginning or end of a file). 

Hash Search 

In hash searching techniques, you 
can store the source file records in any 
order. The hash searching program per- 
forms a sequence of mathematical oper- 
ations (hash functions) on the search 
key, and produces a value that points to 
the appropriate record. 

The detective has decided that he 
must use high technology to keep up 
with the competition. He buys a Model 
12 and a 12-megabyte hard disk drive, 
has a data-entry clerk type all the infor- 



mation from the telephone directory 
into one large file, then hires a high 
school student to write a data retrieval 
program that quickly searches the file 
by name, number, or address. 

The student realizes that sequential 
search techniques are too slow and that 
Microsoft Basic doesn't support ISAM 
files. She writes a program to convert 
every name into a code that indicates 
where the program stores the record in 
the file. 

The hash function is simple: The 
ASCII values of the characters compris- 
ing an individual's name are multiplied 
together, then divided by 200,001. The 
remainder of the division is the record 
number at which the program stores the 
name, address, and telephone number. 
Formally, 

n 
h(k) = (na i ) mod 200,001 

where h is the hash function, k is the key 



Because the program listings in 
this article are so long, we had to 
print them at a size smaller than 
usual. We apologize for any inconve- 
nience this causes. 

To buy these programs on disk, 
see the ordering instructions on p. 
204.— Eds. 



(in this case the person's name), n is the 
number of letters in the person's name, 
and ai is the ASCII value of the ith char- 
acter in the person's name, n is the 
product aj-a2- -an and mod is the mod- 
ulus of the quantity in parentheses (the 
remainder after the number in paren- 
theses is divided by 200,001). 

The student finishes her task and goes 
away for summer vacation. The detec- 
tive needs to find the address of James 
Joyce. He sits down at his computer 
and types in the search key, "James 
Joyce". Instantly a name, telephone 
number, and address appear on the vid- 
eo display. Unfortunately, the name is 
Joyce James, not James Joyce. Our de- 
tective has experienced a collision — two 
distinct record keys hashed to the same 
number. 

The detective is disappointed and 
afraid that he'll have to use the tele- 
phone book. Then he notices a message 
at the bottom of the screen: "Press N 
for next record". He presses N. The 
computer pauses for a brief moment 
and displays the name James Joyce. 
The student incorporated a collision- 
handling routine into her program. 

Signature Screening 

Tree and hash searching methods are 
appropriate for records that contain 
specific fields (name, address, tele- 
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;NINDEX INDEXING 


PROGRAM FOR MODEL II 






/MASTER SECTION! 


links main program with Model 
/and general purpose routines 


II I/O ro 


utlnes 




SOFTSHELL CORPORATION ALL R 







PROG II PSECT 

EXTERN BEGIN 

START JP BEGIN 

LINK 'HS/REL' 



i«aln program 

mote: the program is called N3 because 

iwas originally developed on Model III 

lln its current form it will work with 

/Model II or m given the proper I/O 

/module 

/general programs 

■Model II I/O routines 



Program Listing 1. Assembly-language listing of Mindex2/SRC. 



Ui • 


Source 


ine 




• •••1 


1 SEARCH 2/ SRC... 


.2 




• •••3 

99(94 


|Ur 15, 1913 






I SEARCH PROGRAM 


FOR MODEL II 




■MM 


.MASTER SECTION 


links S3, GR, 


S30PEN, S3DSP, S30PT and MODI I 


• •••6 

• •••7 
HIM 

inn 

• Mil 

• Mil 
•M12 


[COPYRIGHT 1983 


SOFTSHELL CORPORATION ALL RIGHTS RESERVED 


PROG 1 1 PSECT 




;begin relocatable program section 


EXTERN 


BEGIN 


/BEGIN • start of S3 


START JP 


BEGIN 




•••13 


LINK 


'S3/REL' 


I SEARCH program proper 


•••14 






I note: the program is called 


• MIS 






IS3 because it was originally 


■MM 






ideveloped on the Model III 


89917 






I In Its current form it will 


• ••18 






/work with Model II or III 


• ••19 






;given the proper I/O module 


III2I 


LINK 


'GR/REL' 


igeneral routines 


(M21 


LINK 


■S30PEN/REL' 


,-searlh open files routine 


• ••22 


LINK 


'S3DSP/REL' 


/SEARCH display 


• ••23 






/SEARCH options 


•••24 


LINK 


'MOOII/REL 1 


iNodel II I/O routines 


MM! 


END 


START 




Program Listing 2. Assembly-language listing o/Search2/SRC:l. 



Program Listing 3. Assembly-language listing of MODII/SRC. 


Ln 1 
• ••81 


;MODII/ 


SRC VERSION - 1 .2 




••••2 

88883 
MM4 

MMf 


lJun 21 


, 1983 






MODI I 


PSECT 


/Model II 


I/O routines 


/MAP MOD 11 I/O 


ROUTINES, 


SUFFERS AND PARAMETERS 


MH1 

88889 

89818 


.-COPYRIGHT SOFTSHELL 1983 


ALL RIGHTS RESERVED 


MOD 1 1 


PSECT 




/begin relocatable program section 










88911 








ipubllc routines 


98812 










B»B13 




PUBLIC 


BOTTOM 


/position cursor to last line of screen 


• ••14 




PUBLIC 


CLOSE 


IClOSe file (DE-JDCB) 


• ••15 




PUBLIC 


comas 


■•determine cursor pos icoor:BO 


98816 




PUBLIC 


UISBKK 


/disable ureak (lor r.odel II) 


• 8917 




P0bLK 


DIVIDE 


(divide A into HL 


98818 




PUBLIC 


DOSCND 


:3F to TRSDOS and execute conmand 


89819 




PUBLIC 


ERASE L 


/erase to end of line 


88828 




PUBLIC 


L RASES 


/erase to end of screen 


98921 




PUBLIC 


ERRDSP 


:MAP error display routine 


99922 




PUBLIC 


HOKE 


jpontion cursor to top line of screen 


89823 




PUBLIC 


IHIT 


[initialize iile (create/open, pos to 1st reel 


98824 








; OE->DCB, KL-^rec but) 


88925 




PUBLIC 


JP2DOE 


; jp to TRSDOS 


• 8926 




PUBLIC 


KBCHAR 


/get char (or null! frott keyboard 


99927 




PUBLIC 


KBINIT 


/Initialize keyboard (Mod II) 


99023 




PUBLIC 


KB1.IN3 


iget line fro/r Keyboard and end with (3 


99929 




PUBLIC 


KBLINF 


)<jet line fron keyboard and end with 8DH 


999)8 




PUBLIC 


KBKAIT 


;wait for char froo keyboard 


9(931 




PUBLIC 


KEYIN 


:get search ney(s| form keyboard 


•••32 




PUBLIC 


NOVELS 


:ir.ove line fron: screen to buffer 


99933 








sHL->buf, D-no. char, RC-curaor coor 


9M34 




PUBLIC 


MULT 


multiply routine 


• ••35 




PUBLIC 


NEWLM 


j role screen and pos cur to next to last line 


99936 




PUBLIC 


OPEN 


,-open file (DE->DCB, HI.->record buffer) 


• ••37 




PUBLIC 


OPINIT 


/open and initialize file 


9(938 








1 (DE->DCB, HL->recoid buffer) 


9M39 




PUBLIC 


POSCUR 


/position cuisor (coordinates in BC] 


• 9848 




PUBLIC 


POSEOF 


/position to end of file 


•9941 




PUBLIC 


POSN 


/position to record in file 


99)42 




PUBLIC 


PRINIT 


/initialize printer 


•••43 




PUBLIC 


PRLINE 


/print line (H[.-,buf, B-no. char, C-end cr.ar) 


• 9(44 




PUBLIC 


PRSCN 


/print entire screen 


• 9(45 




PUBLIC 


PRTBLN 


/print last line of text 


• ••46 




PUBLIC 


PRTREC 


/print current record 


98947 




PUBLIC 


PTFS 


/point to file spec in cmd line 


99948 




PUBLIC 


READDK 


/read file: direct access 


M949 




PUBLIC 


READKX 


/read nest record in file 


99858 




PUBLIC 


SCRPRO 


/set scroll protect line (A-line no.] 


9(851 




PUBLIC 


SETII.R 


/set INLRR to tiue last record 


IM52 




PUBLIC 


SETNLR 


;set KAPLLR to true last record 


• 1153 




PUBLIC 


STMEND 


: store top of iwr-oiy in MEMEND 


• ••54 




PUBLIC 


VDCHAR 


/display char in A register 


99955 




PUBLIC 


VDCLS 


j clear screen 


99956 




PUBLIC 


VDINIT 


/initialize video I/O (for Model 11) 


98857 




PUBLIC 


VDLIN3 


/display line (HL-Magi don't print »DH) 


8(956 




PUBLIC 


VDLINE 


/display line (HL->nsa) 


aun 59 




PUBLIC 


WPKBWT 


/word processor Kbwait routine 


K0B6B 




PUBLIC 


WRITE 


/direct write routine 


89961 




PUBLIC 


WRITKX 


/write next record to tile 

Listing J continued 
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String He ran down the lane 

Triplets ran dow own the 
Hash value 181 185 101 191 



String Jill walks up the lane 

Triplets jil ill wal alk 
Hash value 212 142 177 94 



String The goat ran up the lane 

Triplets The goa oat ran the Ian ane 

Hash value 191 212 138 181 191 83 108 

Table 2. Three strings, their corresponding triplets, and hash values. 



Ian 


ane 






83 


108 






Iks 


the 


Ian 


ane 


188 


191 


83 


108 



phone number, and so on). Text, how- 
ever, does not lend itself readily to such 
indexing, and many text searching pro- 
grams still employ sequential search 
techniques. 

In 1971, M.C. Harrison proposed a 
method to speed up searching large text 
files ("Implementation of the Substring 
Test by Hashing." Comm. Assoc. 
Computing Machinery. 14:777-779, 
1971). The idea is simple: Before search- 
ing a string of text for a particular 
key, perform a quick screening test to 
determine whether the key is not present 
or possibly present. 

If the test determines that the key 
isn't present in a string, you don't need 
to search that string. If the test is posi- 
tive (the string might be present), a se- 
quential search determines if the key is 
actually present in the string. I refer to 
this method as signature screening. 

The following method is an extension 
of that which Harrison proposed. It's 
designed for use on 8-bit machines that 
read 256-byte disk sectors. Each record 
consists of a string of ASCII characters. 

The search program considers every 
three sequential characters (triplet) of a 
string as attributes of the string. The 
program ignores triplets containing one 
or more spaces. For example, the string 
"Jack ran up the hill" has the following 
attributes: "Jac", "ack", "ran", 
"the", "hil", and "ill". 

Considering only letters of the alpha- 
bet, you can have 26 1 or 17,576 possible 
attributes for any triplet of letters A 
through Z. The 17,576 possible attri- 
butes (triplets) are mapped onto a 
251 -bit string. A hashing function re- 
duces the 17,576 attributes to 251 values 
(zero to 250). 

The hash function, h, for any trip- 
let is: 

h(c„c 2 ,c J ) = (100a(c,) + 10a(c 2 ) + a(c 1 )) mod 251 

where c, c 2 , and c 3 represent the first, 



second, and third characters of the trip- 
let respectively, and a represents the 
ASCII value of any character. Any up- 
percase letter is assigned the same value 
as the corresponding lowercase letter. 
The mod is the modulus of the quantity 
in parentheses (the remainder) after the 
number in parentheses is divided by 
25 1 . If any triplet has one or more blank 
characters in it, it has no hash value. 

The word "hill" has two triplets. 
You want to find the hash value of the 
first triplet, "hil". The ASCII values of 
"h", "i", and "1" are 104, 105, and 
108, respectively. 

First multiply 104 by 100, 105 by 10, 
and 108 by 1. Then add the three num- 
bers (11,558) and finally divide 11,558 
by 251. The remainder, 12, is the value 
of the hash function for the triplet hil. 

The hash function has several fea- 
tures that are important when indexing 
text. The order in which letters are ar- 
ranged in a triplet determines the hash 
value. Triplets such as "tab" and "bat" 
do not hash to the same value. 

Spaces, which often consume a con- 
siderable portion of text, aren't includ- 
ed so the program indexes only words 
of three or more characters. This avoids 
indexing many meaningless triplets. In 
the string "boy and girl", the program 
hashes and indexes only the triplets 
"boy", "and", "gir", and "irl". The 
triplets "oy ", "y a", "nd ", "d g", 
and " gi" aren't included. Last, the 
computation of the hash value is simple 
and quick. 

The signature of a string consists of 
251 bits initialized to zero. If a triplet of 
the string hashes to a value i, the search 
program sets the ith bit (bi) of the 
signature to 1 (equivalent to cutting a 
notch in the ith hole of a notched-edge 
card). Signatures of file records are called 
record signatures while those of search 
keys are called key signatures. 

It's easy to find a single key in a large 



text file. First, the search program loads 
the record signatures of the text file into 
memory (or as much as will fit at one 
time). Second, the program determines 
the signature of the key. Then it sequen- 
tially compares each record signature to 
the key signature. 

If for every bi equal to 1 in the key 
signature, a corresponding bi is equal to 
1 in the record signature, the screening 
test is positive, and the program brings 
the record into memory and searches 
for the key. If for any i, bi equals 1 in 
the key signature and bi doesn't equal 1 
in the record signature, the key isn't 
present and you don't need to search the 
record. 

This is the same as putting needles 
through holes in edge-notched cards. 
Cards that don't fall out when you lift 
the needles lack at least one of the attri- 
butes you're searching for and you can 
bypass them. 

As a concrete example, take a text file 
with only three strings: "He ran down 
the lane", "Jill walks up the lane", and 
"The goat ran up the lane". See Table 2 
for all triplets and the corresponding 
hash values for the three strings. 

Suppose you want to search the file 
for all strings that contain the name 
"Jill". The key signature for the name 
"Jill" (Fig. 4) has bits 212 and 142 set to 
1; all the other bits are zero. 

Comparing the signature of the string 
"He ran down the lane" bit for bit with 
the key signature, you see that b2i2 of 
the key signature equals 1 while D212 of 
the record signature equals zero. The 
screening test is negative and you don't 
need to search the actual string. 

Comparing the signature of the string 
"Jill walks up the lane" with that of the 
key signature, you see that every bit 
equal to 1 in the key signature is also 
equal to 1 in the record signature. Read 
the record from the disk, search it se- 
quentially, and you find the name 
"Jill" present. 

Comparing the signature of the string 
"The goat ran up the lane" with that of 
the key signature, you again find that 
every bit equal to 1 in the key signature 
also equals 1 in the record signature. 
You read the corresponding record 
from the file, search it sequentially, and 
determine that the key isn't present (a 
collision has occurred). If you had more 
records in the file, you could continue 
the search in the same manner. 

Searching for a string that contains 
two or more keys is simple. The pro- 
gram logically ORs the key signatures 



Continued on p. 182 
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TECHNIQUE 



Assembly Language 
Shortcuts— Part II 



by Bob Bowker 



T 



his month's shortcuts emphasize efficient use 
of the stack and include a reassuring per- 
spective on the mysteries of algorithms. 



CONDITION 1 CONDITION 2 


CONDITION 20 


ID BC.0123H LD BC.0254H 


LD BC.2017H 


LD (BUF),BC LD (BUF).BC = 


= >» LD(BUF),BC 


CALL ROUTINE CALL ROUTINE 


CALL ROUTINE 


RET RET 


RET 


ROUTINE LD HL.(BUF) 




RET 




Program Listing I. Stack value pass. 





CONDITION 1 

POPHL 

CALL ROUTINE 
DEFB 32H 
DEFB01H 



CONDITION 2 

POPHL 

CALL ROUTINE 
DEFB 54H 
DEFB 02H 



>» 



CONDITION 20 

POP HL 

CALL ROUTINE 
DEFB 17H 
DEFB 20H 



ROUTINE EX (SP),HL 



RET 



Program Listing 2. Byte-efficient Stack value pass. 



In my last article on Assembly lan- 
guage programming (80 Micro, June 
1983, p. 173), I discussed some tech- 
niques on reducing memory require- 
ments. This month, I'll consider the 
stack, a last in/first out storage area 
used by the Z80 to save both addresses 
and values as it jumps around in a pro- 
gram. The stack is available to the user, 
too; you can store addresses and values 
on the stack with the Push command, 
and reclaim them with Pop. 

When you call a subroutine, the com- 
puter automatically stores the return 
address on the stack, so that when it en- 
counters a return instruction, the last 
address on the stack tells the program 
where to return to. 

If your subroutine has left an extra ad- 
dress on the stack, when it encounters 
the return, the program returns to the 
extra address, not to the proper place. 
Similarly, if too many addresses are 
popped off the stack, the address to 
which the program returns will be 
wrong. 

What's Wrong is Right 

Sometimes you can misuse the stack 
to advantage. Suppose that you have a 
program with 20 possible situations, 



The Key Box 

Model I and 01 
16KRAM 
Editor/ Assembler 
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each of which must pass a unique value 
to a common Write routine. One possi- 
bility is Program Listing 1. There is a 
way to use the stack to pass the value, 
and, in this example, save many bytes. 
See Program Listing 2. In each of 
the 20 cases here, the POP HL instruc- 
tion puts the main return address into 
the HL register pair, and the call routine 
puts the address of the first DEFB onto 
the stack, even though we have no in- 
tention of returning here. At routine, 
the 1-byte instruction EX (SP),HL puts 
the main return address on the stack, 
and the HL register pair points to byte 1 
of the value to be passed. When the pro- 
gram encounters the return instruction 
at the end of routine, it goes back to the 
original code that called the condition 
and not to one of the DEFB lines. 

How to Call Yourself 

Shortcuts are often needed when the 
number of bytes available for the task 
is limited; if you have to fit a program 
in a IK EPROM, that byte 1,025 has 
got to go. 

I am also motivated by laziness: I 
don't like to type in the same code twice 
if I can help it. Duplicating several lines 
of code is a waste of both typing time 
and assembler space, so I came up with 
the subroutine in Program Listing 3 to 
convert a hex digit into 2 ASCII bytes to 
be displayed. This routine uses one re- 
turn instruction to handle both passes 
through its code. Line 160 calls the sub- 
routine; when the program encounters 
the return in line 240, it branches back 
to line 170 to the address on the stack 
and continues on until it hits line 240 
again. This time, the return forces a 
branch back to the main calling code 
since that address is now on the stack. 

There's no practical limit to the num- 
ber of layers you can create using the 
one return instruction. This next exam- 
ple uses up to three passes through the 
same section of code, at various times, 
according to two switches. You could 
use it to allow for differences in how 
long you must wait for a disk drive 
motor to get up to speed. The first flag 
can indicate whether your speed-up 
modification is on, and the second flag 
can indicate that a full second is re- 
quired for that drive to get to 300 revo- 
lutions per minute (rpm), as opposed to 
the half second required by newer 
drives. The original version is in Pro- 
gram Listing 4. The routine checks two 
flags and calls wait once for each flag 
that's on; then it calls a single wait re- 
gardless of the flags. Compare it to the 
version in Program Listing 5. The pro- 
gram uses a single subroutine and its re- 



00100 


57 


CONV 


LDD.A 


;Store for now 


00100 


E6F0 




AND 0F0H 


;Dump bot 4 bits 


00120 


OF 




RRCA 


;Do the rotate trick 


00130 


OF 




RRCA 




00140 


OF 




RRCA 




00150 


OF 




RRCA 




00160 


CDxxxx 


CALL SUB 


;Call the subroutine 


00170 


57 




LDA.D 


; Recall the number 


00180 


E60F 




AND0FH 


;Dump top 4 bits 


00190 


C630 


SUB 


ADD A.30H 


;Make it ASCII 


00200 


FE3A 




CP3AH 


;Allow for HEX 
digits 


00210 


3802 




JR C.ONE 


;A thru F 


00220 


C607 




ADD A.07H 




00230 


CDxxxx ONE 


CALL 003BH 


;Output the byte 


00240 


C9 




RET 








Program Listing 3. ASCII converter. 



00100 


01FFFF DELAY 


LD BC.0FFFFH 


; Delay length 


00110 


3Axxxx 


LD A,(FLAG) 


;Get flag 


00120 


F5 


PUSHAF 


;Save the flag 


00130 


CB47 


BIT 0.A 


;Check bit 


00140 


C46000 


CALL NZ.60H 


; Wait if it's on 


00150 


Fl 


POPAF 


; Restore orig (FLAG) 


00160 


F5 


PUSH AF 


; . . . and store again 


00170 


01FFFF 


LD BC.0FFFFH 


; Delay length 


00180 


BB4F 


BIT l.A 


;Check bit 1 


00190 


C46000 


CALL NZ.60H 


;Wait if it's on 


00200 


Fl 


POPAF 


;Restore orig (FLAG) 


00210 


01FFFF 


LDBCOFFFFH 


; Delay length 


00220 


CD6000 


CALL 60H 


;Standard wait 


00230 


C9 


RET 


;Job's done 




Program Listing 4. Three-pass routine. 



00100 010000 DELAY 


LD BC.OOOOH ;Delay count 


00110 3Axxxx 


LD A.(FLAG) ;Get flags 


00120 CB47 


BIT 0.A ;Check bit 


00130 C4xxxx 


CALLNZ.SUBl ;Delayifon 


00140 CB4F 


Bm.A ;Checkbitl 


00150 C4xxxx 


CALLNZ.SUB1 ;Delayifon 


00160 F5 SUB I 


PUSH AF ;Save flags 


00170 CD6000 


CALL0060H ;... and delay 


00180 Fl 


POP AF ;Restore flags 


00190 C9 


RET 


Program Listing 5. Single subroutine option. 



tum several times. Each time the return 
is encountered, the program branches 
to the last address on the stack. If bit 
of (FLAG) is on, the return forces a 
return to line 140, and to line 160 if bit 1 
is on. If neither is on, the return 
branches back to the code that called 
the delay. 

The program initially sets BC register 
pair to 00 00 hexadecimal (hex) instead 
of 0FFFF hex since the wait routine 
0060 hex returns it to 0000 hex every 
time it's called; thus BC is set up for the 



next pass. That one extra count in the 
delay is only 14.65 microseconds, which 
in most cases won't hurt. The bonus in 
using the second routine is that 8 bytes 
are saved— over 25 percent! 

End of the Line 

The word algorithm is not only ugly, 
it's scary. That concept has probably 
kept more people away from Assembly- 
language programming than T-Bug 
ever did. An algorithm is nothing more 
than a way to do something. 
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00100 3Axxxx 


LINE 


LD A,(4020H) :Get CSRPOS LSB 


00110 CB67 




BIT 4,A ;Bit 4 on? 


00120 CO 




RETNZ ;Go back if yes 


00130 CB6F 




BIT 5,A ;Bit 5 on? 


00140 CO 




RET NZ ;Go back if yes 


00160 CDxxxx 




CALLNULINE ;Ifs a new line 


00170 C9 




RET ;Now go back 


Program Listing 6. Algorithm check. 



For example, once I needed a way to 
tell if the cursor was positioned at the 
start of a line on the screen. At one 
point I considered making a table of the 
16 start-of-line addresses and doing 16 
compares every time. 

Then I found a blank page of Radio 
Shack's $1.95 Video Display Worksheet 
paper left over from Level I days, and 
wrote the 16 addresses in a column 
down the left side. I converted the ad- 
dresses to binary and wrote them down, 
too. In every case both bit 4 and bit 5 
were off; that turned out to be an abso- 
lute test. If either bit 4 or bit 5 of the 
least significant byte (LSB) of the ad- 
dress of the cursor were on, the cursor 
was not at the start of a line on the 
screen. I had an algorithm (see Program 
Listing 6). This routine checks bits 4 



"Don't be frightened off 

by jargon like algorithm; 

if what you 're looking for, 

or what you f ve found, 

is a shortcut, 

call it that. " 



and 5; if either is on, the cursor is not at 
the start of a line, so it returns. If both 
are off, the program calls the subrou- 
tine Nuline to do whatever, followed by 
the main return. 

Don't be frightened off by jargon like 
algorithm; if what you're looking for, 



or what you've found, is a shortcut, call 
it that. 

To Vector or Not to Vector 

Lowercase modifications on the 
Model I are pretty common now, but 
not all users have them. This poses a 
problem if you're going to sell, or other- 
wise distribute, a program to others; 
you have to make allowances for the 
unmodified computers. Also, if your 
program uses the printer in any way, 
you should allow for those who don't 
have one. There are few things more 
frustrating than to accidentally hit the P 
key, and sit helplessly as the computer 
locks up in a ROM loop looking for a 
printer that isn't there. 

Vector is more jargon; it means jump, 
so let's call it a jump. That's also an 
easy way out of the problem: Place a 
jump or two at the start of your pro- 
gram, that can be changed by any user 
to allow for printers and lowercase. 

For example, I wrote a program that 
calls a conversion subroutine just before 
printing every character on the screen; if 
the character were lowercase, it would 
be converted to uppercase. Before dis- 
playing the character in A on the screen, 
I would call LC2UC. 




PROFESSIONAL QUALITY PERSONAL INCOME TAX PROGRAMS 
NOW IN OUR SECOND GREAT YEAR AND STILL UNDER $30 



• Don't wait until April 15. Use SUPERTAX to develop your 
tax strategy NCW. 

• An ABSOLUTE MUST for every personal software library. 

• Invaluable for YEAR-END tax planning or for tax return 
preparation. 

• The friendliness and efficiency of these programs are setting 
standards by which others are judged. 

• Highly acclaimed by tax professionals and laymen alike. 

• Written by CPA 

SUPERTAX I: Using either screen or printer output. SUPERTAX I generates 
clear and concise summaries of Page 1 and 2 and Schedule A of FORM 
1040. allowing you to see at a glance and quickly comprehend your tax 
situation. This program also prints an OVERALL SUMMARY of the return 
showing Adjusted Gross Income, Itemized Deductions, Taxable Income, 
Regular Tax, Income Averaging Tax, Minimum Tax and Payment Due or 
Refund — all of which are calculated by the program. SUPERTAX I also 
calculates the moving expense deduction, investment credit, taxable 
capital gains, political and child care credits, medical limitations, and much 
more. Input is fast and easy and changes can be made in seconds. This 
program actually makes tax planning a breeze. 

SUPERTAX II: Includes the efficient SUPERTAX I program as well as the 
more detailed SUPERTAX D program which makes all of the SUPERTAX I 
calculations, but which also PRINTS THE INCOME TAX RETURN. This 
program prints Page 1 , page 2, Schedules A B, and G (income averaging) 
of the FORM 1040 as well as FORM 3468 (investment tax credit) on 
standard government forms or on blank computer paper for use with 
transparencies. Any input item can be changed in seconds and the entire 
return recalculated almost instantly. 



• Available for IBM PC. Radio Shack Models I. II, III, 12 and 
16, Apple II + , and Kaypro II (all require at least 48K). 

• Also available on standard 8" CP/M using Microsoft BASIC. 

• Data can be saved on disk. 

• Changing any data item instantly changes entire return. 

• Subsequent year versions of SUPERTAX available at 40% 
off. 

• Programs are fully prompted and include manual loaded 
with valuable tax information and guidance. 

SUPERTAX HI: This package includes both the SUPERTAX I and SUPER- 
TAX II programs PLUS a program to calculate and print Schedule C of the 
FORM 1040. Also included is a stand alone depreciation program which 
calculates and prints your depreciation schedule using both the old rules 
and the new ACRS rules. Output from the depreciation program is de- 
signed to serve as a supplement to IRS FORM 4562. 



SUPERTAX I - 


- $29.50 


SUPERTAX II 


- $49.95 


SUPERTAX III 


- $59.95 



Add $2.00 for postage & handling Add $2.00 if ordering on 8" diskettes. 
Radio Shack models require 2 Hisk drives. 

ROCKWARE DATA CORPORATION 

1635 Dorchester • PLAN0. TX 75075 • (214) 596-0588 

CP'M. Radio Shack & Apple II * are trademarks of Digital Research Tandy Corp and Apple Computers 
Inc. 



,-512 
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My program also jumped through a 
subroutine on its way to the line printer; 
to print the character in A, I would call 
print. 

00100 C3xxxx LC2UC JP CONV ;Go convert 

LC to UC 
001 10 C3xxxx PRINT JP LPR ;Go print out 

These were the first two lines of the pro- 
gram, which loaded at 5200 hex. I in- 
cluded instructions to zap a return into 
line 100 (a C9 at 5200 hex) if the user 
had a lowercase mod; then, every time 
LC2UC was called, the program found 
a return before it could convert any- 
thing. Similarly, the program could zap 
a return into line 1 10 (a C9 at 5202 hex) 
if the user had no printer; this effective- 
ly disables the print command in the 
program. 

Was That a I or a III? 

When it first came out, the Model III 
was advertised as able to run all Model I 
software. As it turns out, that just isn't 
so; the culprits are the new ROMs in the 
III, which are different from the I's. 

For most people, this is not impor- 
tant. However, if you want to sell a pro- 
gram that works on both, you have a 
decision to make: Should you sell sepa- 



rate versions, or try to write one version 
that works on both models? If you 
choose to do the latter, you've still got 
problems. You must either make sure 
the program uses only those routines 
which are common to both models, or 
you must somehow have your program 
modify itself based on the host model. 

The last choice is not difficult. You 
can tell whether the computer running 



"Should you sell 

separate versions, 

or try to write 

one version that works 

on both models?" 



your program is a III or a I by looking 
at the byte at 0054 hex in the ROM; if 
it's a 01 hex, you're on a Model I, and if 
it's an EB hex you're on a III. There are 
probably other addresses you can use, 
although this is the only reliable one I 
know. 



Start your program after the jumps 

with a check of 0054 hex, and deal with 
the result accordingly. For instance, if 
you find that your computer is a III, 
you may want to disable your own LC 
vector right away by putting a return 
there, and store a 00 hex at 4019 hex to 
default the III to lowercase. If any of 
the DOS calls you intend to use are dif- 
ferent in Model III versions of the oper- 
ating system, you can alter them now. 
For example, assume that a DOS call in 
Model I is at 4290 hex, and in the Model 
III is at 442B hex. 

01320 CD9042 HERE CALL 4290H ;Model I 
CALL 

If your check finds that you're on a III, 
include the following lines before start- 
ing the main program: 

65000 212B44 LD HL.442BH ;Model III address 
65010 22xxxx LD (HERE+ 1),HL 

When line 1320 is encountered, the prop- 
er Model III address will be called. ■ 

Robert Bowker is a free-lance televi- 
sion director. He can be reached at 
11360 Sunset Blvd., Los Angeles, CA 
90049. 



Announcing craiox diaaixl Version 2.0 



Crayon Deluxe is a complete Bit-Image word/graphics processor which creates stunning visual effects using custom text and graphics. No 
matter which word processing system you now use, Crayon Deluxe 2.0 does all the things your word processor can't! 



Speciality Fonts & Shapes • 

Standard Text Processing • 

On Screen Text Justification • 

Prints All Foreign Languages • 

18k Full Screen Editor • 

Full A 'A Page Scrolling m 

Superb Manual W '/Examples • 

18k Font Design Utility • 

AVAILABLE FOR All MX 



Custom Logos 
Cartoons & Basic Screens 
Programmable Centering 
No Wait Printing! 
24,000 Character Library 
True Mirror Images 
Route Printing To Disk File 
Super Fast Text Entry 



Multiple Mail Labels 
Wide Printing Mid-Line 
Prints as Shown On Screen 
Line Drawing Graphics 
19 User Def Chars (anywhere) 
Automatic Wide Entry Mode 
3 User Selectable Underlines 
Business Forms & Graphs 



m Draws Angles, Patterns & Lines 

• Inversons Mid-Line 

• Chars. To 40 x 127 Dots 
Custom Borders & Graphics 

• 3 Programmable Tab Lines 

• Tone Beeps & Signals 

• 3 User Selectable Overlays 
Sub & Superscripting 



+ FX printers with Gnpbtnx • All P ROWR1TER and 8S10A and All GEMIN I 10 + 15 

Comes with 130 page manual, 2 diskettes - Fontmaker - samples- 600 characters BJi|i5J^j| F|| j ]I'[f l l |*J£ ^ L} ^, lMJLM 300 character fonts 
are $15.00 - Fonts available are DIGITAL — ELITE — HERITAGE — Comes with Outline and Regular — Specify System and Printer. 



j3rush 



A%e 




Jferiiage 




I 

abc 



Digital 



ABCOEF 
HEGrjEF 



OullL 



'me 




^oorc/i 



oraers 




Sh 



apes 



®k 



HEME 




Scrip/r - Turns Scriptsit into a full word processing system by providing complete printer support for the following printers MX 80 + FX 
80 - LP-4 + 8 — DMP 200 + 400 - DW2 - PROWRTTER — CIOTH 8510A — GEMINI — M1CROLINE — FEATURES on most versions 
include Emphasized, Double Strike, access all available typestyles, change character widths, sub and super script, pausing, dot linespacing changes, 
Editing, Macro's, DOS Reentry, Send any Code to printer, Supports (ALL Gnpbtnx Functio ns, — most M id-Line), DIAL-A-PRINT, Form 
Letters, Print to video only for trial pagination and much much more. Available with versions for 
with teaching programs and a 66 page manual. (Print uanpUt mntfabU on njuest) 



Models 1.3.4 on DISK/CASSETTE tor $40.00 



Free Brochures 

\1 16 N W >>th AVI Nf) 



PIONEER SOFTWARE 



Phone ( ;}()•) i /'.'.'I 207 \ 



(•) 160 

Mon.'v Orders COO s .iccepted 



y See Ust of Advertisers on Page 291 
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DISPLAYED VIDEO IS DRIVING DOWN 
PRICES ON DISKS! 



FREE SHIPPING! 




TEC'S NEW HALF-HIGH 40 TRACK DISK DRIVE W/CASE 
& POWER SUPPLY AT AN INCREDIBLE LOW PRICE! 

$195.00!!!! 

NEW! 

TRUE HALF HEIGHT DRIVES! 

1 5/8 INCH NOT 2 INCH OR 2 7/16 INCH! DIRECT DRIVE! 

NO DRIVE BELT! 3MS TRACK TO TRACK! 

"YOU CAN BUY THE REST BUT WHY NOT BUY ONE OF THE BEST!" 

TEAC's NEW SLIMLINE 40 TRACK W/CASE & POWER SUPPLY $235.00 

TANDON 40 TRACK TM-100-1 W/CASE & POWER SUPPLY $220.00 

(DOUBLE SIDED 40 TRACK DRIVES ADD $75.00) 

SHUGART NEW SLIMLINE DOUBLE SIDED 40 TRACK W/CASE & POWER SUPPLY $299.00 

SHUGART NEW SLIMLINE DOUBLE SIDED 80 TRACK W/CASE & POWER SUPPLY $379.00 

TANDON SINGLE SIDED SLIMLINE 8" DISK DRIVE W/DUAL CASE & POWER SUPPLY $545.00 

TANDON DOUBLE SIDED SLIMLINE 8" DISK DRIVE W/DUAL CASE & POWER SUPPLY .... $625.00 

TWO DRIVE CASES AVAILABLE AT VARIED PRICES 
TWO DRIVE 5 1/4" CABLE (FOR MOST COMPUTERS). $23.99 WITH GOLD PLATED CONNECTORS 

DV'S COLOR COMPUTER 1st DRIVE ONLY. $369.00 

ONE YEAR WARRANTY ON TEAC & SHUGART DRIVES/ 180 DAYS ON TEC & TANDON 

HAYES SMART MODEM 300 BAUD $225.00 1200 BAUD $525.00 

MODEL 1 DOUBLE DENSITY BOARD $89.00 

PRINTER PRICES 

WE'RE NOT GOING OT MAKE YOU CALL FOR PRICES - HERE THEY ARE IN BLACK AND WHITE!!! 

EPSON STAR 

MX80 FT W/GRAPHTRAX PLUS $459.00 GEMINI 10 $349.00 

MX100 W/GRAPHTRAX PLUS $659.00 GEMINI 15 $479.00 

RX80 W/GRAPHTRAX PLUS $389.00 CITOH PROWRITER 8510 $395.00 

FX80 W/GRAPHTRAX PLUS $569.00 STARWRITER F10 $1169.00 



FX100 W/GRAPHTRAX PLUS $779.00 



DWP 210 $649.00 



< 



PRINTER CABLE 10' LONG W/GOLD PLATED CONNECTORS STARTING AT $25.99 

DAISY WHEEL PRINTERS AVAILABLE AT VARIED PRICES 

Visit our two WE CARRY TRS80. LNW. EPSON & FRANKLIN COMPUTERS IMMEDIATE DELIVERY 

Cfi£'c ati ° nSat D a \ / 180 Days Parts and Labor Warranty 

»8btcorseKoad -^ra n.cn, ^DEALER INQUIRIES INVITED 

X P i S q \*?£i ?n« 4 J m l.so HEP D ISPLAYE D [g*=p\ Free Shl , in the LJ s 

(313) 426-5086/(3 13) 482-4424 ^J^^s/T^^^MJ 48 Cont.guous States 

1 1 1 Marshall Street TO ORD ER: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 

Litchfield, MI 49252 (517) 542-3939 (517) 542-3947 

(5 1 7) 542-3280 OR WRITE: DISPLAYED VIDEO 111 MARSHALL ST., LITCHFIELD, MI 49252 

(O 1 / ) D4Z-J7J7 TRS-80 is a trademark 01 the Tandy Corporation 

(»>l/j D**^-«S"4/ ^62 Prices & Specifications subject to change without notice 



DISPLAYED VIDEO IS DRIVING DOWN PRICES ON DISKS! ^ 
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YOITRE NOT 
SEEING THINGS. 
THATS FOUR 
INTERNAL 
DRIVES IN A 
MODEL 4 



$1999.00 




AVAILABLE 
NOW, 
ONLY 
FROM 

DISPLAYED 
VIDEO! 



DISPLAYED VIDEO HAS DONE IT AGAIN! 

THE STORAGE CAPACITY YOUVE ALWAYS WANTED 
AT THE LOWEST PRICE EVER CONCEIVED! 

FOUR DRIVES IN A MODEL 4, 64K $1 999.00/1 28K $2079.00 

QUALITY BACKED UP BY DVS SIX MONTH YOU CANT LOSE WARRANTY! 



4 
D 

$1999.00 j£ 

I 

V 

E 

S 
f 



/" DISPLAYED VIDEO is offering TRS-80' MODEL 4 disk drive systems for INCREDIBLY low prices, quality backed up 
by DVs six month you can't loose warranty. 
MODEL 4 with 64K dual 40 track double density disk drives with TRSDOS 6.0 and TEN DISKETTES. 

PLUG IT IN AND GO $1599.00/128K $1679.00 

MODEL 4 with 64K dual 40/40 track double density disk drives with TRSDOS 6.0 and TEN DISKETTES. 

PLUG IT IN AND GO $1899.00/128K $1979.00 

MODEL 4 with 64K dual 80 track double density disk drives, with TRSDOS 6.0 and TEN DISKETTES. 

PLUG IT IN AND GO $1899.00/128K $1979.00 

MODEL 4 with 64K dual 80/80 track double density internal disk drives, with TRSDOS 6.0 and TEN DISKETTES. 

PLUG IT IN AND GO $2199.00/128K $2279.00 

MODEL 4 with 64K four internal drives of any configuration available to achieve up to 4 meg of disk storage CALL 

MODEL III/4 Internal Two Drive Kit: Includes controller board, dual drive mounting bracket, dual power supply, all hardware 

cable; and connectors (gold plated) & TEC Drive $399.00 

4 DRIVE KIT MINUS DRIVE $349.00 
V MODEL 100 8K $679.00 24K $839.00 DVS MODEL I DOUBLE DENSITY BOARDS $89.00 



< 



WE CARRY TRS-80. IBM. LNW. EPSON & I-RANKUN COMPUTERS 



< 



Visit our retail location at: 

111 Marshall Street 
Litchfield, MI 49252 
(313) 426-5086 
(313) 482-4424 
(517) 542-3280 
(517) 542-3939 
(517) 542-3947 




D ISPLAYED 
IDEO 




IMMEDIATE DELIVERY 

DVS SIX MONTH 

PARTS AND LABOR WARRANTY 



Authorized Dealership at: 
1 1 1 Marshall Street. Litchfield. Michigan 49252 PI 42 

To Order: Call (313) 426 5086; (313) 482 4424; (517) 542-3280 

(517) 542 3939; (517) 542 3947 

OR WRITE 

Displayed Video. 1 1 1 Marsliall St, Litchfield. MI 49252 

'TRS 80 is a trademark of the Taixiv Corporation Prices subject to i/hanoe without notk" 



REVIEW 



CP/M III Ways 



by Terry Kepner 



|yo 



f you're looking for CP/M compatibility on 
your Model m, choose one of these boards 
d get access to hundreds of great programs. 



• ••• 

CP/M Mapper III Board 
Omikron Systems 
1127 Hearst Ave. 
Berkeley, CA 94702 
$199 

*••• 

VID-80 Board 
Holmes Engineering Inc. 
5175 Green Pine Drive 
Murray, UT 84107 

$279 

• ••• 

Shuffleboard ID 
Memory Merchant 
14666 Doolittle Drive 
San Leandro, CA 94577 
$299 



CP/M, Control Program for Micro- 
processors, was the first comprehensive 
in-memory disk operating system for 
8080 and Z80 based microcomputers. 
And now it's available to those who 
own Model Ills. 

The three Model III CP/M conver- 
sion boards included in this review are 
the Mapper III from Omikron, the 
VID-80 from Holmes Engineering, and 
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the Shuffleboard III from Memory 
Merchant. 

All three boards offer useful modifi- 
cations, but their features do differ. 
Shuffleboard is the only one that lets 
you perform single-drive file copies, 
while Mapper III alone lets you transfer 
files and programs from TRSDOS disks 
to CP/M disks. 

The Holmes board stands apart in 
that it modifies your Model Ill's ROM 
to use an 80-character by 24-line display 
in standard TRSDOS environments as 
well as the CP/M environment. 

While all three boards provide CP/M 
capability, you should consider their 
features and choose the board best 
suited for you. 

Each modification is similar in con- 
cept: You remove the Z80 CPU and 
put it on the CP/M board, then plug 
the CP/M board into the Z80 socket. 
The computer now operates as either a 
standard Model III or a Z80 CP/M 
computer. 

Mapper III 

Omikron sells several modification 
boards for the Models I and III, includ- 
ing four versions of the CP/M board (a 
48K and a 64K RAM version for each 
computer), 8-inch drive support for the 
Models I and III, and a 24-line by 
80-character video display modification 
for the Model III. 



I'll describe the Model III 64K CP/M 
board, without the 8-inch drive board 
or the 80 by 24 display modification. 
The Mapper III is quite small, measur- 
ing 4 inches by 6 inches (see Photo l). 
Centered on the right side of the board 
are the socket for your computer's Z80 
chip and the pins for plugging the board 
into your computer. 

The six pages of typeset installation 
instructions are clear, with many pic- 
tures to clarify the procedure. The guide 
is a professionally prepared pamphlet, 
the best hardware installation guide I've 
ever seen. 

The installation instructions are easy 
to follow. You unplug the computer, 
then locate and remove the case screws. 
Lift off the cover, locate and remove 
the Radio Frequency Interference (RFI) 
shield screws, then remove the RFI 
shield. 

Remove the Z80 chip (be very care- 
ful — bent pins aren't a total disaster, 
but make the installation difficult), plug 
it into the CP/M board (observe correct 
orientation of the chip in the socket), 
and plug the board into the computer 
Z80 socket. Finally, reassemble the 
computer. The entire installation takes 
about half an hour of continuous work. 

Now I must fault the documentation. 
After reading the installation guide, I 
looked for instructions on turning on 
the system and testing the board's per- 
formance, but there aren't any. 

The owner's manual (15 photocopied 
pages of mixed typesetting and printing) 
details the CP/M system, describing 
video, keyboard, RS-232, and printer 
drivers, plus other important informa- 
tion about the Omikron version of 
CP/M. But it doesn't contain instruc- 
tions on turning on the system in 
TRSDOS, CP/M, or Level II Basic. 



I've since discovered that Omikron is 
still writing the user's manual. By the 
time you read this review, the guide will 
be finished and included with the other 
manuals. 

When I turned my system on, strange 
characters filled the screen; I got no 
drive response and other peculiar reac- 
tions. I took my computer apart, re- 
moved the CP/M board, then replaced 
it and reassembled the computer. This 
time everything worked the way it 
should and the drive light came on. 

The video screen displays the Omi- 
kron sign-on message, with two opera- 
tion choices listed, C and T. Pressing 
the C key causes the Model III to boot 
up the CP/M disk in drive zero. Press- 
ing T boots a TRSDOS disk. If you 



want Level III Basic, press T and the 
break key. TRSDOS operation remains 
unchanged. 

Omikron designed the video driver to 
emulate the Soroc IQ120 terminal, so 
any CP/M programs compatible with 
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Photo I. Mapper III. 




Photo 2. VIDJO. 
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Photo 3. Shuffkboard III. 
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Stop unauthorized use! 
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The Compu-locK is an electronic circuit board 
that virtually guarantees that no one can 
access your files or damage important data 
Hit-- the iompu-iocr. installed, your computer, 
on power up. requires the entry of a 
password before it can oe used Without 
correct password entry, your computer will 
only display owner identification i 

The Compu-locK can be a very strong theft 
deterent. and if your compute^ should be 
stolen. the Compu-locK could be the 
single-most reason that your computer would 
be returned to you Easy internal 
installation requires re soldering or trace 
cutting Bold mylar decal. included, warns 
wouid be thieves or meddlers 

It has been estimated that the odds of an 
unauthorized person gaming access to a 
computer protected by a Contpu-loeK, with a 6 
letter password, is one ,n 326 billion Those 
are excellent odds m your favor « 

Tell us e»artly how you wish your display to 
be formatted and choose your own password 
The screen display allows you up to five lines 
of 35 characters each You may use these 
lines in any manner you wish to display your 
ownership identification imes may be sMppea 
or not used as you oesi^e See above screen 
example. The lines should contain owner 
and/or company name, address, phone number 
and. optionally, a drivers license number or 
other identifiers of your choice The 
password may be up to 20 characters long 
and any Keyboard character may be used 
(including lowe r case) with the e«ception of 
the arr«ows We do suggest, for your 
convenience, that the password you send to 
us be from 5 to B characters long and 
something that you'll easily remember 

Don't wait until it's too late Your computer 
and files are worth the protection that the 
Compu-locK affords Nail your order today 
Include a checK or money order for $99 95, 
the password of your choice and a clearly 
printed or typed copy of how you wish your 5 
lines of information to read Add 52 50 for 
postage and handling. California residents 
add b 5'/- Be sure you give the model number 
of your computer 

The Compu-locK is available for the TRS-80 
models 1. 3, t •» and soon for other popular 
computers Dealer inquiries invited 

The Computer Council 

1B22B Parthenia Street 

Northridge, Cfl 91325 

C213J BBS-Mil 

v* 323 



r- 5« list of AoNenisefs on Page m 
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THE COMPUTER TANDY 
SHOULD HAVE BUILT. 



Software-selectable screen formats 
let you run either 24 x 80 CP/M or 
16 x 32 and 16 x 64 LDOS programs. 



Monitor comes in your 

choice of green or amber 

phosphor display. 



With our built-in disk interfaces, 
you can simply plug in any 
combination of peripherals. 



Standard Centronics-type 

parallel port accommodates 

a wide variety of printers. 




Our 5MHz Z-80B processor 

runs your programs 25% faster 

than TRS-80 Model 4. 



Rugged construction includes heavy 

duty case and full-stroke 

sculptured keyboard. 



Available storage includes Lobo's 

5-1/4" floppy, 8" floppy and 

Winchester hard disks. 



All Lobo hardware products 
carry a limited one-year 
parts and labor warranty. 



AT THE PRICE TANDY 
SHOULD HAVE CHARGED. 



The bottom line is this. For far 
less than the pnce of a TRS-80" 
Mod 4, you can own a lot more 
computer 
A computer that's 25% faster 
That supports both the CP/M" 
Plus and LDOS™ operating 
systems. 

A computer that features a 
price tag of only $945 for the 
MAX -80" processor. And that 
expands with your needs with- 
out breaking your budget. 

A FLEXBLE SYSTEM 
AT A FL£XIIU PRKE 

When you put it all together 
—an entire system, including a 
dual 5-1/4" floppy drive sub- 
system (320 Kb of disk stor- 
age), monitor, CP/M and LDOS 



—totals up to just $1599. 

Totally remarkable. 

But that's not all. Because 
this basic MAX-80 system is 
incredibly flexible. Its dual 
operating systems run far more 
software than any other com- 
puter (Including our specially- 
discounted Perfect-Calc ,M and 
Perfect-Writer'" software 
packages.) 

And since our MAX-80 fea- 
tures two RS-232C senal ports, 
you can easily add both printer 
and modem without switching 
back and forth. 

SUPPORTS A WB€ VARIETY 
OfPEWWERAlS 

What's more, Lobo offers 
almost any peripheral you 



might want to add to your 
MAX-80. At very special prices. 

Like $995 for a 5Mb Win- 
chester hard disk, the ultimate 
in fast, accurate data storage. 

Or a whole lme of affordable 
dot matrix and letter-quality 
pnnters. Or an 8" floppy drive. 
Or even a MAX-80 local area 
network, 

F^WYHECE Of HARDWARE RACKED 
BY OUR U NBEATABL E WARRANTY 

Because every part of the 
MAX-80 system is so rugged 
and reliable, we go beyond 
industry-standard 90 day war- 
ranties. We back every piece 
of Lobo hardware with a full 
year warranty. 

So now, you can run virtually 



all your TRS-80 programs faster 
and cheaper 

Just give us your Visa or 
Master Card number. We'll 
rush you the MAX-80. Try it out. 
Then, if for any reason you 
change your mind, return it with- 
in 30 days. We'll return all your 
money. 

So call us. Because owning 
a MAX-80 costs you $945. But 
finding out about it costs you 
nothing. 

1-800-235-1245 

(1-800-322-6103 in California) 

LOBO 
SYSTEMS, ML 

358 South Fairview Avenue, 
Goleta, California 93117 



-535 



TFS-60 ■ a tigmaitd Itadamarlr of Tandy Corp CP/M »• raguiotod tiadwiMrk of Digital R«««aicn Corp LDOS is ■ Miiurl of Logical Srnems Inc Pertecl Calc and Pwfect-Wrilal ai« nadamaiks cf P«if«ct Soflwa 
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the Soroc terminal should work without 
alteration. The cursor addressing rou- 
tine is the same system used by the 
Osborne accounting packages, Word- 
Star, and Wordmaster. 

If you have 8-inch disk drive capabili- 
ty, Omikron's version of CP/M auto- 
matically supports it, assuming that 
drives A and B are 5 V* -inch, and C and 
D are 8-inch. Since much software is 
sold on 8-inch disks, Omikron provides 
an option that lets you use control/C to 
warm-boot the system and make the 
8-inch drives (physically located at po- 
sitions C and D) the logical drives A 
and B. 

If you have a special drive configura- 
tion, you can use the Options utility to 
preset the system to match your needs. 
The Options program controls other 
factors, including video graphics en- 
able, blinking cursor, printer line count- 
er and line feeds, RS-232 and keyboard 
swapping (lets you use a remote termi- 



nal to control the system), and interrupt 
disable. 

At the moment Omikron CP/M sup- 
ports only 5 Va -inch single- and double- 
density disk drives. As soon as they 
complete their 8-inch double-density 
board, it will support 8-inch single- and 
double-density disk drives. In the mean- 



"... Omikron includes a 

Microsoft Basic disk with 

their CP/M system. . . " 



time, Omikron CP/M reads 17 disk for- 
mats, including Osborne, IBM PC, 
Cromemco, Xerox, DEC, and Super- 
brain. 

To aid the prospective programmer, 
Omikron includes a special utility pro- 
gram that lets you read Model III 
TRSDOS disks, and copy tiles and pro- 



grams from TRSDOS to CP/M. These 
programs might or might not work un- 
der CP/M. 

Machine-language programs that use 
their own input/output (I/O) routines 
won't work under CP/M, since the pe- 
ripherals have all been remapped to new 
locations. Basic programs should work 
with MBasic, unless they have machine- 
language PEEKs and POKEs. 

To help the Basic programmer, Omi- 
kron includes a Microsoft Basic (MBa- 
sic) disk with their CP/M system, so 
you can immediately begin using your 
system to create standard Basic pro- 
grams (most Model III Basic commands 
are used in MBasic). This is important 
since CP/M doesn't include a Basic 
programming system, although some 
versions of CP/M include a public do- 
main version of Basic called EBasic. 

Finally, Omikron supplies a set of 
new CP/M and MBasic manuals that 
are truly superior to any I've seen on 



The CP/M Story 

The birth of CP/M resulted from 
a need for a microcomputer disk op- 
erating system back when micros 
were only the toys of computer hob- 
byists and professionals. A few pio- 
neers in the industry had managed to 
build computer systems that in- 
cluded a CPU, had the capability of 
running a video display, and would 
let you input data and instructions 
from a keyboard. 

Someone had even figured out 
how to connect disk drives to the ma- 
chine and transfer data between the 
two. One programmer, at the request 
of a business friend, took one such 
system and wrote a program that su- 
pervised the operation of the com- 
puter, monitor, keyboard, printer, 
and disk drives. This original DOS 
design was for an 8080 Altair. 

The program was so successful at 
controlling the computer without 
lots of work and attention from the 
user that other people began asking 
for copies. Finally, Digital Research 
Inc. began selling the DOS and it 
rapidly spread across the country. 

It was so popular because it was 
designed to be device independent. 
The CP/M system used set addresses 
for sending and receiving informa- 
tion to and from the various periph- 
erals. A new computer merely had to 
honor those addresses to be compati- 



ble with CP/M and CP/M pro- 
grams. 

Of course, each model computer 
had different peripherals, some with 
wider displays or better keyboards, 
requiring different driver machine- 
code instructions, but CP/M doesn't 
care what the actual driver code 
looks like, only that the driver re- 
sponds to the proper CP/M data ad- 
dress. 

This means that a program written 
on a CP/M computer, as long as it 
honors the CP/M I/O calls, runs on 
almost any other CP/M computer. 
If your computer is from a new com- 
pany, or even if you designed and 
built it yourself, you still have many 
CP/M programs available for it. 
Owners of non-CP/M computers 
have to wait for programmers to buy 
the computers and start writing pro- 
grams for them. 

As the oldest available DOS, 
CP/M has the most programs writ- 
ten for it. In many cases these pro- 
grams are public domain, free for 
you to use and change. This public 
software is often of very high quality. 

Other computer companies mar- 
keted their own DOSes for their 
computers, but CP/M had already 
become a standard. And people 
didn't want to buy a computer with- 
out software support. 

When Tandy released the original 
Model I, they didn't design it to be a 
disk-based computer so they ignored 



CP/M. When Level II came out, it 
too ignored the possibility of CP/M 
because CP/M requires the use of 
low memory for its driver addresses 
and high memory for its own code. 
The Radio Shack uses all low memo- 
ry addresses for itself and high mem- 
ory for programs. 

To allow for both TRS-80 Basic 
and future CP/M expansion would 
have required that Tandy abandon 
their Level I customers or replace the 
entire CPU Level I board when they 
upgraded the machines to Level II. 
They would have to switch RAM 
and ROM, requiring a new circuit 
board layout. The mechanical prob- 
lems of redesigning the computer 
and replacing the units in the field 
were too costly. 

CP/M requires using the low ad- 
dresses of RAM as its tie points to 
the peripherals. The Models I and III 
use the low addresses for other pur- 
poses, making them fundamentally 
incompatible. 

For a while, a doctored version of 
CP/M was available for the Models I 
and III, but it experienced compati- 
bility problems with much of the 
CP/M software. The software ex- 
pected the peripheral connection ad- 
dresses to be in low memory. 

Now several companies have be- 
gun marketing boards that let Model 
I and III owners convert to CP/M 
operation while still maintaining 
compatibility with TRSDOS. ■ 
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CP/M. The CP/M manual is 250 pages 
long in 8- by 1 1-inch format. 

The MBasic manual was written in 5- 
by 7-inch format, but has been repro- 
duced on 8- by 1 1-inch paper, with two 
5- by 7-inch pages on one 8- by 1 1-inch 
piece of paper. It's a little confusing at 
first, but usable. Both manuals are 
typeset and punched for insertion in a 
three-ring binder. 

VID-80 

The Holmes CP/M system is a much 
larger board than the Mapper III, mea- 
suring 8 inches by 1 1 inches (see Photo 
2). As with the Omikron board, you re- 
move the Z80 CPU from the Model III 
and plug it into the Holmes board. 
However, you also remove the charac- 
ter generator ROM, the power supply 
connector, and the video connector 
from the old CPU board, and plug 
them into the Holmes board. 

Then you attach two wires from the 
VID-80 to the Model III with small 
clamps, and plug the Holmes video con- 
troller into the slot on the old CPU 
board. These modifications make it 
possible for the Model III to run 
CP/M, and alter the video to use 80 



characters by 24 lines as the standard 
display. 

In fact, if you are only interested in 
an 80 by 24 display, you can buy the 
VID-80 board alone, and forget CP/M. 
CP/M is not required for the 80 by 24 
display, and you can purchase it sepa- 
rately for $120 extra. 

This new display size has an impor- 
tant implication for CP/M operation: 
Some software on the market requires 
an 80 by 24 display. A display size other 
than that can cause problems when you 
try to use software designed for the 
larger display. Fortunately, much of the 
CP/M software doesn't have a display 
size requirement, so you can use a stan- 
dard 64 by 16 screen display. 

The documentation is a 34-page 
8'/2- by 11 -inch booklet that clearly ex- 
plains every step for dismantling your 
computer, installing the Holmes board, 
and putting everything back together. 
It's not as slickly produced as the Omi- 
kron instructions, but is adequate to the 
task. 

The instructions on CP/M are di- 
vided into two distinct sections. The 
first is part of the installation manual, 
and provides technical information 



about the CP/M board and the Holmes 
CP/M Basic Input/Output System 
(BIOS) information. It also includes 
brief instructions on turning on and us- 
ing your Holmes modified computer 
and an introduction to the CP/M oper- 
ating system. 

The second part of the CP/M in- 
structions is in the form of the Sybex 
book about CP/M by Rodnay Zaks, 
The CP/M Handbook with MP/M. 
Rather than plowing through the CP/M 
2.2 Digital Research manuals, which 
tend to be confusing and hard to read, 
you can study a well-written tutorial on 
the CP/M system, with indexes and ap- 
pendixes to help guide you through it. 

The theory of operation for the 
Holmes board is simple: When you turn 
on the computer or press reset, the 
Holmes board bootstrap ROM checks 
to see if you're holding down the 6 key. 
If you are, the bootstrap ROM relin- 
quishes control to the Model III ROM 
and your computer acts as though it's 
unmodified. 

If you're not holding down the 6 key, 
the bootstrap ROM copies the Model 
III ROM to a 16K bank of RAM on the 
Holmes board, then patches the Model 




•TRS-30 IS A TRADEMARK Of RADIO SHACK, 
A DIVISION OF TANDY CORP. 



TURNING THE PAGE TO A 

NEW ©OgC^COVERY 



niERLIW 

H1HG-B0 

FLOPPY DISK MAGAZINE 

"The Magazine ot the 80's" 



A monthly publication to run on 
your TRS 80* I, III or IV <-;'™ 

• Useful and entertainins programs. 

• Innovative, ready to run Puzzles/Games. 

• Informative, up to date articles. 

• Reviews of latest Games, and programs. 
(These items offered at discounted prices). 

• Articles submitted for publication are welcome. 

First month's subscription $10 

(includes diskette, mailer and return postage) 

Additional months only $5 each. 

Send check, money order or inquines to: 

HBH PUBLISHING, INC. 
DEPT. C, P.O. Box 8470 
BOSSIER CITY, LOUISIANA 71113 - 31fl 
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Ill ROM in RAM to use the new 80 by 
24 display. Every point where the ROM 
would normally jump to the Radio 
Shack video driver changes to use the 
Holmes video driver. 

The locations normally assigned to 
the video RAM (3C00 to 3FFF hex- 
adecimal (hex)) aren't used for video; 
the system ignores them. The new video 
RAM location is the uppermost 2K of 
RAM in your computer (F800 to FFFF 
hex). 

Normally this means that you 
wouldn't have a full 64K of user RAM, 
but the Holmes board uses a bank- 
switching technique to flip the video 
RAM into place when the computer 
wants to access it, and to flip normal 
RAM in place the rest of the time. Thus 
your high memory Model III drivers are 
preserved for your use without altera- 
tion. 

This method works because the Z80 
can do only one thing at a time: When 
it's working on video RAM it can't use 
the high memory drivers or informa- 
tion, and vice versa. This is an interest- 
ing and efficient method of handling 
the video memory problem. 

Unfortunately, by moving the video 
RAM to a new location, any programs 



that bypass the video's device control 
blocks by going directly to video loca- 
tions in the range 3C00 to 3FFF hex 
won't work in the 80 by 24 display 
mode, so you have to remember to set 
the display to 64 by 16 when using those 
programs. 

When you first install the Holmes 
board, you have to adjust the video dis- 

"The CP/M mode 
is quite transparent. ,." 

play circuit board in the Model III to get 
all 24 lines on the screen. This takes only 
a few moments, and it's kind of fun 
watching the letters on the display 
scrunch down and new lines appear 
from the bottom. 

The new 80 by 24 display requires 
that the individual characters be small- 
er, in order for all of them to fit on the 
screen. That's a small price to pay for 
almost doubling (from 1,024 to 1,920) 
the amount of information on your 
screen— an 80 percent increase. 

Another disadvantage is the appear- 
ance of snow on the video whenever you 
update the display, much like the snow 



on a normal Model III during high- 
speed display access (usually apparent 
during machine-language games). For- 
tunately, Holmes Engineering has a 
modification that makes the display 
clear and precise. Newer boards come 
with the modification. 

This approach, moving ROM to 
RAM and modifying it to use the 80 by 
24 display, lets you use almost any 
Model III DOS with the 80 by 24 dis- 
play. For example, TRSDOS works 
quite well in the 80 by 24 mode, with on- 
ly the DIR command requiring a patch 
[PATCH *6 (ADD = 5AFA,FIND = 
3F,CHG = OF)l to operate correctly in 
both display modes. Similarly DOS- 
PLUS 3.4, 3.5, and 4.x, NEWDOS80, 
LDOS, and MULTIDOS work with lit- 
tle or no alterations in both modes. 
They require no special software 
drivers. 

One other feature, reverse video, is 
accessible from either Model III mode 
or CP/M mode. 

The CP/M mode is quite transparent 
to the operator. Memory management 
on the Model III in CP/M mode gives 
you 62K of RAM (the other 2K is for 
disk I/O buffers and other miscellane- 
ous data involved with the disk drives). 
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Micro-Designs System-Upgrade 
for the TRS Model III and 4 



The Micro-Design TRS-80 upgrade Includes Micro-Design's exceptional MDX-6 disk 
controller board, one 40 Track Disk Drive, necessary installation cables and hard- 
ware. Will also control external 8" Disk Drive Systems. Q 
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The Holmes board uses a 4K 
EPROM for keyboard, video, and 
printer I/O. This EPROM is bank 
switched in and out of position in low 
memory as needed by the BIOS. 

The Holmes board lets you read and 
write to disks formatted by the IBM 
PC, Kaypro II, Xerox 820, Xerox 
820-11, Osborne-I, Zenith Z-100, Free- 
dom Technology (Model III CP/M sys- 
tem), Memory Merchant Shuffleboard 
III (Model III CP/M), Omikron (Mod- 
el I CP/M), and Morrow Micro-Deci- 
sion. 

If your computer has 8-inch disk 
drive capability, Holmes CP/M lets you 
use the 8-inch drives without patching. 
Eight-inch drive support includes the 
ability to read and write to disks for- 
matted in IBM 3740 single density, Xe- 
rox 820 single density, and Xerox 820-11 
double density. 

The Holmes board is available in two 
versions. The first, and cheaper, version 
has a 16K bank of RAM and uses the 
Model Ill's 48K RAM for the rest of the 
RAM it needs. The other version comes 
with 64K of on-board RAM and 
doesn't use the Model III RAM except 
as a RAM disk accessible from CP/M 



for extremely fast data storage and re- 
trieval. 

When I wrote this review, no known 
incompatibilities existed between 
Holmes CP/M and other CP/M soft- 
ware. You can even run UCSD Pascal 
with the Holmes board. 

Shuffleboard IH 

The Shuffleboard III (see Photo 3), a 
64K CP/M 2.2 system, is as easy as the 
others to install. The only difference is 
that you remove one of the Model III 
memory chips, U25, and replace it with 
a 16-pin plug attached to the Shuffle- 
board unit. After installing the board, 
you put your TRSDOS disk or your 
CP/M disk in drive zero and press reset. 
Level II Basic is still available, of 
course. 

Like Omikron, Memory Merchant 
has provided MBasic for Basic pro- 
grammers. You can also purchase an 80 
by 24 video board separately for $275. 

Actually, you have several hardware 
options with the Shuffleboard: If you 
want to, you can move a jumper on the 
board from its "Automatic boot from 
drive zero" position to another. This 
clears the screen and asks you which 



drive contains the system disk (press ze- 
ro for drive zero, one for drive 1, and 
so on). 

Another board option lets you select 
operation of either a 2716 ROM, or 
2732 or 2764 ROMs. The manual 
doesn't discuss this option, so it's prob- 
ably being reserved for future develop- 
ments and enhancements. 

A unique feature of Shuffleboard is 
the ability to switch between CP/M and 
TRSDOS using the appropriate com- 
mand. If you're in TRSDOS and want 
to go to CP/M, enter the DOS com- 
mand CPM. From the CP/M prompt, 
enter DOS. These are memory erasing 
changes: Anything in memory is zeroed 
out, so you can't transfer between the 
two operating systems and maintain in- 
memory data integrity. 

In its present form, Shuffleboard 
CP/M is compatible with 35-, 40-, 77-, 
and 80-track 5 V* -inch disk drives. With 
the addition of the Memory Merchant 
disk controller, you can use 8-inch disk 
drives. 

As with the Omikron board, you can 
use your Model III as a slave to a re- 
mote terminal, using the remote termi- 
nal for input instead of the keyboard. 




UIE mAKE A GREAT CASE 
FOR YOUR RADIO SHACK. 



RS204 



One size does not fit all. Our cases are designed for specific hardware con- 
figurations. When you put your computer in our case, it fits hand-in-glove. 
Once your equipment is safety inside the attache-style carrying case, it never 
has to be taken out again. To operate, simply remove the lid and connect the 
power. To store your computer, disconnect the power, enclose your disks, 
working papers, and manuals in the compartments provided, and attach 
the lid. It's as easy as that. 



RS201 

RS204 

AP106 

P401 

P402 

P403 

P404 
P405 
P406 
P407 
P408 
P409 

P410 
IB501 
IBS02 
CC50 
CC80 
CC90 
CC91 

CC92 



CALL TOLL FREE: (800) 848-7548 

Model I with expansion unit and drives $109 



Model III or IV 



129 



Amdek Color I, II or III Monitor 119 

Paper Tiger Printer (400/4457460) 99 

Centronics 730/737 

& RadioShack Printer 89 

Epson MX70 or MX80, Mlcroline 

82A Printer or Color Computer 89 

Epson MX100 Printer 99 

IDS 560 or Prism 132 Printer 109 

C. ItohStarwriter/Printmaster F-10 Printer 119 

Okldata Microline83A or 84 Printer 99 

C. Itoh Prowrlter 2 Printer 99 

C. Itoh Prowriter (Apple Dot Matrix) 

or NEC PC8023 Printer 89 

Epson FX80 Printer 109 

IBM Personal Computer with Keyboard 129 



IBM Monochrome Monitor 

Case Cart 

Matching Attache Case (5") 

Matching Attache Case (3 ") 

Matching Accessories Case 

(5V4" Diskettes, Paper, etc.) 

5.25" Diskette Case (Holds 75 Diskettes) 



99 
79 
85 
75 

95 
49 



Computer Case Company, 5650 Indian Mound Court, Columbus, Ohio 43213 (614) 868-9464 
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Tired of swapping Disks from Inventory to Accounts Receivable 
to Accounts Payable etc.? Now, one system does it all. 

Introducing 

The M.B.S. 
Business Management System 

At last a completely Integrated, Menu driven System for: 



INVOICING 

Opens Customer Files 
Opens A/R Accounts 
Updates Inventory 
Stores Mail List Files 
Stores Sales Records 
Computes Sales Tax 

CUSTOMER FILES 

Maintains Order Status 
Prints Labels 

Prints Customer Balances 
Stores Order Amounts 
Stores Order Payments 
Prints Statements 



MAIL LABELS 

Stores by Variable File Names 
Sorts by Zip Code 
Sorts by Name 

INVENTORY 

Sets Upper and Lower Limits 
Generates Purchase Orders 
Lists Inventory by Vendor 

ACCOUNTS RECEIVABLE 

Open A/R Accounts 
Generates Monthly Statements 
Interest and Non-Interest Accounts 
Listing of Accounts Balances 
Manually Enter Charges and Payments 



ACCOUNTS PAYABLE 

Enter Charges to Accounts 
Enter Payments to Accounts 
List Payable Balances 

• CHECK WRITING 

Print or Record Checks 
Maintains Bank Balance 
Credit Accounts Payable 
Stores Expense Totals 

FINANCIAL STATEMENTS 

Prints Sales Reports 

Prints Operating Statements 

Prints Receipts Reports 

Modifies Expense and Sales Totals 



Yes, now there is a complete business system for the small business man. With our Business Management System, you can increase sales with our mail label function. 
Complete your Schedule C in as little as 15 minutes Know what your business is doing, ond maintain other important business functions. 

This easy to use system comes complete with instruction manual, ond diskette on Dosplus mini TDOS operating system with extended Basic, and one year support. All 
programs are in Basic, ond require two disk drives and 48K RAM If you have waited for the right business software for your business, your wait is over. Our current 
users love our system and you will too. 



Special Introductory Price $249. 95 



GAMEMASTER 

Do you get complaints from your spouse, family ond friends that you isolate yourself from them while "playing'' with your computer? Do you wish there was o game 
that could get everyone involved? Do you enjoy creative expressions as well as playing gomes? If so, we have a unique Program; Gome wich could be the answer. It's 
called GAMEMASTER. 

This program lets you easily develop and play your own adventure games. It does not create a game which you play against the computer, but creates a game which 
you the game creator, direct the game play while your computer maintains the game conditions ond resolves combat. 

GAMEMASTER package includes routines for creating player characters, creatures, items (weapons, armour, implements, or treasures), and environment (time, 
location etc.). Comes on diskette with sample scenerio. Requires one disk drive and 48k ram. 

Price $ 39.* 5 



Specify Model I, Model III, Model IV, or LNW 
Dealer Inquiries Invited 



PRINTERS 

Prowriter S 379 

Prowriter2 S 699 

StarwriterFlO S 1299 

Okidata82A $ 409 

Okidata83A $ 649 

Okidata92 $ 509 

Okldata93 $ 899 

SilverReed $ 499 

Mannesman n Tally Call 

NEC Call 

Transtar Call 



PERIPHERALS 

Hayes Smart modem $219 

Hayes300/1200 $539 

Holmes VID80 $259 

Holmes CPM 2.2 $109 

64KRam $114 

Holmes DX3DC $157 

Holmes DX4DC $157 

Holmes High Speed Ram ..$29 

Holmes Sprinter I $ 89 

Holmes Sprinter III $ 89 

Holmes Sprinter KX $ 129 

Diskettes Call 



LN.W. 

LNW80II $1495 

LNDoubler w/DOS $ 199 

System Expansion $ 399 

MONITORS 

Amdek300G $ 149 

Amdek300A $ 159 

AmdekColorl $ 339 

Amdek Color II $ 469 

Taxan Amber $ 149 

Taxan Green $ 139 

TaxanRGBI $ 319 

Taxan RGB III $ 599 



SOFTWARE 

DOSPLUS 3.5 $119 

DOSPLUS IV $119 

MTERM $ 69 

TRSDOS6.0 Plus Enhance $ 45 

Super Utility Plus $ 69 

Newscript 7.1 $ 99 

Newscript w/labels $ 109 

FlleConverter $ 20 

Trashman $ 35 

Faster $ 27 

Tallymaster $ 69 

Electric Webster $ 129 



vO c0«f*,. 



CT1BS 



tf 



* See Ust of Advertisers on Page 291 



Microcomputer Business Systems 

14030 South Springfield Road 
Brandy wine, Maryland 20613 
1-800-638-1857 
in Maryland 1 (301) 372-8555 — Washington, D.C. Local Call 
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And unlike the other two CP/M sys- 
tems, Shuffleboard includes the Auto 
command as a valid command, which 
operates just like the TRSDOS Auto 
command. The length of the command 
is limited to one screen line (64 charac- 
ters). 

Memory Merchant CP/M is config- 
ured to expect the CP/M drive A to be 
the physical drive zero, drive B to be 
drive 1 , drive C to be drive 2, drive D to 
be drive 3, and drive E to be nonexis- 
tent. Drive E invokes a special Memory 
Merchant CP/M utility called a virtual 
drive. You also have drives F-I avail- 
able as single-density drives. 

The first two logical drives (A and B) 
are 5 V* -inch, 40-track, double-density 
drives. The third drive is configured as 
an 8-inch, 77-track, double-density 
drive. You can reorganize the CP/M 
drive map to match any setup you have, 
including using physical drive 4 as the 
boot-up drive, logical drive A. You do 
all this by using a disk drive map that 
lets you match any of the logical drive 
parameters to the physical drives. 

Now for the virtual drive. Memory 
Merchant has altered CP/M so you can 
logically change a disk drive assignment 
while running CP/M, a procedure not 
allowed with the other CP/M systems. 
This virtual drive capability means that 
you can make single-drive copies. 

If you have two 5 Va -inch drives and 
one 8-inch drive, you can use the virtual 
drive assignment to copy a file from one 
8-inch disk to another. Otherwise, 
you'd have to copy the file to a 5 Va -inch 
disk, change disks in the 8-inch drive, 
invoke a warm-boot on that drive, then 



copy the file from the 5 Va -inch drive to 
the new 8-inch disk. 

This virtual assignment capability is 
reflected in the use of logical drives F-I. 
Physical drives 1-3 are given two logical 
drive numbers, B-D and F-H. Drive 1 
is both logical drive B and logical drive 
F. The difference is that drive B is a 
double-density drive and drive F is a sin- 
gle-density drive. 

You can copy files from or to a sin- 
gle-density disk without going to the 
disk drive assignment table and chang- 
ing one of the drives to be logically sin- 



"All three boards 
are easy to install. " 



gle-density. To let you copy files be- 
tween single density and double density 
on the same drive, logical drive I is used, 
just as logical drive E is used for single- 
drive, double-density file copying. 

Speaking of copying, the Shuffle- 
board can read and write to Osborne 1, 
Xerox 820, and IBM PC formatted 
disks. 

Three manuals come with the Shuf- 
fleboard III. The user's manual is a 
77-page, 8- by 11-inch printed booklet 
that covers all phases of board installa- 
tion and CP/M use. The second manual 
is a bound edition of the new Digital Re- 
search documentation on CP/M. 

The last manual is the Microsoft 
MBasic" instruction book. Unlike the 
previous DR1 manuals, these books are 
well written and easy to understand. 



Both books top 250 pages in length. 

Summary 

All three boards are easy to install 
with only screwdrivers and a nail file. If 
you follow the instructions carefully, 
you should have no problems with the 
installation. 

One disadvantage shared by all three 
boards is that they make it difficult for 
the CPU RFI shield to fit properly. The 
clearance between the RFI shield and 
the CPU board is almost, but not quite, 
enough room for the new piggy-back 
boards. On my Model III, I could only 
get the screws on the left side (looking at 
the CPU board from the rear of the 
computer) to go into place. 

Putting the top and right side screws 
in place put a good deal of stress on the 
two boards, and actually forced the RFI 
shield to bulge. However, the three 
screws I used easily keep the shield in 
place, and should maintain the cage de- 
sign of the Model III. 

At present, the Holmes board has the 
largest base of CP/M disk formats that 
it can read and write, but the others are 
rapidly catching up. And all three com- 
panies offer excellent customer support, 
with customer hotline phone numbers. 

As you can see, the final decision on 
which board is best depends on your 
needs. As a purely personal response, 
the Holmes Engineering board is my fa- 
vorite; it seems to offer the most for my 
needs. ■ 



Contact Terry Kepner c/o 80 Micro, 80 
Pine St., Peterborough, NH 03458. 




Sure 
Ws insured? 

SAFEWARE™ Insurance provides full 
replacement of hardware, media and 

purchased software. As little as $35/yr covers: 
• Fire • Theft • Power Surges 

• Earthquake • Water Damage • Auto Accident 

For information or immediate coverage call: 

1-800-848-3469 

(In Ohio call 1-8O0-84H-2U2) 

COI.I MBIA SATIOSAI GENERAL AGKNCY 



ITS HERE! 



CMON is a machine language monitor progiam 
Usmg single letter commands, the user program can be 
executed under lull control ol CMON This gives the 
programmer the option to see the program as each 
instruction is executed making CMON invaluable lor 
finding those mconspicious. and sometimes latal little 
gremlins haunting your software CMON is easy to 
use and will quickly earn a place in your software 
library 

FEATURES STANDARD MONITOR COMMANDS + USER 
PROGRAM EXECUTION WITH REGISTER OISPLAY RAM 
ROM BREAKPOINTS READ — WRITE OBJECT FILES TO 
DISK. DISPLAY TO CRT OR PRINTER AND MORE 

AVAILABLE ON NON-SYSTEM DISK OR CASSETTE 
SPECIFY MEDIA TYPE AND Ml OR M3 FORMAT 
i Cassette version coming soom 

COST ISS?3 00 ppd M0NLY0R0ER0RCASHIERS 
CHECK. NO PERSONAL CHECKS PLEASE SEND 
SI 00 FOR SAMPLE PRINTOUTS AND COMMANDS 
SUMMARY DEDUCTABll WUH ORDER 

Please send payment or inquiries to 

THREE STATE DATA 

144S3 TURIN LANE 
CENTREVIUE VA ??0?0 ' 72 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1, 3 or 4, Level 2 or DOS 
with a minimum of 16K. 



JsL 

I 



48BBOC 

For Modal 3 or A 

Operation 488 SOB 

For Model 1 
Operition 



\JEL 



Model 488-80B or 488-80C Price: $375 

+ shipping, insurance A rax 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage. NY 11804 

Telephone: (516) 694-3370 
* Trademark of Tandy Corp 
There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp or 
Radio Shack. 
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every month. 

ALL THE NEWS YOU NEED FOR THE 80'S 



80 Micro is news. News like our in-depth coverage of 
Tandy's Model 100 debut in Boston and its impact on the 
market. News like U.S. Senator Paul Tsongas* speech on 
Asian competition and the importance of innovation. News 
like what's happening at Texas Instruments and why. You'll 
agree that 80*s "NEWS THIS MONTH" column is the news 
you need to stay informed. 

80 is also a practical journal. It gives you the information 
you need to expand your TRS-80 computing potential. Infor- 
mation like: 

• New product reviews— save valuable time getting the facts 
and figures on the latest equipment releases. 

• Hardware modifications— upgrade your computer and 
become more familiar with its functions while you save 
money and increase its value. 

• Debugging techniques— 80 Micro saves time with expert 
solutions to common and uncommon problems. 

• User-application programs— written by readers like you 
who need programs to maximize the productivity of their 
machines. 

And 80 Micro doesn't stop there. Every month, from 
cover to cover, you'll get top rate REVIEWS: whether you're 
buying or just looking, 80 keeps you informed on what 
state-of-the-art can do for you. 



If you want to get ahead with your TRS-80, get 80 Micro, 
the news source of the 80's. 



YES! Give me the news I need to put me 
ahead and help me stay there. Send me 12 
issues of 80 Micro for $24.97. 



□ MC 

Card* 

Signature 

Name 

Address _ 

City 

Zip 



□ VISA □ AE 



D CHECK/MO □ BILL ME 
Exp. Date 



State 



Canada and Mexico $27.97. 1 year only. 
US funds drawn on US bank. 
Foreign surface $44.97. 1 year only. 
US funds drawn on US bank. 

Please allow 6-8 weeks for delivery. 

•TRS-80 is a trademark of Radio Shack, 
a division of Tandy Corp. 33DP8 

80 Micro • PO Box 981 • Farmingdale, NY 11737 
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UTILITY 



Protected Tape Programs 



by Dan Robinson 



This pair of short routines safeguards 
your cassette pr ograms against predators. 

ProteK (with a K; see Program List- 
ing 1) makes your system tape auto- 
start so spies can't jump into a monitor 
program. It adds a leader to your tape 
which befuddles copy programs tike the 
RSM series or LMOFFSET by sending 
a false checksum. A double delay loop 
foils other copy cats that swallow pro- 
grams until they think they've devoured 
the last byte. 

The program includes pitfalls for 



Protect your tape pro- 
grams from predators 
with these two routines 
that prohibit copying. 



those who load a monitor first and 
count on getting to your programs fol- 
lowing a reboot: The entry points for 
TBUG, DEBUG, and RSM2 16K, 32K, 









Program Listing I. ProteK routine. 






00100 


; PROTEK 


2.0— 


-CASSETTE SYSTEM TAPES ONLY 


41E2 




00110 




ORG 


41E2H ; SYSTEM RELAY FOR AUTO START 


41E2 


E9 


00120 




DEFB 


mi 


7E00 




00130 




ORG 


7E00H j PROTEK 


7E00 




00140 


START 


EQU 


S 


7E00 


CDC901 


00150 




CALL 


01C9H .-CLEAR SCREEN 


7E03 


21797F 


00168 




LD 


HL.MSG1 j DISPLAY PGM NAME PROMPT 


7E06 


CDA728 


00170 




CALL 


28A7H 


7E09 


3E0D 


08188 




LD 


A.0DH 


7E0B 


CD3A03 


00190 




CALL 


03 3 AH 


7E0E 


2AA740 


08280 




LO 


HL,(40A7H) 


7EH 


061S 


00210 




LD 


B,21 


7E13 


CDD905 


00220 




CALL 


05D9H ; INPUT NAME & ADDRESSES 


7E16 


116D7F 


00230 




LD 


DE.NAME 


7E19 


7E 


00240 


NAHE1 


LD 


A, (HL) 


7E1A 


FE2F 


00250 




CP 


2FH j "/" 


7EIC 


2805 


00260 




JR 


Z.NAME2 


7E1E 


12 


08270 




LD 


(DE) ,A 


7E1F 


23 


88288 




INC 


HL 


7E20 


13 


08290 




INC 


DE 


7E21 


1BF6 


88308 




JR 


NAME1 


7E23 


CD1D7F 


00310 


NAME2 


CALL 


HEX 


7E26 


32747F 


00320 




LD 


(STADR+1) ,A 


7E29 


CD1D7F 


00330 




CALL 


HEX 


7E2C 


32737F 


00340 




LD 


(ST ADR) ,A 


7E2F 


23 


00350 




INC 


HL 


7E38 


CD1D7F 


00360 




CALL 


HEX 


7E33 


32767F 


00378 




LD 


(ENDADR+1) ,A 


7E36 


CD107F 


003 80 




CALL 


HEX 


7E39 


32757F 


00390 




LD 


(ENDADR) ,A 


7E3C 


23 


80488 




INC 


HL 


7E3D 


CD1D7F 


00410 




CALL 


HEX 


7E40 


32787F 


00420 




LD 


(TRPADR+1) ,A 


7E43 


CD1D7F 


80430 




CALL 


HEX 


7E46 


32777F 


00440 




LD 


(TRFADR) , A 


7E49 


3E0D 


00450 




LD 


A,0DH 


7E4B 


CD3A03 


00460 




CALL 


033AH 


7E4E 


21AA7F 


00470 




LD 


HL.MSG2 ; DISPLAY PREPARE RECORDER 


7E51 


CDA728 


00480 




CALL 


28A7H 


7E54 


010000 


00490 




LD 


BC.0000 


7E57 


CD6000 


00500 




CALL 


0060H 


7ESA 


B7 


00510 




OR 


A 


7E5B 


3A4038 


00520 


READY 


LD 


A,(3840H) ; CHECK KEYBOARD FOR < ENTER > 


7E5E 


FE01 


00530 




CP 


01H 


7E60 


2807 


00540 




JR 


Z,REC 


7E62 


FE04 


00550 




CP 


04 .-CHECK KEYBOARD FOR <BREAK> 


7E64 


CAB 07 E 


00560 




JP 


Z, START j RETURN TO BASIC 

Listing 1 continued 



and 48K will take them back to the 
MEMORY SIZE? prompt. 

ProteC (with a C; see Program List- 
ing 2) converts your Bask program into 
a system tape with an auto-start feature 
and the same booby traps as its com- 
panion program. Furthermore, the pro- 
gram turns the trace off (TROFF) and 
disables the break key so that no one 
can list your program to the screen or a 
printer. 

Instructions 

To safeguard a Bask program, you 
can load ProteC either before or after 
your Basic file. As it completes its load, 
ProteC displays detailed instructions on 
the screen. The program then returns to 
the Bask READY prompt, and you're 
set to go. 

ProteK does not list the instructions 
to the screen; you load it in series after 
the system program you wish to encode. 
When you load ProteK, it automatical- 
ly boots up, asking for the name of the 
new system tape and the hexadecimal 
start/end/transfer address. The pro- 
gram prompts you to prepare the tape 
recorder, and then writes your encoded 
program. 

Both ProteC and ProteK change some 
pointers and addresses, so once you've 
encoded your program it's wise to reset 
yourTRS-80.B 

Contact Dan Robinson at 1625 Hig- 
gins Way, Pactfka, CA 94044. 
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Listing 1 continued 












7E67 


18F2 


00570 




JR 


READY 




7E69 


F3 


00580 


REC 


DI 






7E6A 


3E2A 


00590 




LD 


A, 2 AH 




7E6C 


323E3C 


006BB 




LD 


(3C3EH) , 


A j STAR 


7E6P 


3E00 


0B61B 




LD 


A,0 




7E71 


CD1202 


BB620 




CALL 


0212H 


INITIALIZE RECORDER »1 


7E74 


CD87 02 


0063B 




CALL 


0287H 


WRITE LEADER t SYNC BYTE 


7E77 


3ES5 


B0640 




LD 


A,55H 


; SYSTEM TAPE ID 


7E79 


CD6402 


0065B 




CALL 


026 4H 


(WRITE BYTE 


7E7C 


116D7F 


00660 




LD 


DE.NAME 




7E7P 


0606 


00670 




LD 


B,6 




7E81 


1A 


00680 


WRTNAM 


LD 


A, (DE) 




7E82 


CD6402 


0B6 9B 




CALL 


026 4H 




7E85 


13 


00700 




INC 


DE 




7E86 


10F9 


B0710 




DJNZ 


WRTNAM 


WRITE NAME 


7E88 


3E3C 


00720 




LD 


A,3CH 


DISABLE LMOFFSET 


7E8A 


CD6402 


00730 




CALL 


0264H 




7E8D 


3E01 


0B740 




LD 


A,l 




7E8F 


CO6402 


00750 




CALL 


126 48 




7E92 


3E00 


00760 




LD 


A,00H 




7E94 


CD6402 


00770 




CALL 


0264H 




7E97 


3E00 


00780 




LD 


A,00H 




7E99 


CD6402 


00790 




CALL 


0264H 




7E9C 


3E00 


00800 




LD 


A,0 




7E9E 


CD6402 


08810 




CALL 


0264H 




7EA1 


CD6402 


00820 




CALL 


0264H 


OUTPUT FALSE CHECKSUM 


7EA4 


213E3C 


00830 




LD 


HL,3C3EH 




7EA7 


DD21E07F 


03840 




LD 


IX, STAR 




7EAB 


CD417F 


OB850 




CALL 


SET 




7EAE 


010000 


00860 




LD 


BC.0000 


DEFEAT TIMERS 


7EB1 


CD6000 


00870 




CALL 


0060H 




7EB4 


CD6000 


93880 




CALL 


0060H 




7EB7 


21A043 


00890 




LD 


HL.43ABH 


; TBUG 


7EBA 


CD3D7F 


0090B 




CALL 


BLOCK 




7EBD 


21807F 


00910 




LD 


HL.7F80H 


;RSM2 fc 2D 16K 


7ECB 


CD3D7F 


00920 




CALL 


BLOCK 




7EC3 


2180BF 


00930 




LD 


HL.0BF80H :RSH2D 32K 


7EC6 


CD3D7F 


BB940 




CALL 


BLOCK 




7EC9 


2180FF 


00950 




LD 


HL.0FF80H ;RSH2D 48K 


7ECC 


CD3D7P 


00960 




CALL 


BLOCK 




7ECF 


210F40 


00970 




LD 


HL.400FH 


; DEBUG 


7ED2 


CD3D7F 


00980 




CALL 


BLOCK 








00990 


;AOD BLOCKING 


ROUTINES HERE — LD HL,ADDR CALL BLOCK 


7ED5 


2A757F 


01000 




LD 


HL, (END ADR) 


7 EDS 


ED5B737F 


01010 




LD 


DE,(STADR) 


7EDC 


B7 


01020 




OR 


A 




7EDD 


ED52 


01030 




SBC 


HL,DE 




7EDF 


EB 


01040 




EX 


DE,HL 




7EE0 


ES 


01050 




PUSH 


HL 




7EE1 


DDE1 


01060 




POP 


IX 




7EE3 


7A 


01070 




LD 


A,D 




7EE4 


FE00 


01080 




CP 







7EE6 


28B8 


01090 




JR 


Z,WRT2 




7EE8 


B6B0 


01100 


WRT1 


LD 


B,0 




7EEA 


CD437F 


01110 




CALL 


PUNCH 




7EED 


15 


01120 




DEC 


D 




7EEE 


20F8 


01130 




JR 


NZ,WRT1 




7EF0 


7B 


01140 


WRT2 


LD 


A,E 




7EF1 


PE00 


01150 




CP 







7EF3 


CAFA7E 


01160 




JP 


Z,WRT3 




7EF6 


43 


01170 




LD 


B,E 




7EF7 


CD437F 


01180 




CALL 


PUNCH 




7EFA 


0601 


01190 


WRT3 


LD 


B,l 




7EFC 


DD216C7P 


01200 




LD 


IX,LIST 




7FI0 


21E241 


01210 




LD 


HL,41E2H 


; SYSTEM/ AUTO- START RELAY 


7FB3 


CD437F 


01220 




CALL 


PUNCH 




7FB6 


ED5B777F 


01230 




LD 


DE.(TRFADR) 


7FBA 


3E78 


01240 




LD 


A,78H 


; TRANSFER BLOCK 


7FBC 


CD6402 


01250 




CALL 


026 4H 




7FBF 


7B 


01260 




LD 


A,E 




7F10 


CD64B2 


01270 




CALL 


0264H 




7F13 


7A 


01280 




LD 


A,D 




7F14 


CD6402 


01290 




CALL 


0264H 




7F17 


CDF801 


01300 




CALL 


01F8H 


;TURN OFF RECORDER 


7F1A 


C3007E 


01310 




JP 


START 




7F1D 


23 


01320 


HEX 


INC 


HL 


; ASCI I TO HEX 


7F1E 


7E 


01330 




LD 


A,(HL) 




7F1F 


D630 


01340 




SUB 


30H 




7F21 


FE0A 


01350 




CP 


10 




7F23 


F43A7F 


01360 




CALL 


P.ADJ 




7F26 


CB27 


01370 




SLA 


A 




7F28 


CB27 


01380 




SLA 


A 




7F2A 


CB27 


01390 




SLA 


A 




7P2C 


CB27 


01400 




SLA 


A 




7P2E 


47 


01410 




LD 


B,A 




7F2F 


23 


01420 




INC 


HL 




7F3B 


7E 


01430 




LD 


A,(HL) 




7F31 


D630 


01440 




SUB 


30H 




7F33 


FE0A 


01450 




CP 


10 




7F35 


P43A7P 


01460 




CALL 


P,ADJ 




7F38 


80 


01470 




ADD 


A,B 




7F39 


C9 


01480 




RET 






7F3A 


D607 


01490 


ADJ 


SUB 


7 




7F3C 


C9 


01500 




RET 






7F3D 


DD216B7F 


01510 


BLOCK 


LD 


IX, RESET 




7F41 


0601 


01520 


SET 


LD 


B,l 




7F43 


3E3C 


01530 


PUNCH 


LD 


A,3CH 


BLOCK SYNC 


7F45 


CD6402 


01540 




CALL 


0264H 


WRITE BYTE 


7F48 


7« 


01550 




LD 


A,B 


BYTE COUNT 


7F49 


CD6402 


01560 




CALL 


0264H 




7F4C 


7D 


01570 




LD 


A,L 


LSB ADDRESS 


7F4D 


CD6402 


01580 




CALL 


0264H 




7F50 


4F 


01590 




LD 


C,A 


SAVE FOR CHECKSUM 


7F51 


7C 


01600 




LD 


A,H 


MSB ADDRESS 


7F52 


CD6402 


01610 




CALL 


0264H 




7F55 


81 


01620 




ADD 


A,C 




7F56 


4F 


01630 




LD 


C,A 


Listing 1 continued 



SYSTEM DIAGNOSTIC 

Complete diagnostic tests for every compo- 
nent of your TRS-80" Model 1, 3 or 4. Tests for 
ROM. RAM. Video Display, Keyboard, Line Print- 
er, Cassette Recorder, Disk Drives, RS-232-C Inter- 
face Individual tests or continuous testing mode. 
System Diagnostic $99.95 

TYPITALL 

TheSCRIPSlT" Compatible Word Processor 
TYPITALL is a word processing program which 
is upward compatible with SCRIPSIT" for the 
TRS-80" Models 1 , 3 and 4. TYPITALL includes 
features like these: Assign any sequence of key- 
strokes to a single control key. See the formatted 
text on the screen before printing. Send the for- 
matted text to a disk file for later printing. Merge 
data from a disk file during printing. Send ANY 
control or graphic character to the printer. Use 
the same version on the Model 1 or Model 3. 
Reenter the program with all text intact if you 
accidentally exit without saving the text. 
TYPITALL (disk only) $129.95 

TRS-80 W MODEL III 
ASSEMBLY LANGUAGE 

A complete course in assembly language, 
written for the beginner. Basic concepts, the Z- 
80 instruction set. complete Model III ROM and 
RAM information, programming examples, the 
disk controller, the TRSDOS 1.3 disk operating 
system, RS-232-C interface. 

With the book you can also purchase Mon- 
itor #5, a comprehensive machine language 
monitor (specify Model 1 or 3). 

Book only $16.95 

Book and Monitor #5 on disk $29.95 

SMART TERMINAL 

The intelligent terminal program, with auto- 
matic transmission and storage of data, true 
BREAK key, character translations, cassette and 
disk files compatible with SCRIPSIT" and Elec- 
tric Pencil". Same program supports both cas- 
sette and disk systems. 

Model 1, 3 or 4 $74.95 

Model 2/12/16 (CP/M) Version $79.95 

SMALL BUSINESS 
ACCOUNTING 

Based on Dome Bookkeeping Record #612, 
this program keeps track of income, expenses, 
and payroll (not in cassette version) for a small 
business. 

Model 1/3/4 disk version $59.95 

Model 1/3/4 cassette version $29.95 

Model 2/12/16 or IBM/PC version .... $69.95 

SMALL BUSINESS 
MANAGEMENT SYSTEM 

An integrated package that manages order 
entry, invoicing, general ledger, accounts re- 
ceivable, and inventory for a small business. 
Installation package tailors the programs to 
your business. Requires minimum 2 floppy disk 
drives or hard disk, 80-column printer. Available 
for TRS-80* Models 1/3/4, 2/12/16, IBM/PC, 
Osborne I, Kaypro II, and many other CP/M 
computers. 
AB versions $250.00 



24-hour TOLL-FREE Order Number 

Outside California call: 

(800) 428-7825, ext. 169 

Inside California call: 

(800) 428-7824, ext. 169 



Visa, Master Card, or COD orders only. 
Add $3.00 postage & handling. 
New York residents add sales tax. 

Howe Software 

14 Lexington Rd., New City, NY 10956 

•TRS-80" is a trademark of Tandy Corp. 
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CREATE: f oru . l»b«ll and form letters. 



This machine code word processor c»n 
•van ADD/SUBTRACT bookkeeping column 

Change, delete, add, insert, stove, copy 
(characters/lines/blocks) of text fast. 

SELECT: margins, page length, number of 
copies, tabs, center lines / page, line 
spacing and LEGAL PAPER LINE NUMBERING. 

MODEL I users get: Model III shift key 
controlled upper / lower case letters!! 

EASIER to USE than other systems . Only 
i keys control 96% of the LW features!! 

TRY a IM for 3 MONTHS. If not satisf- 

ied return it. He will refund all but 
$3.50 to cover postage / handling. IF 
YOU CAN NOT RETURN IT, DO NOT BUY IT. 

C. A. of N. Y. rates his LW purchase as 
"one of the best buys I have Bade. "I 



TAPE 16K Model I/III systems $23.99 
DISK 32K Model I/III systems $37 99 



WE PAY: t ax / US postage on all orders. 
%/BESa Cspecials^ ' T* .,-. 



Verbatim MD525 01 disks: 
Microsette CIO tape*box: 



10 for $25.95 
20 for $13.95 



Aal/tt-Ataf £ Atarax AaM 

5905 Stone Hill Dr. 
Rocklin, CA 95677 



Computer Phone 
(916) 624-3709, 



YOUR TRS-80* 

SPECIALISTS 

IN CANADA 

HACKER'S PARADISE 

7YT 




nimcf $ twain 



SOFTWARE FROM 

ADVENTURE INTERNATIONAL 

APPARAT INC. 

BIG FIVE 

CORNSOFT 

MED SYSTEMS 

FANTASTIC SOFTWARE 

INFOCOM 

AND MORE 

EPSON PRINTERS 

DISK DRIVES 

BOOKS 

MODEL I LOWER CASE MOD 

WRITE OR PHONE FOR A FREE CATALOGUE 

CMD MICRO 

10447 - 124 STREET " 1 » 1 

EDMONTON. ALBERTA 

T5N 1R7 
PHONE 403- 488-7109 

VISA & MASTERCARD ACCEPTED 
•TRS-80 IS A TRADEMARK OF TANDY CORP 
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7F57 


DD7E32 




01640 


PUN1 


LO 


A, (IX) 






7F5A 


CD6402 




01650 




CALL 


0264H 






7F5D 


23 






01660 




INC 


HL 






7F5E 


DD23 




01670 




INC 


IX 






7F60 


81 






01680 




ADD 


A,C 






7F61 


4F 






01690 




LD 


C,A 






7F62 


10F3 




01700 




DJNZ 


PUN1 






7F64 


CD6402 




01710 




CALL 


0264H 


jOUTPUT CHECKSUM 




7F67 


CD2C02 




01720 




CALL 


022CH 


; BLINK STAR 




7F6A 


C9 






01730 




RET 








7F6B 


76 






01740 


RESET 


DEFB 


76H 


;HALT CODE 




7F6C 


E9 






01750 


LIST 


DEFB 


0E9H 






7F6D 


20 






01760 


NAME 


DEFB 


20H 






7F6E 


20 






01770 




DEFB 


20H 






7F6F 


20 






01780 




DEFB 


20H 






7F7B 


20 






01790 




DEFB 


20H 






7F71 


20 






01800 




DEFB 


2011 






7F72 


20 






01810 




DEFB 


■ 20H 






0002 








01820 


STADR 


DEFS 


2 


; STORE START ADDRESS 




0002 








01830 


ENDADR DEFS 


2 


; STORE END ADDRESS 




0002 








01840 


TRFADR DEFS 


2 


; STORE ENTRY ADDRESS 




7F79 


45 






01850 


HSG1 


DEFM 


'ENTER 


PROGRAM NAME/START/END/ENTRY HEX 


ADDR 


ESSES' 




















4E 


54 


45 


52 20 


50 52 


4F 










47 


52 


41 


4D 20 


4E 41 


4D 










45 


2F 


53 


54 41 


52 54 


2F 










45 


4E 


44 


2F 45 


4E 54 


52 










59 


20 


48 


45 58 


20 41 


44 










44 


52 


45 


53 53 


45 53 










7FA9 


00 






01860 




DEFB 









7FAA 


20 






01870 


MSG2 


DEFM 


• 


PREPARE RECORDER AND PRESS RECORD 


fc PL 


AY <ENTER> 


















20 


20 


20 


20 50 


52 45 


50 










41 


52 


45 


20 52 


45 43 


4F 










52 


44 


45 


52 20 


41 4E 


44 










20 


50 


52 


45 53 


53 20 


52 










45 


43 


4F 


52 44 


20 26 


20 










50 


4C 


41 


59 20 


3C 45 


4E 










54 


45 


52 


3B 












7FDF 


00 






01880 




DEFB 









7FE0 


2A 






01890 


STAR 


DEFB 


2 AH 






7E00 








01900 




END 


START 






00000 TOTAL ERRORS 



















Program Listing 2. ProleC routine. 






00100 


! PROTEC 


1.1 — 


-BASIC CASSETTE TAPES ONLY 


41E2 




00110 




ORG 


41E2H 


SYSTEM RELAY FOR AUTO START 


41E2 


E9 


00120 




DEFB 


0E9H 




40B1 




00130 




ORG 


40B1H ; 


BASIC TOP OF MEMORY PTR 


40B1 


1F7E 


00140 




DEFW 


START- 1 




418E 




00150 




ORG 


41BEH 


NAME VECTOR 


418E 


C3 


00160 




DEFB 


0C3H 


JUMP 


41 8F 


207E 


00170 




DEFW 


START 




4049 




00180 




ORG 


4049H 


MEMORY SIZE 


4049 


1F7E 


00190 




DEFW 


START-1 




7E20 




00200 




ORG 


7E20H 


PROTEK 


7E20 




00210 


START 


EQU 


s 




7.E20 


CDC901 


00220 




CALL 


01C9H 


CLEAR SCREEN 


7E23 


31287E 


00230 




LD 


SP,START+8 


7E26 


21837F 


00350 




LO 


HL,MSG1 


DISPLAY PGM NAME PROMPT 


7E29 


CDA728 


00360 




CALL 


28A7H 




7E2C 


3E0D 


00370 




LO 


A,0DH 




7E2E 


CD3A03 


00380 




CALL 


033AH 




7E31 


2AA740 


00390 




LD 


HL, (40A7H) 


7E34 


0606 


00400 




LD 


B,6 




7E36 


CDD905 


00410 




CALL 


05D9H 


INPUT NAME 


7E39 


117D7F 


00420 




LD 


DE.NAME 




7E3C 


7E 


00440 


NAME1 


LD 


A,(HL) 




7E3D 


12 


00450 




LD 


(DE) ,A 




7E3E 


23 


00460 




INC 


HL 




7E3F 


13 


00470 




INC 


DE 




7E40 


10FA 


00480 




DJNZ 


NAM El 




7E42 


3E0D 


00490 




LD 


A,0DH 




7E44 


CD3A03 


00500 




CALL 


033AH 




7E47 


21967F 


00510 




LD 


HL,MSG2 


DISPLAY PREPARE RECORDER 


7E4A 


CDA7 28 


00520 




CALL 


28A7H 




7E4D 


010000 


00522 




LO 


BC0000 




7E50 


CD6000 


00524 




CALL 


006011 




7E53 


B7 


00530 




OR 


A 




7E54 


3A4038 


00540 


READY 


LD 


A, (3840H 


,-CHECK KEYBOARD FOR <ENTER> 


7E57 


FE01 


00550 




CP 


01H 




7E59 


2807 


00560 




JR 


Z.REC 




7E5B 


FE04 


00570 




CP 


04 


CHECK KEYBOARD FOR <BREAK> 


7E5D 


CA191A 


00580 




JP 


Z.1A19H 


RETURN TO BASIC 


7E60 


18F2 


00590 




JR 


READY 




7E62 


P3 


00600 


REC 


DI 






7E63 


3E2A 


00610 




LO 


A, 2 AH 




7E6 5 


323E3C 


00620 




LD 


(3C3EH) ,A ;STAR 


7E68 


3E00 


00630 




LD 


a,* 




7E6A 


CD1202 


00650 




CALL 


0212H 


INITIALIZE RECORDER 11 


7E6D 


CD8702 


00660 




CALL 


02B7H 


WRITE LEADER i SYNC BYTE 


7E70 


3E55 


00670 




LO 


A.55H 


SYSTEM TAPE ID 


7E72 


CD6402 


00680 




CALL 


0264H 


WRITE BYTE 


7E75 


117D7F 


006 90 




LD 


DE.NAME 




7E78 


0606 


00700 




LD 


B,6 




7E7A 


1A 


00710 


WRTNAM 


LD 


A,(DE) 




7E7B 


CD6402 


00720 




CALL 


026 4H 




7E7E 


13 


00730 




INC 


DE 




7E7F 


10F9 


00740 




DJNZ 


WRTNAM 


WRITE NAME 


7E81 


3E3C 


00800 




LD 


A,3CH , 


DISABLE TRACE 
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Listing 2 


continued 














7E83 


CD6402 


B0810 


CALL 


0264H 








7E86 


3E01 


00820 


LO 


A,l 








7E88 


CD64B2 


00830 


CALL 


0264H 








7E8B 


3E1B 


0084B 


LD 


A,1BH 








7E8D 


CD6402 


00850 


CALL 


0264H 








7E9B 


3E41 


00860 


LD 


A,41H 








7E92 


CD64B2 


00870 


CALL 


0264H 








7E95 


3E0B 


00880 


LO 


A,0 








7E97 


CD6402 


00890 


CALL 


0264H 








7E9A 


CD64B2 


00900 


CALL 


0264H 


OUTPUT FALSE CHECKSUM 




7E9D 


213E3C 


00910 


LD 


HL,3C3EH 








7EA0 


DD21CC7F 


00930 


LD 


IX, STAR 








7EA4 


CD477F 


00940 


CALL 


SET 








7EA7 


01000B 


00942 


LD 


BC,0000 ; 


defeat timer;; 




7EAA 


CD6B00 


00944 


CALL 


0060H 








7EAD 


CD600B 


00946 


CALL 


0060H 








7 EBB 


210000 


00950 


LD 


HL,0088 ; 


LMOFFSEV 




7EB3 


CD437F 


00970 


CALL 


BLOCK 








7EB6 


21A043 


00980 


LD 


HL.43A0H 




; TBUG 




7EB9 


CD437F 


00990 


CALL 


BLOCK 








7EBC 


21 807 F 


01000 


LD 


HL,7F80H 




;RSM2 fc 2D, 16K 




7EBF 


CD437F 


01010 


CALL 


BLOCK 








7EC2 


2180BF 


01020 


LD 


HL.0BF80H 




;RSM2D 32K 




7EC5 


CD437F 


01030 


CALL 


BLOCK 








7EC8 


2180FF 


01040 


LD 


HL,0FF80h 




;RSM2D 48K 




7ECB 


CD437F 


01050 


CALL 


BLOCK 








7ECE 


210F4B 


01052 


LD 


HL.400FH 




.•DEBUG 




7 EDI 


CD437F 


01054 


CALL 


BLOCK 








7ED4 


21BC40 


01056 


LD 


HL,400CH 




; DISABLE BREAK KEY 




7ED7 


DD217A7F 


01058 


LD 


IX, BREAK 








7EDB 


0603 


01060 


LD 


B,3 








7 EDO 


CD497P 


01062 


CALL 


PUNCH 








7EE0 


2AF940 


01064 


LD 


HL, (40F9H) 


; SIMPLE VARIABLES PTR 




7EE3 


ED5BA440 


01066 


LC 


DE,(40A4H) 


; START OF BASIC PGM PTR 




7EE7 


B7 


01068 


OR 


A 








7EE8 


ED52 


01070 


SBC 


HL,DE 








7EEA 


2B 


01072 


DEC 


HL 








7EEB 


e:b 


01074 


EX 


DE,HL 








7 EEC 


E5 


01076 


PUSH 


HL 








7EED 


DDE1 


01078 


POP 


IX 








7EEF 


7A 


01080 


LD 


A,D 








7EF0 


FE00 


01082 


CP 











7EF2 


2808 


01084 


JR 


Z,WRT2 








7EF4 


0600 


81100 WRT1 


LD 


B,0 








7EF6 


CD497F 


01110 


CALL 


PUNCH 








7EF9 


15 


01128 


DEC 


D 








7 EPA 


20F8 


01130 


JR 


NZ.WRT1 








7EFC 


7B 


01140 WRT2 


LD 


A,E 








7EFD 


FEB0 


01150 


CP 


• 








7EFF 


CA067F 


01160 


JP 


Z,WRT3 








7FB2 


43 


01170 


LD 


B,E 








7FB3 


CD4 97F 


01180 


CALL 


PUNCH 








7P06 


E5 


01190 WRT3 


PUSH 


HL i 


SAVE 


FOR TRANSFER 




7F87 


DD21727F 


01200 


LD 


IX, LIST 








7FBB 


0607 


01210 


LD 


B,7 








7F0D 


CD497F 


01220 


CALL 


PUNCH 








7F1B 


21E241 


01240 


LD 


HL,41E2H 




; SYSTEM/ AUTO-START RELAY 




7F13 


CD477F 


01250 


CALL 


SET 








7F16 


06B2 


01290 


LD 


B,2 








7F18 


21F94B 


01300 


LD 


HL,40P9H 




; SIMPLE VARIABLES PTR 




7F1B 


E5 


01310 


PUSH 


HL 








7F1C 


DDE1 


01312 


POP 


IX 








7F1E 


CD497F 


01320 


CALL 


PUNCH 








7F21 


21A440 


01330 


LD 


HL,40A4H 




; START OF BASIC PTR 




7P24 


E5 


01340 


PUSH 


HL 








7F25 


DDE1 


01342 


POP 


IX 








7F27 


06B2 


01350 


LD 


B,2 








7F29 


CD497F 


01360 


CALL 


PUNCH 








7F2C 


Dl 


01370 


POP 


DE 


RECOVER RUN BLOCK 




7F2D 


3E78 


01380 


LD 


A,78H 


TRANSFER BLOCK 




7F2F 


CD6402 


01390 


CALL 


0264H 








7F32 


7B 


01400 


LD 


A,E 


RUN ROUTINE 




7F33 


CD64B2 


01410 


CALL 


0264H 








7F36 


7A 


01420 


LD 


A,D 








7F37 


CD6402 


01430 


CALL 


0264H 








7F3A 


CDF8B1 


01440 


CALL 


01F8H 


TURN 


OFF RECORDER 




7F3D 


CDC9B1 


01488 


CALL 


01C9H 


CLEAR SCREEN 




7F4B 


C3191A 


81490 


JP 


1A19H 


RETURN TO BASIC 




7F43 


DD21717F 


01500 BLOCK 


LD 


IX, RESET 








7F47 


0601 


01510 SET 


LD 


B,l 








7F49 


3E3C 


01520 PUNCH 


LD 


A,3CH 


BLOCK SYNC 




7F4B 


CD6 40 2 


01530 


CALL 


0264H 


WRITE BYTE 




7F4E 


78 


01540 


LD 


A,B 


BYTE 


COUNT 




7F4F 


CD6 40 2 


01550 


CALL 


0264H 








7F52 


7D 


01560 


LD 


A,L 


LSB ADDRESS 




7F53 


CD6 4B2 


01570 


CALL 


0264H 








7F56 


4F 


01580 


LD 


C,A 


SAVE 


FOR CHECKSUM 




7F57 


7C 


01590 


LD 


A,H 


MSB ADDRESS 




7F58 


CD640 2 


01600 


CALL 


0264H 








7F5B 


81 


01610 


ADD 


A,C 








7F5C 


4F 


01620 


LD 


C,A 








7F5D 


DD7E00 


01630 PUN1 


LD 


A, (IX) 








7F6B 


CD64B2 


01640 


CALL 


026 4H 








7F63 


23 


01650 


INC 


HL 








7F64 


DD23 


01660 


INC 


IX 








7F66 


81 


01670 


ADD 


A,C 








7F67 


4F 


01680 


LD 


C,A 








7F68 


1BF3 


01690 


DJNZ 


PUN1 








7F6A 


CD6482 


01700 


CALL 


0264H 


OUTPUT CHECKSUM 




7F6D 


CD2CB2 


01710 


CALL 


022CH 


BLIN* 


STAR 




7F78 


C9 


01720 


RET 










7F71 


76 


01722 RESET 


DEFB 


76H 


HALT 


CODE 




7P72 


21 


01730 LIST 


DEFB 


21H 








7F73 


IE 


01740 


DEFB 


1EH 








7P74 


ID 


01750 


DEFB 


1DH 








7P75 


ES 


01760 


DEFB 


0E5H 








7F76 


C3 


01770 


DEFB 


0C3H 




Luting 1 con 


tinued 



f 



ANALYTICAL ^tw 

process esJmA 
^^corporation 




BUSINESS 
SOFTWARE 

for 

IBM-PC, OSBORNE, XEROX 

NORTHSTAR, RADIO SHACK 

EPSON QX-1 0, CPM & MS-DOS 

All Prices Include Full Support 
and Source Code 



* TAX/PACK * 

TAX/PACK for practitioners is 
complete, coordinated, and in- 
cludes most-used forms and 
schedules Prints all schedules, 
no masks, no data field entered 
more than once. All data passed 
automatically between sched- 
ules and 1 040. Fully supported 
all year. Partial or full system. 
Can be used for single or multi- 
ple returns. Extremely flexible. 
Computing taxes for over five 
years 

$995.00 



MORE ! 

TRIED & TRUE APPUCATIONS 

■ MAIL LIST MANAGER 

■ MEMBERSHIP LIST MANAGER 

■ UTILITY BILLING 

■ REAL ESTATE APPRAISAL 

■ PETROLEUM DISTRIBUTORS 

■ RETAIL INVENTORY* BILLING 



Send Check. M.O., or VISA/MC Number 
and Expiration Date TODAY to: 

ANALYTICAL PROCESSES CORP. 

635 Main Street - P.O. Box 1313 

Montrose. Colorado 81402 

• 406 
For More 
Information 
Call: 
(303) 249-1400 




I 



We Are Unique . . . Try Us . . . Find Out 



s SeeUstor Advertisers on Page 291 
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THIS MAY BE 
THE SAVINGS ON 

SOFTWARE 

WHEN YOU'RE 
A MEMBER OF 

SOFTWARE 

OF THE 

MONTH CLUB 



As a member of the Software of 
the Month Club, you'll receive: 

■ SAVINGS: high volume CLUB 
purchases allow wholesale-like 
prices to members. 
Example: dBASE II ... . $389* 

■ SELECTIONS: members to 
decide best-seller list by 
frequent polling: 40-50% off. 
Other requests at cost plus 5-10%. 

■ SUPPORT: technical hot-line. 

■ NEWSLETTERS: tips & 
"how-to" by consultants. 

■ HARDWARE SPECIALS: co-op 
savings. 

■ No minimum purchase required. 

Membership registration fee $25. 

Join now for only $7 (limited time) 

and receive price list. 



BOM 11-83 

SOFTWARE OF THE 
MONTH CLUB, INC. 

953 Mission St.. Mint Mall 
San Francisco. CA 94103 

Enclosed is $7 for this special. 
Please enroll me in the club. 

Name 




♦oTTnV*' 



^-29 



City_ 



State/ Zip_ 



'Plus shipping/handling. Subject to change without notice. 
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7P77 


5D 






01780 






DEFB 


5DH 


7P78 


IB 






81790 






DEPB 


IBB 


7P79 


E9 






81808 






DEFB 


0E9H 


7P7A 


C3 






01810 


BREAK 


DEPB 


0C3H 


7P7B 


98 






0182B 






DEPB 


98B 


7P7C 


• A 






01830 






DEPB 


0AH 


7F7D 


28 






01840 


NAME 


DEFB 


20H 


7F7E 


28 






01842 






DEFB 


20H 


7F7P 


28 






01844 






DEFB 


20H 


7F80 


20 






01846 






DEPB 


20H 


7P81 


28 






01848 






DEPB 


20H 


7F82 


28 






01849 






DEFB 


20H 


7P83 


45 






01850 


MSG1 


DEPM 


•ENTER PROGRAM NAME' 




4E 


54 


45 


52 28 


50 


52 


4F 






47 
45 
80 


52 


41 


4D 20 


4E 


41 


4D 




7F95 






01860 






DEPB 





7F96 


28 






01S70 


MSG2 


DEPM 


• PREPARE RECORDER AND PRESS RECORD & PL 


AY <ENTER> 
















28 


20 


20 


20 50 


52 


45 


50 






41 


52 


45 


20 52 


45 


43 


4F 






52 


44 


45 


52 20 


41 


4E 


44 






28 


50 


52 


45 53 


53 


20 


52 






45 


43 


4F 


52 44 


20 


26 


20 






50 


4C 


41 


59 20 


3C 


45 


4E 






54 


45 


52 


3E 










7PCB 


00 






01880 






DEPB 





7PCC 


2A 






01890 


STAR 


DEFB 


2AH 


SCH 








01910 






ORG 


3C00H ; WRITE INSTRUCTIONS 


3C00 


28 






01920 


, 




DEFM 


• PROTEC 




20 


20 


20 


20 20 


20 


20 


20 






20 


28 


20 


20 20 


20 


20 


20 






20 


20 


20 


20 20 


20 


20 


20 






20 


20 


20 


20 50 


52 


4F 


54 






45 


43 


20 


20 20 


20 


20 


20 






20 


20 


20 


28 20 


20 


20 


20 






20 


20 


20 


20 20 


20 


20 


20 






20 


20 


20 


20 20 


20 








3C3F 


20 






01930 






DEFK 


1 WHEN YOU ARE READY TO ENCODE YOUR BASI 


C PROGRAM « 


TYPE NAME" 










20 


20 


20 


20 57 


48 


45 


4E 






20 


59 


4F 


55 20 


41 


52 


45 






20 


52 


45 


41 44 


59 


20 


54 






4F 


20 


45 


4E 43 


4F 


44 


45 






20 


59 


4F 


55 52 


20 


42 


41 






53 


49 


43 


20 50 


52 


4F 


47 






52 


41 


4D 


2C 20 


54 


59 


50 






45 


20 


4E 


41 4D 


45 








3C7E 


20 






01940 






DEPM 


1 < ENTER). YOU WILL BE PROMPTED TO ENTER U 


P TO 


SIX CHARACTERS 


• 










20 


3C 


45 


4E 54 


45 


52 


3E 






2E 


28 


20 


59 4F 


55 


20 


57 






49 


4C 


4C 


20 42 


45 


28 


50 






52 


4F 


4D 


50 54 


45 


44 


20 






54 


4F 


20 


45 4E 


54 


45 


52 






20 


55 


50 


20 54 


4F 


20 


53 






49 


58 


20 


43 48 


41 


52 


41 






43 


54 


45 


52 53 


20 








3CBD 


20 






01950 






DEFM 


' UNDER WHICH YOUR ENCODED PROGRAM WILL OP 


ERATE AS A 


SYSTEM TA' 










20 


20 


55 


4E 44 


45 


52 


20 






57 


48 


49 


43 48 


20 


59 


4F 






55 


52 


20 


45 4E 


43 


4F 


44 






45 


44 


20 


50 52 


4F 


47 


52 






41 


4D 


20 


57 49 


4C 


4C 


20 






4F 


50 


45 


52 41 


54 


45 


20 






41 


53 


20 


41 20 


53 


59 


53 






54 


4S 


4D 


20 54 


41 








3CFC 


50 






81960 






DEFM 


"PE <ENTER>. YOU WILL THEN BE PROMPTED TO 


PREPARE 


THE RECORDER' 










45 


20 


20 


3C 45 


4E 


54 


45 






52 


3E 


2E 


20 20 


59 


4F 


55 






20 


57 


49 


4C 4C 


20 


54 


48 






45 


4E 


20 


42 45 


20 


50 


52 






4F 


4D 


58 


54 45 


44 


20 


54 






4F 


20 


58 


52 45 


50 


41 


52 






45 


20 


54 


48 45 


20 


52 


45 






43 


4F 


52 


44 45 


52 








3D3B 


2C 






01970 






DEPM 


', PRESSING RECORD AND PLAY < ENTER >. YOUR 


BASIC PROGRAM WILL 












20 


20 


28 


20 50 


52 


45 


53 






53 


49 


4E 


47 20 


52 


45 


43 






4F 


52 


44 


20 41 


4E 


44 


20 






50 


4C 


41 


59 20 


3C 


45 


4E 






54 


45 


52 


3E 2E 


20 


59 


4F 






55 


52 


20 


42 41 


53 


49 


43 






20 


50 


52 


4F 47 


52 


41 


4D 






20 


57 


49 


4C 4C 










3D79 


20 






01980 






DCPM 


1 BE ENCODED AS A SYSTEM TAPE. TO RUN YOU 


R TAPE, 


TYPE 


SYSTEM 












42 


45 


28 


20 20 


20 


45 


4E 






43 


4F 


44 


45 44 


20 


41 


53 






20 


41 


20 


53 59 


53 


54 


45 






4D 


20 


54 


41 50 


45 


2E 


20 






54 


4F 


28 


52 55 


4E 


20 


59 






4F 


55 


52 


20 54 


41 


50 


45 






2C 


28 


54 


59 50 


45 


20 


53 






59 


53 


54 


45 4D 










3DB7 


20 






01990 






DEFH 


* <ENTER>. AT THE PROMPT *? ENTER TOE NAM 


E UNDER 


WHICH 


THE' 












3C 


45 


4E 


54 45 


52 


3E 


2E 






20 


28 


28 


20 41 


54 


20 


54 






48 


45 


20 


50 52 


4F 


4D 


50 






54 


20 


2A 


3P 20 


45 


4E 


54 






45 


52 


20 


54 48 


45 


20 


4E 
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Listing 2 continued 



41 


4D 


45 20 55 


4E 


44 


45 


52 


20 


57 48 49 


43 


48 


20 


54 


48 


45 








3DF3 20 




02000 






D 


PROGRAM 


WILL LOAD" 








20 


50 


52 4F 47 


52 


41 


4D 


20 


57 


41 53 45 


4E 


43 


4F 


44 


45 


44 20 3C 


45 


4E 


54 


45 


52 


3E 2E 20 


20 


59 


4F 


55 


52 


20 45 4E 


43 


4F 


44 


45 


44 


20 50 52 


4F 


47 


52 


41 


4D 


20 57 49 


4C 


4C 


20 


4C 


4F 


41 44 








3E30 20 




02010 






C 


RS WILL 


BE 


UNABLE TO' 






41 


4E 


44 20 41 


55 


54 


4F 


4D 


41 


54 49 43 


2D 


20 


41 


4C 


4C 


59 20 42 


45 


47 


49 


4E 


20 


54 4F 20 


4F 


50 


45 


52 


41 


54 45 2E 


20 


20 


55 


53 


45 


52 53 20 


57 


49 


4C 


4C 


20 


42 45 20 


55 


4E 


41 


42 


4C 


45 20 54 


4F 






3E6F 20 




02020 






[ 


R MONITORS 


SUCH AS 1 








20 


4C 


49 53 54 


2C 


20 


4C 


4C 


49 


53 54 20 


4F 


52 


20 


55 


53 


45 20 54 


48 


45 


20 


42 


52 


45 41 4B 


20 


4B 


45 


59 


2E 


20 20 50 


4F 


50 


55 


4C 


41 


52 20 4D 


4F 


4E 


49 


54 


4F 


52 53 20 


53 


55 


43 


48 


20 


41 53 








3EAC 20 




02030 






r 


LL BE DISABLED, AS W 






54 


48 


45 20 52 


53 


4D 


32 


20 


53 


45 52 49 


45 


53 


2C 


20 


20 


20 53 59 


53 


54 


45 


4D 


20 


43 4F 50 


59 


20 


41 


4E 


44 


20 54 42 


55 


47 


20 


57 


49 


4C 4C 20 


42 


45 


20 


44 


49 


53 41 42 


4C 


45 


44 


2C 


20 


41 53 20 


57 






3EEB 49 




02040 








CLOAD 


KOUR BASIC PR 1 






4C 


4C 


20 54 48 


45 


20 


54 


52 


41 


43 45 20 


20 


20 


20 


20 


20 


20 20 46 


55 


4E 


43 


54 


49 


4F 4E 2E 


20 


20 


59 


4F 


55 


20 4D 41 


59 


20 


4E 


4F 


57 


20 43 4C 


4F 


41 


44 


20 


59 


4F 55 52 


20 


42 


41 


53 


49 


43 20 50 


52 






3F2A 4F 




02050 









PROGRAM WASENCODED <ENTER>. YOUR ENCODED 



AND AUTOMATIC- ALLY BEGIN TO OPERATE. USE 



LIST, LLIST OR USE THE BREAK KEY. POPULA 



THE RSM2 SERIES, SYSTEM COPY AND TBUG WI 



'ILL THE TRACE 



FUNCTION. YOU MAY NOW 



'OGRAM IF IT HAS NOT ALREADY BEEN LOADED. 



47 52 41 4D 20 49 46 20 
49 54 20 48 41 53 20 4E 
4F 54 20 20 20 41 4C 52 
45 41 44 59 20 42 45 45 
4E 20 4C 4F 41 44 45 44 
2E 20 20 20 20 20 20 20 
20 20 20 20 20 20 20 20 
20 



4020 

4020 803F 
1A19 



02060 
02070 
02080 



ORG 

DEFW 

END 



4020H 
3F80H 

1A19H 



; BASIC RE-ENTRY 



00000 TOTAL ERRORS 



Prolessional 

REAL ESTATE SOFTWARE 

for IBM APP1E TRS-80 and CPM Computers 

• PROPERTY MANAGEMENT SYSTEM $525 

Tenanl Inlormation Owners Report 

Ute Rent Reporl Operating Statement 

Vacancy Report Prints decks 

EnpireO Leases Rent Receipts 

Rent Statements Consolidated Reports 

Graphics f ASY 10 USE 

• PROPERTY LISTINGS COMPAHABLES S425 



OPTION 
INVESTING 



SCREEN BY -»- 

22 Hems' Listing 
Property Comparisons 
Homes or Income 



Mai/Mm Price 
City /Wemos/ Codes 
Mai Pnce'income 
Mai Pnce/Sq Foot 
Mm Casrtlow 



REAL ESTATE ANALYSIS MODULES S50 Module 



Loan Sales 'Purchase 
Home Purchase 
Income Prop Analysis 
Property Sales 
Depreciation ACRS 



loan Wrap Return 
ta> Deterred Exchange 
APR Loan Analysis 
Loan Amortijation 
Construction Cost/Prolit 



WORD PROCESSOR WORDSTAR $295 



Suite *229 1926 S Pacilic Coast Hwy Reoondo Beach CA 90277 



OPTIONS-BOA 

OPTIONS-80 


• 170 ] 

• 129 


FULLY UULUMMIU) PROWWIW, 
MMV TO »«LP YOU MAXIMIZE 
YOUR HKTUWH ON INVESTMENT. 
CALLS, PUTS. 8PMEAM, COV 
MtlTIMf INCL CONN It RISK. 
THE BOA HAS •LACK-SCHOLEB. I 
TOM TRS-40 MODELS 1,111.4. 

FREE BROCHURE. 
nPTtnuBi on onv ati_c 



CONCORD, MASS 01742 



REMSOFT, INC. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing 
your POP from your PUSH? 

REMSOFT proudly announces a more 
efficient way, using your own TRS-80® to 
learn the fundamentals of assembly language 
programming . . at YOUR pace and YOUR 
convenience. 

Our unique package, "INTRODUCTION TO 
TRS-80® ASSEMBLY PROGRAMMING, will 
provide you with the following: 

• Ten 40 minute lessons on audio 
cassettes 

• A driver program to make your TRS-80® 
video monitor serve as a blackboard for 
the instructor. 

• A display program for each lesson to 
provide illustration and reinforcement for 
what you are hearing. 

• Step-by-step dissection of complete and 
useful routines to test memory and to 
gain direct control over the keyboard, 
video monitor, and printer. 

• How to access and use powerful routines 
in your Level II or Model III Basic ROM 

AVAILABLE FOR MODEL 1 & 3 
REMASSEM (up.) $74.95 

REMASSEM «m $79.95 

LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step 
out with REMSOFT'S Educational Module. 
REMDISK-1, a "short course" revealing the 
details of DISK I/O PROGRAMMING using 
assembly language. Intended for the student 
with experience and assembly language. 
COURSE INCLUDES: 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80® 
video monitor serve as a blackboard for 
the instructor. 

• A display program for each lesson to 
provide illustration and reinforcement for 
what you are hearing. 

• A booklet of comprehensive, fully 
commented program listings illustrating 
sequential file I/O random-access file 
I/O and track and sector I/O. 

• A diskette with machine readable source 
codes for all programs discussed in both 
Radio Shack EDTASM and Macro 
formats. 

• Routines to convert from one assembler 
format to the other. 

Presently available for Modal 1 only 
REMDISK-1 only $29.95 

Outer inquiries invN.d 

These courses were developed and recorded by Joseph t 
Wiilis and are based on the successful series of courses he 
has taught at Meta Technologies Corporation, the Radio 
Shack computer Center, and other locations in Northern Ohio. 



4 



REMSOFT, INC. 

571 E. 185 St. 

Euclid, Ohio 44119 

(216)531-1338 




SHIPPING CHARGES 

$2.50 WITHIN UNITED STATES 

$5.00 CANADA AND MEXICO 

OTHER FOREIGN ORDERS ADO 20% 

OHIO RESIOENTS ADD 6'h% SALES TAX 

TRS-80* IS A TRADEMARK OF TANDY CORP 



*• See List of Advertisers on Page 291 
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DOS PLUS 3.5 MODEL 1/1 1 1 

Better than standard Dos Plus. Added enhancements to make this 
the best system that will put you in total control. 

OUR 
Retails at $149.95 PRICE 

DOS PLUS 4 MODEL 4 

All the features of Dos Plus 3.5 and more. 80-column capability 
with full Microsoft BASIC. 1 00% faster than TRSDOS 6.0. 

OUR 
Retails at $149.00 PRICE 

CPM 2.2 FOR THE MODEL 4 

From Montezuma Micro comes a fully implemented version of 
Digital Research's CPM 2.2. Now you can run all CPM-compatible 
programs on your Model 4 computer. 

OUR 
Retails at $199.00 PRICE 

NEWSCRIPT 

A complete word processing system based on the editing and 
text-formatting programs developed by IBM for use on mainframe 
time-sharing systems. 

OUR co - nn 
Retails at $110.00 PRICE $ 85 00 

SOS DISK TIMER 

Speed-O-Scope drive speed test program used to check drive 
R.P.M. and to adjust TRS-80 Model III Disk Drives. Allows assur- 
ance and adjustment of your disk drives to proper operating speed. 

Retails at $19.95 PRICE $ 1 5 00 



BASIC EDITOR 

If you do a lot of editing of your BASIC programs, then this is the 
editor for you!!! ~. •■» 

OUR C -- QC 
Retails at $29. 95 PRICE $ 24 95 

'Manufacturers have asked us not to publish these low prices. 
Please call our toll free number for prices and also get on our 
free mailing list. 



B.T. Enterprises Dept. 1-L 
10CarloughRd. 
Bohemia, N.Y. 11716 



for your TRS 80 

MODEL I, III and 4 



MAS 80 

The micro accounting system. Flexible, versatile, user-formatted 
business system designed for the novice and professional. AR/ 
AP/GL/CKREG. 

Retails at $599.00 PRICE $ 499 00 
M-ZAL 

Release #3 — more features than ever before. The most powerful 
editor assembler ever written. Full-screen editing, linking loader, 
full macro support and much more. 



Retails at $99.95 



OUR 
PRICE 



s 



75 



00 



ACCOUNTING PARTNER 

Everything you need to make the system go — simply, efficiently, 
and conveniently. Easy to use, menu-driven programs, all per- 
forming integration calculations. Uses extensive error checking 
and leaves a complete audit trail. GL/AR/AP/PAYROLL 
Requires CP/M 2 2 

OUR 
Retails at $399.95 PRICE $ 299 00 
OFFER EXPIRES JANUARY 15th, 1984 



Request your FREE Pascal80 
Trial Version with the purchase 
of any of these SPECIALS! 



TRIAL VERSION 

■> 5£Z£* '•'««-' fa* 

F~.»r« Support*, i, ,„, TrW Vera|on 

Variable l,p„ : REAL , NTFf ., B 

_ IW. record, and Zl^l}"' K - Bt *>LEAN. .„.„ 

Ipnnterj "• "UTPLT (screen) and LP 



Available for $10 with no additional purchase. 



(516) 567-8155 (voice) 
(516) 588-5836 (modem) 

T Enterprises is o division of Di Tech Enterprises Inc 



HARDWARE 

for your TRS 80 

MODEL I, III and 4 



VID80 

A sophisticated hardware addition to yourTRS-80 Model III. Adds 
80-column x 24-line video display and full 64KCPM support (CPM 
available separately). Easy to install. Full instructions. 

Retails at $279.95 PRICE $ 229 00 

With Accounting Partner 

and CPM 2.2 " OUR $ccnoo 

Retails at $798.00 PRICE HS5U 00 
SPRINTER 

Shift your TRS-80 into high gear with the Holmes Sprinter Clock 
Speed Up. Model III or 4. 

"Includes sample routine on TDOS 



Retails at $99.50 



OUR 
PRICE 



$ 



79 



50 



64K MEMORY DISK UPGRADE KIT 
FOR THE MODEL 4 

Easy to install with illustrated instruction manual. Upgrade from 
1 6K to 64K of memory. 

Retails at $149.00 PRICE $ 80 00 



Upgrade from 64K to 

128K with PAL. OUR 

Retails at $149.00 PRICE 



►99 



50 



UPGRADE KIT WITH CLOCK 

Complete kit with battery backup Real Time Clock. 40/80-track, 
single/double-sided, single/double-density, 5- 8" inch drives — all 
supported. Compatible with Models III and 4. Complete kit without 
drives. Drives available at discount prices CALL 

Retails at $357.45 PRICE $ 299 00 
MICROFAZER 



A printer buffer that lets printing take place while the computer is 

being used. 

64K SO' ^r> 

Parallel 




128K 
Parallel 



229 s 
*309 95 



Dealers please call (516) 567-2444 



Dealer Inquires Welcome 
Prices subject to change 
N.Y S Residents odd tax 




BAR CODE READERS 

Hand-held scanners designed to read all common bar code 
formats. Available for the Epson HX-20, the Radio Shack Model 
100, and the NEC Portable. 

OUR FOR OUR 

Retails at $279.00 PRICE (j£w PR(CE 
PRINTER STANDS 

This lightweight plexiglass stand allows you to eliminate the mess 
on your computer desk by allowing the paper to be fed from under 
the printer, making room for used paper to stack behind it. 

Regular $26.95 

Regular w/shelf 40.45 

Large 31.45 

Large w/shelf 44.95 

Large w/slot 44.95 

Extra large 71 .95 

EPSON RIBBON CARTRIDGES 

Same as original Epson eguipment but much lower cost. Available 
in Black, Red, Blue, Green, and Brown. Fits MX-70. MX-80, FX-80. 
and RX-80 Printers. 

0UR SV175 

Retails at $11.95 PRICE $ 4 75 
3M DISKETTES 

Durability and low abrasivity. Error-free service. Available in boxes 
of 10 units. Limited time Free Calculator offer included. 

(500452) SS/DD 5W $23.50/10 

(500455) DS/DD 5W 32.50/10 

(500457) DS/DD 5W 80 Track 43.00/10 

(500461) SS/SD 8" 24.50/10 

(500462) SS/DD 8" 30.50/10 

(500465) DD/DD 8" 35.50/10 

POWER STRIPS 

For best protection against powerline interference. They insure 
reliable 'side-by-side performance of electronic computing control 
and communications equipment. 
STANDARD POWER STRIP Q M R 
(with transient protection) ooioc $0050 

Retails at $29.70 H H I U t ^ ^ 

VOLTECTOR SERIES 9 CONDITIONED POWER STRIP 
(with heavy duty transient OUR 

voltage surge suppression) .-..- $7^95 

Retails at $99.35 rHIUfc It 

VOLTECTOR SERIES 10 CONDITIONED POWER STRIP 
(with heavy duty transient voltage surge 
supression plus RFI/EMI filtering and patent- 
ed RF-isolated receptacles) OUR 

Retails at $152.90 PRICE $ 1 1 4 95 
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Orders Only 
800-645-1165 
N.Y. call (516) 567-8155 „3oo 



Amencon Express Cone Dlonche 
Dmers Club MosierCord Visa 
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Channels of Communication 



by Dan Keen and Dave Dischert 



H 



ome satellite receiving dishes can bring you 
more than 140 cable stations free. This article 
explains dish technology and positioning. 



You're sitting at home on a Friday 
night, looking for something entertain- 
ing to watch on television. But all that's 
on are reruns of The Dukes of Hazzard, 
a show on how to train your dog, and 
the Miss Teen U.S.A. pageant. 

You do have an alternative — more 
than 140 TV and movie stations, each 
of which comes into your home free. 
All you need is a satellite receiver and a 



Model I or III. 

In this article we discuss how satellite 
receivers work, how to get one, the costs 
and time involved, and how to use your 
Model I or III to position your receiving 
dish to pull in signals from different sat- 
ellites. 

Satellite Receiver Boom 

Home satellite receivers are gaining in 
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Figure I. The bask components of a satellite TV system. 
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popularity. Currently, more than 
100,000 U.S. homes have receivers. As 
more dishes are set up and newer, less 
expensive technology becomes avail- 
able, dish receivers will drop in price 
and come within reach of almost every- 
one. As it is, satellite receiver systems 
are significantly less expensive today 
than they were five years ago. You can 
get a complete system now for as little as 
$2,500. 

The Technology 

Cable program signals travel around 
the United States via satellite (see Fig. 
1). The transmitting station that gener- 
ates the microwave signal beams it up to 
an orbiting satellite. 

The satellite receives the signal, cleans 
it up, and rebroadcasts it to receiving 
stations scattered across the United 
States. These receiving stations then 
send the signal, via ground-based ca- 
bles, to homes. 

Home receiving dishes work just like 
their commercial counterparts. They, 
too, pick up signals from satellites, but 
instead of sending them out over com- 
mercial cables, they shunt the signal to 
your home television set. 

Communications satellites orbit di- 
rectly over the equator in a geostation- 
ary orbit at an altitude of 22,300 miles. 
Satellites occur in the North American 
continent in an equatorial arc of from 
roughly 83 to 135 degrees longitude, 
with a spread of about four degrees. 



The Key Box 

Model I and m 

16K RAM Cassette Bask 

32K RAM Disk Bask 



Television Stations 

Typically, satellites have either 12 or 
24 channels, called transponders. Sev- 
eral communications satellites carry a 
full load (24 channels) devoted to tele- 
vision programming. 

Some programs are free religious or 
commercial stations, such as Satellite 
News Channel and Music Television. 
Other channels may be illegal to receive, 
such as Home Box Office and Show- 
time, but comprehensive laws govern- 
ing this medium are still being debated. 

Satcom F3R, the most widely accessed 
satellite, is one of the few that dedicates 
all 24 transponders to television pro- 
gramming. It carries Nickelodeon, The 
Movie Channel, ESPN (entertainment 
sports), MTV (Music Television), Cable 
News Network, the Christian Broadcast 
Network, and superstations WGN and 
WTBS. The Program Listing contains 
all the stations available through Sat- 
com F3R. 

U.S. companies launch more satel- 
lites each year, providing a larger se- 
lection of programming services from 
which to choose. 

Getting the Signal 

Communications satellites send out 
polarized microwave beams in either a 
horizontal or vertical format. For ex- 
ample, RCA's Satcom F3R satellite has 
horizontal polarization on even tran- 
sponders and vertical polarization on 
odd transponders. The Westar 3 satel- 




Figure 2. The feed assembly, consisting of the (a) antenna, (b) low-noise amplifier, and (c) downconverter. 



lite polarizes all its signals horizontally. 

Even though all communications sat- 
ellites (about 12 currently in operation) 
broadcast on the same frequencies, 
there is no interference between them 
because the receiving antennas are 
highly directional. 

To pick up these signals, you need to 
rotate your dish antenna. You can 
equip your antenna with a remote con- 
trol motor to rotate the dish from inside 
your house. Other satellite systems pro- 
vide electronic switches that correctly 
position the antenna. 

Earth transmitters send TV signals to 
satellites at 1,000 watts. This is called the 




Photo. One of the authors' microwave antennas. 



uplink of the transmission. The satellite 
receives the signal, usually at around 6 
gigahertz in frequency, cleans it up, and 
retransmits it back over the United States 
(see the schematic in Fig. 1). 

The return signal arrives at between 
3.7 and 4.2 gigahertz and at a power of 
5 watts. Because the signal is so weak, 
you need a large receiving dish to gather 
and concentrate the signal (see the 
Photo). For most of North America, a 
10-foot dish is the minimum required 
for a good picture. The dish gathers and 
concentrates the signal, and bounces it 
back into the feed assembly, a combina- 
tion receiver/amplifier suspended op- 
posite the center of the dish (see Fig. 2). 
The feed assembly directs signals into 
the receiving amplifier, called a low- 
noise amplifier, or LNA. 

The LNA amplifies the signal and 
sends it to the downconverter, also part 
of the feed assembly. The downconvert- 
er changes the high-frequency micro- 
wave signal to a lower, more manage- 
able signal of about 70 MHz. It then 
sends the signal along a standard TV 
cable wire (Radio Shack part number 
RG-59U) into your home. 

Finally, the signal travels indoors to 
the receiver, letting you select a channel 
from 1 to 24. You receive the signal 
through a radio frequency signal (usual- 
ly on channels 2, 3, or 4) connected to 
the antenna input of any television. Di- 
rect video/audio outputs are included 
for connection to a video tape recorder 
or a large-screen projection TV. 

Broadcast Scrambling 

Potential satellite owners need not 
worry about spending money for a receiv- 
ing system that only picks up scrambled 
signals. As of this writing, scrambling 
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Program Listing. Satellite guide and site survey program. 

10 CLS:PRINT#512, "ENTER YOUR CHOICE <S>ITE SURVEY <P>ROGRAM GUIDE 

";:GOSUB640:IFIK$="S"THENGOTO1000ELSEIFIK$<>"P"THENGOTO10 

20 CLEAR1000:DIN A$(24) ,S{75) :GOSUB580 

30 DATA Nickelodeon/Arts, PTL,WGN, Spotlight, The Movie Channel, WTBS, 

E. S.P.N. Entertainment fc Sports Programming Net, A. E.T.N. /Christian 

Broadcasting Network, USA Cable Network/C-Span, Showtime, MTV (Music 

Television) , Showtime 
40 DATAHorae Box Off ice, Cable News Network, Cable News Network Headl 
ine News 

50 DATA HTN Plus/ASCN/National Jewish Television, Cable Health Netw 
ork, Reuters Monitor Service/Eternal Word Television, C-Span,Cinemax 
,The Heather Channel, Modern Satellite Network/Daytime/HBO/USA Net. 
,Cinemax,HBO 

60 F0RZ=1T024:READA$(Z) :NEXT:CLS 

80 PRINTe87,CHR$(176) ;CHR$(176) ;STRING$(9,188) ;CHR$(176) ;CHR$(176) 
90 PRINT§148,CHR$(184) ;CHR$(190) ;STRING$(15,191) ;CHR$(189) ;CHR$(18 
0) ;CHR$(144) 

100 PRINT@210,CHR$(184) ;STRING$(21 ,191) ;CHR$(189) ;CHR$(144) 
110 PRINT@273,CHR$(186) ; STRINGS ( 24 , 191) ;CHR$(144) 
120 PRINT@337,STRING$(25,191) ;CHR$(149) 
130 PRINT@401,CHR$(138) ;STRING$(24,191) 

140 PRINT8466,CHR$(139) ;CHR$(175) ;STRING$(20,191) ;CHR$(143) ;CHR$(1 
29) 

150 PRINTe532,CHR$(131) ;CHRS(143) ;STRINGS(15,191) ;CHR${143) ;CHR$(1 
35) ;CHR$(129) 

160 PRINTP599,CHRS(130) ;CHR$(131) ;CHR$(131) ;STRING$(7 ,143) ;CHR$(13 
1);CHR$(131) ;CHR$(129) 
170 PRINT#365, "Earth"; 
180 REM PLOT SATELLITES 

190 SET(0,24) :PRINT§513, "Satcom 3"; :SET(2, 28) :PRINT§578, "Comstar D 
4"? 

200 SET(5,33) :PRINT§707,"Westar 5" ; :SET(11,38) :PRINTG774, "Satcom 2 
"; 

210 SET(18,41) :PRINT§842,"Anik A3/A2"; :SET(28,44) :PRINT0976, "Anik 
Dl"j 

220 SET(47,46) :PRINTe911,"Anik B"; 
230 SET(64,46) :PRINTg993,"Westar 4"; :SET(78,43) :PRINT§937 , "Comstar 

D1/D2"; 

240 SET(87,40) :PRINT§878, "Westar 3"; :SET(0,21) :PRINT§449, "Satcom F 
1"; 

241 SET(0, 18) :PRINT§385, "Satcom F5" ; :SET(96 ,37) :PRINT§817 , "Comstar 
D3"; :REM F5 & D3 

242 SET(101, 34) :PRINT8756, "Satcom F4"; :SET(105,31) :PRINT§694,"West 
ar 1/2";:REM F4 6 WEST 1/2 

250 S-1:REM STAR TWINKLING 

260 GOSUB550:X»0 

270 FORA=1TO75:B-RND(1024) :S«15359+B:C-PEEK(S) : IF032THENNEXTELSEP 

OKES,46:S(X) =S : X=X+1 : NEXT 

280 TW-RND(X) :POKES(TW) ,32:FORDE-1TO20: IFINKEY$«""THENNEXT:POKES(T 

W) ,46:GOTO280 

290 REM SATELLITE DATA VIDEO PAGE 

300 CLS:GOSUB55ft 

310 PRINTS128, "SATELLITE" , "POSITION" , "COUNTRY" 

320 PRINT" 



330 PRINT'Satcom F3R","131 degrees" , "U.S.A." 

340 PRINT"Comstar Dl","127 degrees", "U.S. A." 

350 PRINT"Westar 5", "123 degrees", "U.S. A." 

360 PRINT-Satcom F2","119 degrees", "U.S.A. " 

370 PRINT'Anik 3", "114 degrees" , "Canada" 

380 PRINT" Anik B","109 degrees", "Canada" 

390 PRINT'Westar 4"," 99 degrees", "U.S.A. " 

400 PRINT'Comstar D2"," 95 degrees", "U.S. A. " 

410 PRINT'Westar 3"," 91 degrees", "U.S. A." 

420 PRINT'Comstar D3"," 87 degrees" , "U.S.A. " 

430 PRINT'Satcom F4",* 83 degrees" , "U.S.A. " 

440 GOSUB610 

450 REM SATCOM DATA VIDEO PAGE 

460 CLS:GOSUB550 

470 PRINT: PRINT" Satcom F3R Programming Services For Transponders 

1 Through 12" 

480 X-194:F0RP-1T012:PRINT8X,P,A$(P) :X*X+64:NEXT 

490 GOSUB600:GOSUB610 

500 CLS:GOSUB550 

510 PRINT: print" Satcom F3R Programming Services For Transponders 

13 Through 24" 

520 X=194:PORP«13T024:PRINTW,P,A$(P) :X«X+64:NEXT 

530 GOSUB600:GOSUB610 

540 RUN 

550 PRINT87, "SATELLITE GUIDE - Hit any key for more information"; 

560 RETURN 

580 REM 

MAKE BORDER 

590 A$-STRING$(63,131)+CHR$(191) :F0RA=1T012 : AS=AS+CHR$ ( 26) +CHR? ( 8) 
+CHR$(191) :NEXT:F0RA=1T013:B$-B$+CHR$(191)+CHR$(26)+CHR$(8) :NEXTrB 
$-B$+CHRS(191)+STRING$(62,176) :RETURN 

Listing continued 



is almost nonexistent in the satellite in- 
dustry. Only Home Box Office has 
threatened to modify their signal in the 
future. 

Some programming on Canada's Anik 
satellite is scrambled, but it has techno- 
logical problems that are so significant 
that subscribing cable companies have 
appealed to them to discontinue this 
practice. 

The Latest Developments 

Satellites launched since 1982 have 
more power than previous units. Conse- 
quently, picture quality remains high 
with less efficient (and less expensive) 
receiving systems. 

Because of these advances, great dif- 
ferences exist between equipment per- 
formance and cost. You can find dish 
antennas for around $1,200 that give 



"Satellites launched 

since 1982 have 

more power than 

previous units. 

Consequently, picture 

quality remains high 

with less efficient 

(and less expensive) 

receiving systems. " 



the same performance as those costing 
in excess of $10,000. You can install 
complete systems today for about 
$2,000 to $3,000. 

The latest line of receivers on the 
market are more attractively packaged 
than those of a few years ago. They also 
provide new features and innovations. 

Richly furnished cabinets, illumi- 
nated meters, and digital channel read- 
outs enhance front panel appearance. 
Several companies even offer hand- 
held, infrared remote control. 

The Program 

Our program contains a satellite 
guide option and a site survey option. 
The satellite guide option lists all satel- 
lites and their position relative to earth, 
and prints a graphics display. It also 
lists the 24 TV channels on the Satcom 
F3R satellite. 

The she survey option prompts you 
for your location and tells you if you 
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You've Got 

TOTAL ACCESS 



TM 



Rose 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



TM 



AEROCOMP DISK DRIVES 

External drives lor TRS80 Mod I or III. IBM PC & Tl 
99/4 A are complete with power supply & enclosure 

40 Track Single Side (Tandon) $199 

40 Track SS "Flippy" (MPI) 239 

40 Track Dual Head (Tandon/MPI) 279 

80 Track SS (MPI) 299 

80 Track SS "Flippy" (MPI) 329 

80 Track Dual Head (Tandon) 379 

Color Computer Add-On 

Drives (2nd & 3rd) 199 



8" EXPANSION BOX 

Complete system with power supply & fan 
(slimline) 

Two 8" Single Side $699 

Two 8" Double Side 849 



'All New! Half-High Drives 
Available Now. Call For Prices. 
BARE DRIVES 

Internal drives for TRS80 Mod. Ill, IBM PC & Tl 99/41 

(controller reauired) 

40 Track SS (Tandon) $169 

40 Track Dual Head (Tandon/MPI) 249 

80 Track SS (MPI) 269 

80 Track Dual Head (Tandon) 339 

8 inch Single Side Thmline 260 

8 inch Dual Head Thinline 375 

MODEL III DRIVES 

Complete internal drive kits with 40 track drives, disk 

controller, power supply, all hardware & cables. 

Drive Kit Only (no drives) $1 99 

One Drive System Kit 369 

Two Drive System Kit 539 

MODEL I DOUBLE DENSITY 

CONTROLLER 

AEROCOMP "DDC" $99 

AEROCOMP "DDC" w/LDOS 169 

AEROCOMP "DDS" 49 

(Double dens data separator for Percom 
Doubler. LNDoubler or Superbrain 

AEROCOMP •SDS" 29 

(Single dens, data separator) 

MISCELLANEOUS DRIVE STUFF 

TRSDOS 2.3 Disk & Manual $20 

LD0S(Mod I or III) 119 

NEWD0S/80, 2.0 (Mod. I or III) 129 

Diskettes (10 in library box) 23 

MX80 Ribbons $9 

Drive Power Supply & Enclosure (5 25") .59 

2-Drive cable 24 

4-Dnve cable 34 

Extender cable 13 

' Total Access 1 983 



MICRO 
DECISION 



$1299 

64 K CP/M 2.2. two serial ports 
MBASIC - WordStar - Logicalc 
BaZic - Correct- IT 
12" Green video 80 x 25 
Double Density (200 K) Drive 



ACE1000 



Uses APPLE Software 
Call, it may be 
cheaper by now 



$999 



brother 



EM-1 Electronic 
Typewriter 
Choose 
Either One 



HR1 PRINTER 

$799 



EPSON FX-80 

160cps Fnction/Tractof (S32 Option) 
10.12.165 cpi 

+ DoublewKte CCCQ 

6.8.12 ipi M>%JV57 



TRS-80 SPECIAL EQUIPMENT 

80 x 24 Video Board for the Model III. . . $199 

112K CP/M 22 tor the Model III $399 

16K Memory, 200nsec. Guar 1 yr 8/S12 

64 K Memory, 200nsec, Guar 1 yr 8/S48 

1 2' Green Phosphor Monitor $87 



SOFTWARE 

Super Utility Plus 3.0 by Kim Watt $59 

Alcor PASCAL Model I or III 169 

P&T CP/M for the Mod II 159 

P&T CP/M for the Mod 16 189 

P&T CP/M for the Hard Disk 199 

All SNAPPWARE **10%"OFF 

I have lots of other software. Call me now fa your 
needs. All at discount 



MEDIA & SUPPLIES 

8" disks SS DblDen, Guar. Forever $29 

8" disks DS DWDen, Same Guarantee. ... 39 

5" Flipsort, holds 75 disks 19 

8" Flipsort, same deal 29 

5" Library boxes $2.50 

8" Library boxes $3.50 

5" or 8" Head cleaning kit 9 

Tractor paper, letter size 2900 sheets 25 

LNW COMPUTERS 

128K LNW-80 Model II, Both NTSC & RGB 
outputs. RS232 and parallel printer port. 
Uses both 5" and 8" drives. Works on all 
known TRS-80 DOS's. Comes with 
DOSPLUS. Also works with CP/M 2.2 
which is included at no extra cost Now 
a FREE 12" GREEN PHOSPHOR 
monitor and cable included All for 
the low price of $1695 



PRINTERS & OTHER ACCESSORIES 

ANADEX DP-9500A or 9501 A $1239 

ANADEX DP-9620A 200 cps 1399 

ANADEX WP-6000, 284 cps. NLQ 2695 

PROWRITER 120 cps 10" Fnction/Tractor 375 
PROWRITER 2, 120 cps, 15" Fric/Trac . . 669 
STARWRITER F-10, 40 cps Daisy Wheel. 1250 
PRINTMASTER F-10, 55 cps Daisy . . . 1499 

Rutishauser Bidirectional Tractor 1 99 

Rutishauser Sheet Feeder 895 

PERIPHERALS - 
32K LNW Expansion Interface w/RS232...$329 
Mod III RS232 complete, ready to install. 79 
Signalman Mk I Modem 300 baud, 
direct connect 89 

Please add $5 handling charge to all orders under $24 

ORDER NOW! 
TOLL FREE 
800-527-3582 

Write or call Toll free lines are for orders only. Texas 
residents call 21 4/458-1 966 and deduct $2.00 from 
your order. If you need technical information or service 
use the Texas number. Prices are subject to change 
without notice and are mail order only. I accept VISA 
or MASTERCARD, you can send a check or money 
order (allow a couple of weeks for personal or 
company checks to clear) or order COD (cash, 
certified check or money order only). Shipping is not 
included unless otherwise indicated Please add $5 
handling charge to all orders under $24. Texas orders 
add 5% tax No tax added on shipments outside 
Texas. Order up - I need the money! 

TOTAL ACCESS 

P.O. BOX 790276 
DALLAS, TX 75379 
214-458-1966 

NEXT DAY SHIPMENT on all in stock Merchandise 



TM 



^ See List ol Advertisers on Page 291 
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l.ishnt continued 

600 PRINTei28,A$; :PRINT3128,B$; :POKEl6383 f 191 i RETURN 

610 GOSUB550:PORX»1TO200:IFINKEY$«""THENNEXTELSERETURN 

620 PRINT&25," "; :FORX=1TO50:IPINKEY$«""THENNEXT 

630 GOTO610 

640 IK$=INKEY$:IFIK$=""THENGOTO640ELSER£TURN 

1000 CLEAR100:DEFDBL A-Z 

1010 PI-3. 141592 

1020 R-3963 

1030 H*2230fl 

1040 CLS:PRINT§18, 'SATELLITE SITE SURVEY PROGRAM" :PRINTSTRING$( 64 , 

"-") 

1050 PRINT'ENTER THE LONGITUDE OF THE SATELLITE. HOW MANY DEGREES 

"; 

1060 INPUT SD: INPUT" HOW MANY MINUTES ";SM 

1070 INPUT"IS IT WEST OR EAST LONGITUDE (ENTER W OR E) ";SB$ 

1080 SA-SD+SM/60:IF SB$»"E"THEN SA— SA 

1090 INPUT" ENTER DISH (ANTENNA SITE) LONGITUDE. HOW MANY DEGREES 

";DD 

1100 INPUT"HOW MANY MINUTES *;DM 

1110 INPUT'IS IT WEST OR EAST LONGITUDE (ENTER W OR E) ";DB$ 

1120 DA«DD+DM/60:IF DB$-"E"THEN DA— DA 

1130 INPUT"ENTER DISH LATITUDE. HOW MANY DEGREES "jTD 

1140 INPUT'HOW MANY MINUTES ";TM 

1150 TA«TD+TM/60:TA-90-TA 

1160 A»ABS((SA-DA)*PI/180) 

1170 OTA*PI/180 

1180 CA=SIN(C)*COS(A) :TA=SQR(1/ (CA*CA) -1) 

1190 AA-ATN(TA) 

1200 BS-SIN(A)/SIN(AA) 

1210 TB-1/SQR(1/(BS*BS)-1) 

1220 BB-ATN(TB) :BB-BB*180/PI 

1230 IF SA>DA THEN TR-180+BB ELSE TR=180-BB 

1240 PRINT'THE TRUE BEARING (ANTENNA HEADING) IS "; 

1250 PRINTUSING"M#.##";TR 

1260 X-SQR(R*R+(R+H)*(R+H)-2*R*(R+H) *COS(AA) ) 

1270 SE-(R+H)*SIN(AA)/X 

1280 TE=1/SQR(1/(SE*SE)-1) :EL«=ATN(TE) 

1290 EL-EL*180/PI 

1300 EL-90-EL 

1310 PRINT"THE ANGLE OF ELEVATION IS "; 

1320 PRINTUSING"###. ##"; EL; : PRINT" DEGREES" 

1330 PRINT: INPUT'HOW MANY DEGREES IS THE MAGNETIC DEVIATION OF YOU 

R AREA ">MD 

1340 INPUT" IS THAT WEST OR EAST (ENTER W OR E) "»A$ 

1350 IFA$="W"THEN MD-MD+TR ELSE MD=TR-MD 

1360 PRINT'YOUR COMPASS HEADING SHOULD " }USING"#M . ##";MD; :PRINT" 

DEGREES" 

1370 INPUT'HIT <ENTER> FOR MENU ";OLS:RUN 



can place a satellite receiving station on 
your property by calculating the head- 
ing and elevation of a dish for any given 
satellite. 

The program first prompts you with 
a menu containing the two options. Hit 
the S key to perform a site survey or the 
P key for a satellite programming guide. 

The satellite guide section presents a 
visual picture of the earth, with current 
satellites in their respective positions. 
The program displays information about 
the various satellites, including their 
longitude (true position) and their coun- 
try of origin. 

There must be an unobstructed line 
from your dish to the satellite. In the 
winter, trees have no effect on micro- 
waves, but the addition of water in 
foliage in the spring and summer wipes 
out reception. 

The mathematics used in the pro- 
gram involve spherical trigonometry 
and is beyond the scope of this article. 

Data Input 

It's easy to accurately determine the 
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latitude and longitude of your house by 
checking a map or referring to the deed 
to your house. You must also input the 
magnetic deviation (the difference be- 
tween true north and magnetic north) in 
your area. You can get this information 
from your local airport or, if you live 
along the coast, from the local Coast 
Guard base. 

Enter the longitude of the satellite 
you wish to find by copying the infor- 
mation from the satellite guide section 
in the program. Enter fractional degrees 
using either a decimal point or by an- 
swering the prompt for the number of 
minutes of arc. For example, if your lat- 
itude is 74 degrees, 50 minutes, you can 
enter this into the program in two ways: 

ENTER DISH (ANTENNA) LONGITUDE 
HOW MANY DEGREES? 74.8 
HOW MANY MINUTES? 



or 



ENTER DISH (ANTENNA) LONGITUDE 
HOW MANY DEGREES? 74 
HOW MANY MINUTES? 50 



Installing It Yourself 

If you're interested in purchasing 
your own satellite receiver, we suggest 
you talk to your local satellite dealer. 
Unless you're mechanically inclined, a 
site inspection for reception quality, 
and siting the antenna should be done 
by a professional. 

With a distance of 22,300 miles from 
satellite to the equator, an antenna 
situated off by 1 degree will miss its in- 
tended satellite by 1,000 miles. A 
preliminary inspection will save you a 
lot of wasted effort in an area of poor 
reception. 

By running your own cable, pouring 
the concrete, and assembling the equip- 
ment yourself, however, you can save 
hundreds of dollars. 

We purchased a Wilson Microwave 
system. The Wilson system is not a 
turnkey system; that is, the manufac- 
turer does not supply all the material 
necessary to put the system into opera- 
tion, but only a few connectors and 
some wire aren't included. 

The wire is standard multiconductor 
cable. It runs the power supplied by the 
indoor receiver out to the low-noise am- 
plifier and downconverter. You also 
need an RG-59U wire to bring the TV 
signal from the downconverter into the 
house. You can purchase both types of 
wire at Radio Shack. 

One person cannot install this system 
alone. Laying the concrete foundation 
for the dish and assembling its panels 
are two-man operations. 

An 1 1-foot dish has a surface area of 
95 square feet. On a 100-square-foot 
area, an 80 mph wind exerts a 2Vi ton 
force. This kind of stress makes a secure 
base essential. 

Conclusion 

In retrospect, the expense we incurred 
to construct a working earth satellite re- 
ceiver system was higher than orig- 
inally estimated. Several nuts and bolts, 
two special microwave connectors 
(available from a satellite system 
dealer), and wire and cables all were ad- 
ditional expenses. 

The system is fairly easy to operate, 
although you have to adjust the fine 
tuning every time you change stations. 

During heavy rain, we pick up some 
snow on the picture, but other than 
that, picture quality is good. 

What's on TV tonight? Everything! ■ 

Dan Keen and Dave Dischert can be 
reached at Soft Horizons Computer 
Software, RD1 Box 432, State Highway 
83, Cape May Court House, NJ 08210. 



DOES YOUR COMPUTER 
WA$TE MONEY? 

It Does If Your Software 
Wastes Valuable Time 




Our programs and systems are the result of experience gained working with custom systems. They were developed 
for the general user with the user's needs in mind at all times. Every effort has been made to make the very best possible 
use of the hardware in terms of speed, capacity, and efficiency. 

All versions of mailing list and data bank are programmed in compiler basic using ISAM' files to eliminate the need for 
time consuming, inefficient, and expensive sorting. Through the use of 'ISAM' files, the maximum number of records that 
can be handled by the computer is only limited by the availability of disk space and not by the amount of computer 
memory needed for sorting and the complete file is accessible at any time. 

The use of ISAM' files is not the only time saver, as compiler basic programs run considerably faster than ordinary 
basic programs. For example: the loan amortization system was programmed in compiler basic just to speed up the time it 
takes to calculate the loan payments and produce the amortization report. 

Both versions of our inventory system are programmed in interpreter basic, utilizing both direct access and variable 
length records to maximize access speed and the use of available disk space. 

The dedication, ability, and years of experience of both the system analyst and the programmer combine to make 
these programs and systems among the finest that you have had the opportunity to use and certainly one of the best values 
on the market. 



DATA BANK SYSTEM 

Builds and maintains user defined data f Me(s) with up to 16 (12 for 
model III) user defined data fields. The user specifies file name, 
control field data, data field names, and data field size The 
system adds records, changes records, deletes records, displays 
individual records, prints all records in user defined format with 
user's choice of fields and order, and prints records by user 
defined search as to field and value in user defined format with 
user's choice of fields and order. Model 2, 12 $295.00 

Model Ml ...'.'..'. $27540 

MAILING LIST SYSTEM (Alpha Sequence) 

Builds and maintains mailing list in alpha sequence by entire 
name. The system adds records and checks for duplicates, 
changes records, deletes records, displays individual records, 
prints all records, prints records by user specified zip code 
search, prints all mailing labels, prints individual labels (as many 
as requested), prints labels by user specified zip code search, & 
prints telephone directory. The data file created by this system 
can be used as input for the mailing list (zip code sequence) 

system Model 2, 12 $200.00 

Model III $175.00 

MAILING LIST SYSTEM (Zip Code Sequence) 

Builds and maintains mailing list in alpha sequence within zip 
code sequence. This system adds records and checks for 
duplicates, changes records, deletes records, displays individual 
records, prints all records in alpha sequence within zip code, 
prints records by user specified zip code, prints all mailing labels 
in alpha sequence within zip code, prints individual labels (as 
many as requested), prints labels for user specified individual zip 
codes, prints telephone directory in alpha sequence within zip 
code, and reads in f ile(s) created by mailing list (alpha sequence) 

Model 2, 12 $250.00 

Model III $225.00 



LOAN AMORTIZATION 

Calculates personalized loan payments and interest User specifies 
loan amount, interest rate, and length of loan. Displays monthly 
payment, displays monthly analysis, displays totals, prints monthly 
payments, prints monthly analysis, and allows user to enter over 
ride of monthly payments and recalculate totals and print or 

display monthly analysis. Model 2, 12 $125.00 

Model III $115.00 

INVENTORY CONTROL SYSTEM 
(Retail, Wholesale, Manufacturer) 

Builds and maintains records on all in stock items. Records 
contain user's part number, manufacturer's part number, on 
order quantity, in stock quantity, reorder point, wholesale price, 
retail price, sales history for preceeding month, year, same month 
last year, this year to date, last year to date. Displays individual 
item record, prints complete record for all items, and prints 
suggested purchase order The add routine checks for duplicates. 

Model 2, 12 $275.00 

Model III $225.00 

DESK CALENDAR 

Each month prints on 14v« x 11 paper. Each day is blocked to 
allow appointments entry. User specifies beginning month and 
number of months and number of calendars to be printed. 4 lines 
of user information may be printed on each month which makes 
it useful as an advertising media. Model 2 12 $49.95 

Model III $49.95 

WALL CALENDAR 

Each year prints on 8V? x 11 paper. User specifies beginning 
month and number of calendars to be printed 4 lines of user 
information may be printed on each month which makes it useful 

as an advertising media Model 2, 12 $49.95 

Model III $49.95 



For Additional Information Send for User Documentation — $15 00 per copy. 



Minimum Hardware Requirements 

Model III 48k 1 Disk 

Model 2, 12 64k 1 Disk 



Shipping Costs Included on Pre Paid Orders. 
N.C. Residents Add 4H% Sales Tax. 
Personal Checks Allow 3 weeks. 



CDP 



Route 3, Box 1 • Hamptonville, N.C. 27020 
(919) 468-2113 

8 am • 5 pm Eastern 



*• 65 
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REVIEW 



A Modem Sampler 



by R. A. Langevin 



• ••• 

J-Cat 
$149 

• ••• 

103/212 Smart Cat 
Novation Inc. 
18664 Oxnard St. 
Tarzana, CA 91356 
$595 

• ••V2 

212A/D Direct Connect Modem 
Universal Data Systems 
5000 Bradford Drive 
HuntsvOe, AL 35605 

$745 

These three direct-connect modems 
offer attractive alternatives to meet the 



Choose one of these 
modems and get the 
right communication abil- 
ity for your applications. 



need to transmit information from your 
computer over telephone lines. They 
differ significantly in price and capabili- 
ties, but one of them is likely to suit 
your needs. 

Each of the three modems works well 
and does all that it's supposed to. If you 
can get along with a 300 baud modem, 
the J-Cat is hard to beat in terms of 
price and performance. It's small, 
works perfectly, and is about as 
inexpensive a modem as you can buy. 

If you need a 1,200 baud modem, in 







103/212 




Feature 


J-CAT 


Smart CAT 


UDS 212A/D 


Size (Inches) 


5.0 x 1.9 x 1.3 


10.0 x 4.7 x 1.2 


10.85 x 9.76 x 2.42 


Baud Rates 


300 


300/1200 


300/1200 


Auto Dial 


See Text 


Yes 


Yes 


Manual Answer 


Yes 


Yes 


Yes 


Auto Answer 


Yes 


Yes 


Yes 


Keyboard Dial 


No 


Yes 


Yes 


Manual Redial 


Yes 


Yes 


Yes 


Auto Redial 


No 


Yes 


Yes 


Oial Modes 


See Text 


Pulse/MFTD 


Pulse/MFTD 


Memory 


None 


Last # 


5 #'s ♦ Last # 


Asynchronous 


Yes 


Yes 


Yes 


Synchronous 


No 


No 


Yes 


Resetiable Defaults 


No 


Yes 


No 


Self Test 


No 


Yes 


Yes 


Analog Loopback 


Yes 


Yes 


Yes 


Local Digital Loopback 


No 


Yes 


Yes 


Remote Digital Loopback 


No 


Yes 


Yes 


Phone Jack(s) 


RJ11C 


RJ11C 


RJ11C/RJ45S 


Power (Watts) 


8.0 


13.5 


7.0 


Power Supply 


Wall XFMR 


Wall XFMR 


Internal 


Power Switch 


No 


No 


Yes 


Status Response 


LED 


DISPLAY 


DISPLAY 


Phone Service 


1* 


1* 


1. 2, 3* 


Cables Provided 


All 


Phone Line 


Phone Line 


Price 


145.00 


595.00 


745.00 



•Phone Service: 1 - Permissive, 2 - Programmable, 3 - Private Line 

Table 1. Summary of modem characteristics. 
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addition to or instead of 300 baud oper- 
ation, the Smart Cat offers a near-per- 
fect alternative. It's remarkably small, 
offers all the features you're likely to 
need, and is competitively priced. 

Alternatively, if you want a modem 
that can handle any 300 or 1,200 baud 
operation you might encounter, the 
UDS 212A/D is an excellent choice. It 
offers all the flexibility you're likely to 
need, is easy to operate, and includes di- 
agnostic capabilities to isolate commu- 
nications problems on the line, in the 
modem, or in the terminal equipment. 
All in all, it's a good product for com- 
mercial or industrial applications. 

Table 1 summarizes major features. 
Which modem you choose depends on 
your finances and applications. 

The three modems differ radically in 
size. The Novation J-Cat is scarcely 
larger than a pack of cigarettes. Its 
more capable companion, the 103/212 
Smart Cat, resembles a tall paperback 
book. The UDC 212A/D, clearly in- 
tended for commercial use, has a foot- 
print that is almost 3/4 of a square foot! 

The J-Cat and UDC units are housed 
in plastic cases and the Smart Cat comes 
in a nonmagnetic metal case. All the 
units should retain their physical in- 
tegrity in any ordinary use. 

A conventional plug-in wall trans- 
former powers the two Novation mo- 
dems. The UDC unit has an integral al- 
ternating current (ac) power supply. 

Neither of the Novation units has an 
on/off power switch, an unfortunate 
omission. The power requirements of 
these modems are nominal, however, 
ranging from 7-13.5 watts, so it's feasi- 
ble to leave them turned on all the time. 

J-Cat 

The J-Cat is a simple, full duplex, 300 
baud modem that has surprising capa- 



bility in spite of its tiny size. You oper- 
ate it with two push buttons; it has two 
LEDs that indicate its status. One push 
button puts the modem on line; the sec- 
ond disconnects it. Pressing the two 
buttons simultaneously puts the modem 
in analog loopback mode, so that its 
output connects to its input — an invalu- 
able test to verify its operation. 

You select auto answer or manual 
answer modes with a slide switch on the 
back of the unit. The two LEDs indicate 
when the modem is off-hook and ready 
for operation. 

Although the J-Cat is not directly 
usable in auto-dial mode, you can im- 
plement auto pulse dialing with dial 
tone detect if 1 input and 1 output bit 
are available from another port. The 
operations manual provides a simple 
program to implement directory dialing 
and automatic redial using these bits. 
The program is written in Applesoft 
Basic but you can readily adapt it to Mi- 
crosoft Basic. 

The J-Cat is relatively unique among 
modems in providing automatic mode 
selection. When on line, the modem al- 
ternates between originate mode for 
two seconds and answer mode for four. 
As soon as it detects a carrier, the 
modem locks in its current mode. This 
relieves the user of any concern for se- 
lecting the modem's operating mode — a 
very useful feature. 

The J-Cat comes with all the required 
cables, including one terminated with a 
female RS-232C D-connector that plugs 
into the output of your serial interface. 
A Y cable is also provided; one end of it 
plugs into the phone line via an RJ11C 
plug. The other leg of the Y terminates 
in a socket that accepts the RJ11C plug 
on the telephone. 

You don't need to buy anything else. 
Simply hook up the modem according 
to the clear directions in the operations 
manual, load your terminal program, 
and you're ready to communicate. 

The J-Cat's operating manual is a 
414- by 914-inch booklet of 21 pages 
that is clearly written and provides 
all the necessary information to install 
and operate the modem. A schematic is 
included, with detailed pin-outs for the 
connectors on the back of the unit. 

103/212 Smart Cat 

The 103/212 Smart Cat is the J-Cat's 
big brother. In addition to operation at 
both 300 and 1,200 baud, the user-pro- 
grammable Smart Cat provides numer- 
ous operating conveniences. 

In normal operation this modem has 
no visible controls. You select all oper- 
ating modes by entering commands 

~ Set UH of AMnMnn on An 291 



from the terminal or computer key- 
board. As a consequence, you can tuck 
the modem away from the operating 
position in the most convenient loca- 
tion. You can even place it inside a piece 
of equipment if the thermal environ- 
ment isn't severe. 

The Smart Cat has five option 
switches located behind its front panel. 
These are readily accessible if you pry 
the panel off with a small screwdriver. 
Once you set them, these switches will 
not normally need resetting. 

Switch 1 sets the command mode. It 
determines the character you must send 
from the terminal to indicate to the 
modem that a command follows. Nor- 
mally, the percent sign is the command 
indicator. By using the option switch, 
you can select any other character, in- 
cluding a control character, and substi- 
tute it for the percent sign. You termi- 
nate all commands with a carriage 
return. 

Switch 2 sets the response mode and 
gives the user the option of receiving 
modem responses on the terminal 
screen in full English words or in the 
terse mode as single characters. 

Switch 3 sets the data rate to which 
the modem is automatically set when 
you turn on the system. Naturally, you 
can change the rate afterward from the 
terminal keyboard. 

Switch 4 enables or disables the auto 
answer mode. You cannot subsequently 
reset this switch selection from the key- 
board. 

Switch 5 determines whether the 
modem senses the Data Set Ready 
(DSR) and Clear To Send (CTS) lines all 
the time or only after detection of a car- 
rier on the phone line. 

You maintain normal control of the 
Smart Cat with 21 commands that you 
can enter directly from the terminal or 
computer keyboard. Depending on the 
type of command, some have argu- 
ments and/or default values. 

Initialize puts the modem in its nor- 
mal working state, while Hangup dis- 
ables the modem, waits three seconds, 
and hangs up the phone. You cannot 
receive data during the three-second 
wait. 

Dial, followed by a string of up to 32 
characters, takes the phone line off 
hook and dials in accord with the char- 
acter string contents. Allowable charac- 
ters comprise 0-9, #, *, I, P, and W. I 
indicates that the modem generates tele- 
phone pulses rather than tones until the 
next P or W. 

P forces a wait for a dial tone; if no 
dial tone occurs in five seconds, the 
modem hangs up and gives a No Dial 



response. W forces a five-second wait 
before the modem begins dialing. 

You can use another dialing com- 
mand, Count, followed by an integer, 
to determine how many rings the 
modem waits for before aborting a call. 
Redial dials the last number at intervals 
of 40 seconds until you reach the num- 
ber or you've dialed it 10 times. 

Voice puts the modem in voice mode, 
and Modem puts it in data mode. Pick- 
up puts the phone line off hook, and 
also puts the modem in voice mode. 
Answer and Originate put the Smart 
Cat in answer or originate mode, re- 
spectively; they both take the phone line 
off hook. You must follow the last 
mode command, Giveback, with zero 
or 1 to put the modem in full or half du- 
plex mode 1 , respectively. 

Speed, followed by 1 or 2, sets the 



MODEL I 

UPGRRDE 

TD 9GK RRM 

• 4BK keyboard — O TV on power-up 

• plua access to 32K E/I memory 

• and 2. 7K RAM above ROM. 

a Run CP/M 2. 2 or your Model 1 DOS 

•169 BIGMEM kit or H99 installed. 
•20 Utility aoftMara. «119 CP/M 2.2, 
•34 ViaiCalc patch for 53K storage. 
Sand SASE for flyer with details. 

XMftS SPECIAL - DEDUCT 1BX 

HICR0HATCH 
P0 Box 581 
DeHitt MY 13214 " 4 * 
(315)446-8831 after 6PN 

miCUC T* VIlICNf, IIIKI Tl HICMMTCN. 
CP/i TH tlilTK. HUNCI IK. 




FOR USC WITH MOST MKRO COMPUTERS 



[j PAYMENT ENCLOSED $ • Add 



$1 00 per order for postage and handling Out 
side USA add $2 50 per unit ordered send US 
funds only □ Visa [J MasterCard 



£, P.O. BOX 70O8 

P ^CNGUN ROSEVILLE. Ml 4830S 

* • MMtcra 1-800-732-0614 

Michigan Residents Add 4% 
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modem speed to 300 or 1,200 baud. In 
answer mode, the modem automatical- 
ly sets itself to the incoming data's 
speed, irrespective of speed selection. 

Follow New with a single ASCII 
character to substitute that character 
for the current command character. 
Use Echo followed by zero or 1 (with a 
default of zero) to enable (zero) or dis- 
able (1) the echo of commands back to 
the terminal. The modem does not echo 
data. 

Query forces the modem to return a 
single character that describes its status. 
Long, followed by zero or 1, causes the 
modem to provide full English (zero) or 
single-character (1) responses. Break, 
followed by an integer n, sends a space 
on the phone line. The length of the 
space is n times 250 milliseconds. 

With the modem in voice mode, 
XMIT followed by a phone number 
transmits the DTMF tone pairs corre- 
sponding to the given number. 

Follow Unlisten with a one- to four- 
character hexadecimal (hex) argument 
to transmit the number of bytes given 
by the hex argument as data. This per- 
mits transmission of data that the mo- 
dem would otherwise interpret as com- 
mand strings. 

Format followed by a single-charac- 
ter argument establishes the number of 
data and stop bits, and the parity of 
data transmitted over the phone line. 
The allowable arguments and their in- 
terpretations are shown in Table 2. 

Test, followed by an integer from 
zero to 3, selects, respectively, hardware 
integrity, analog loopback, remote digi- 
tal loopback, or local digital loopback 
test modes. The hardware integrity test 
also occurs automatically when you 
turn on the machine. It verifies the 
modem's operation and correct connec- 
tion of the RS-232C cable. 

The responses the Smart Cat provides 
are clear and easy to understand. Ring 





Stop Data 


Argument 


Bits Bits Parity 





1 7 Mark 


1 


1 7 Space 


2 


1 7 Odd 


3 


1 7 Even 


4 


1 8 None 


8 


2 7 Mark 


9 


2 7 Space 


A 


2 7 Odd 


B 


2 7 Even 


C 


2 8 None 


Table 2. Format allowable arguments and in- 


terpretations for the Smart Cat. 



indicates that the modem detects a ring- 
back tone, and Busy indicates a busy 
signal. No Dial, CONN Lost, and No 
ANS are self-explanatory, although the 
No ANS occurs only after the specified 
number of rings. 

UNSUCC means that for some un- 
specified reason the modem cannot 
complete the call. Ready means that 
carrier is acquired and communication 
established. Ring In tells you the 
modem detects an incoming ring. Final- 
ly, OK tells you that your last command 
is complete and the modem is ready for 
another. 

While this description sounds com- 
plicated at first reading, operating the 
Smart Cat becomes second nature with 
a little use. The operations manual, 
identical in size to that of the J-Cat, is 
only slightly longer, yet it provides a ful- 
ly adequate description of all the 
modem's operational and test features. 

The Smart Cat package includes the 
wall mount power transformer and a 
cable to connect the modem to an 
RJ11C phone jack. An RJ11C socket 
on the back of the modem lets you plug 
the telephone directly into the unit. 

The manufacturer provides no RS- 
232C cable, so you have to make one up 
yourself or buy one ready-made. The 
manual describes the necessary pin-out 
details at the cable's modem end. You 
have to determine the corresponding 
pin-outs at the serial connector on your 
terminal or computer. 

UDS 212A/D 

The UDS 212A/D includes most of 
the features available in the Smart Cat 
as well as a number of others that make 
it a natural selection for system houses 
that want to carry only a single modem 
that can be configured to meet most 
communications needs. 

Additional features available in the 
212A/D include selectable permissive or 
programmable transmit levels, operation 
with private phone lines, optional syn- 
chronous operation at 1,200 baud, bat- 
tery-backed memory for five 30-char- 
acter dial strings, and capability to wait 
for a second dial tone. The modem also 
displays and edits stored dial strings, 
and has a Help command to display and 
describe commands. 

The 212A/D is built on two circuit 
boards. The top board contains the 
modem circuitry, and the bottom the 
automatic calling unit (ACU) and the 
power supply. DIP (dual in-line pack- 
age) switches on the top board permit 
setting a variety of options. 

These include forced answer, forced 



originate modes, and private line opera- 
tion. You can disconnect on long 
receive or transmit space, loss of Data 
Terminal Ready (DTR), or loss of car- 
rier. The 212A/D also has auto answer 
always or only when DTR is enabled, 
synchronous or asynchronous opera- 
tion, and 9-, 10-, or 11-bit characters 
(including stop bits). 

Strapping options on the board per- 
mit grounding or ungrounding the 
modem chassis; selecting internal, ex- 
ternal, or slave transmit clock options; 
and selecting permissive or program- 
mable transmit levels. A DIP switch on 
the lower board enables or disables the 
automatic calling unit. 

In operation, you should think of 
these option selections as permanent, 
since you must remove the modem 
cover to change them — not something 
you care to do often. 

The 212A/D starts up in initialization 
mode. It expects to receive an upper- 
case, two-character string, EN, from 
the terminal or computer. The modem 
uses this input to establish the opera- 
tional character rate and data format. 
After it receives EN, the modem 
responds with: 

(CR) (LF) 

UDS 212 DIALER 
(CR) (LF) 

The colon is the prompt from the 
ACU and indicates that the unit is ready 
to receive commands. Eleven com- 
mands, input as single, uppercase let- 
ters, are available to control the opera- 
tion of the ACU. 

H, the Help command, displays a 
brief summary of the available com- 
mands on the terminal or computer 
screen. 

D lets you dial a telephone number 
directly from the keyboard. You can 
specify a number of up to 30 characters 
long containing both digits and opera- 
tors. Five operators are available: W, 
D, E, A#, and space. W in the dial 
string causes the ACU to wait for a sec- 
ond dial tone. This important feature 
permits use of the modem with alterna- 
tive carriers such as MCI, Sprint, and 
soon. 

D in the dial string introduces a pause 
of 1.5, 3.0, or 4.5 seconds in the dial- 
ing operation. You select the length of 
the pause. E at the end of the dial string 
immediately terminates the calling se- 
quence and connects the telephone to the 
phone line for voice communication. 

A#, after all other digit entries and 
where # is a digit from 1 to 5, takes the 
dial string from the memory register 
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identified by # to complete the original 
dial string. The space character is pure- 
ly a cosmetic operator to improve the 
string's readability. 

ACU command L, followed by a 
digit from 1 to 5, loads any of the five 
memory registers with a dial string. The 
ACU repeats the loaded string back to 
the CRT and returns to command mode 
with the display of the : prompt. P, the 
Print command, displays the contents 
of all loaded memory registers on the 
screen. 

C, followed by a digit from 1 to 5, 
clears the contents of the correspond- 
ingly numbered memory register. If C is 
followed by the character L rather than 
a digit, all memory registers clear. 
Where # is a digit from 1 to 5, # causes 
the ACU to dial the dial string in the 
memory register identified by #. 

R redials the last number dialed, and 
X redials the last used dial string contin- 
ually until the modem detects an 
Answer Back Tone. 

Q, the Quit command, aborts any 
ACU operation. B takes the phone line 
off hook, and N cancels the B com- 
mand and returns the phone line to on 
hook status. 

A primitive, although entirely ade- 
quate, editing capability lets you correct 
mistakes made when you enter dial strings 
from the keyboard. Enter the character 
@ to delete the last character entered. If 
you enter several @ characters, the pro- 
gram deletes the corresponding number 
of previous keyboard entries. 

The 212A/D provides simple English 
responses to the terminal or computer 
screen to indicate the status and disposi- 
tion of ACU actions. These are self-ex- 
planatory and include such responses as 
Off Hook when you initiate dialing, No 
D.T if the modem detects no dial tone, 
echo of the number dialed, No ABT if 
the modem receives no Answer Back 
Tone, and Busy, Complete, or Abort to 
indicate call disposition. 

In addition to the options you set on 
the modem board itself, you can set six 
more options from the keyboard. OA#, 
where # is zero or 1 , requires dial tone 
detection before dialing (zero) or waits 
four seconds and then dials (1) even 
though no dial tone is present. Zero is 
the default. 

OB# provides pulse dialing, the de- 
fault, where # is zero and multifrequen- 
cy tone dialing where # is 1. OC# pro- 
vides DSR active if is zero, the default, 
or inactive if lis 1. 

OD# sets the wait time before an un- 
successful dialing attempt aborts. 
Values of # from zero to 4 give wait 
times from 15 to 75 seconds. The de- 



fault is 30 seconds. OE# sets the delay 
produced by the D command in a dial 
string. Values of # from zero to 2 give 
delays of 1.5 to 4.5 seconds. Three sec- 
onds is the default. 

OF# lets you turn on or off the echo 
of commands back to the screen. A value 
of zero for # turns off the echo and 1 
turns it on. Echo On is the default. OG0 
reinitializes the modem to its start-up 
condition and requires entry of the ini- 
tialization sequence EN to enable the 
automatic calling unit. 

While it is convenient to set some of 
the modem parameters with the 
OA-OF commands, whatever settings 
you've established are lost if you turn 
off the modem or reinitialize it by using 
OGO. 

Finally, six buttons on the modem's 
front panel provide the last remaining 
elements of control. Four of these ac- 
tivate a modem self-test or the three 
loopback test modes.. A fifth forces the 
modem into 1 ,200 baud mode, and the 
sixth puts the telephone set on or off 
line. 

Overview 

All the modems are covered by a one 
year warranty on parts and labor. None 
of them is readily repairable by the user, 
nor is this recommended. 

You must return the two Novation 
modems to the factory for repair. You 
can have the UDS modem repaired at 
the factory or at a number of authorized 
service locations. Since none required 
service as I prepared the review, I don't 
have information on the turnaround 
time for repair. 

Reliability of the Novation units 
should be very good since they use a 
high degree of integration — the J-Cat 
has four integrated circuits and the 
Smart Cat has only a few more. 

The UDS 212A/D might be very re- 
liable as well, but the extraordinary 
parts count is a potential source of 
worry — the modem board alone has 83 
integrated circuits! 

None of the three modems comes 
with communications software. I oper- 
ated all of them for test purposes with 
the Lobo Max-80 using both the COM- 
M/CMD terminal program that is inte- 
gral with LDOS and SMODEM, a re- 
cent version of the widely available, 
public domain MODEM7, operating 
under CP/M 2.2. 

I accessed CompuServe and several 
local bulletin board systems at both 300 
and 1,200 baud (only 300 baud for the 
J-Cat) to verify the modems' opera- 
tional features. Each performed exactly 
as represented in the respective manuals, 



and I encountered no problems of any 
kind. 

Most of my complaints are minor. 
The J-Cat's remarkably small size 
makes you wish you could tuck it inside 
a terminal or a computer case. Unfortu- 
nately, you must use the unit's push 
buttons to put it on line and back off 
line. It's also aesthetically annoying that 
the label on the face of the modem is 
printed upside down. 

The Smart Cat leaves little room for 
complaint. It does what it's supposed to 
do and does it well, although it would 
be nice to have a power switch. 

The UDC modem has some prob- 
lems. As I mentioned, you must take 
the cover off to set the character size. 
This is a minor annoyance that becomes 
a major one when you remove the cover 
and the front panel falls off. It turns out 
to be devilishly difficult to get back in 
place. 

A more serious problem exists with 
the telephone set. Although you can 
plug the phone into the back of the 
modem and activate it with the talk 
switch on the front panel, you can't use 
the phone at all unless the modem is 
turned on. 

It is also unfortunate that, although 
you can reset a number of modem pa- 
rameters from the keyboard, you can't 
reset the defaults for these parameters 
and you are returned to the built-in de- 
faults whenever you turn off or reini- 
tialize the modem. 

The UDS manual deserves special 
mention. Unlike the manuals for the 
Novation units, the UDS manual tells 
you both too much and too little. It is 
full of acronyms, usually defined long 
after they are first introduced if they are 
defined at all. 

It tersely describes the bewildering 
array of available options that you can 
set or strap on the modem board, but 
you get no guidance as to what options 
you should select in what circum- 
stances. An entire chapter is devoted to 
"theory of operation," but after read- 
ing it you know nothing useful about 
the modem. 

Last, although the battery-backed 
memory for dial strings is a convenience 
and works perfectly, I can't understand 
why, with the low price of CMOS mem- 
ory, storage is provided for only five 
numbers. Except in dedicated service, 
five numbers don't seem to be 
enough. ■ 



Contact R.A. Langevin at 7621 Fon- 
taine St., Potomac, MD 20854. 
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ACCESS UNLIMITED 



PERCOM DATA DISK DRIVE HOLIDAY SPECIALS : 

You always expect highest quality from Percom Data " v . Each 
Drive is thoroughly tested and gets a 48 hour burn-in so you 
get trouble free performance! 



• MODEL I 

DDA-35 
TFD40-1 
TFD40-2 
AFD40-1 

AFD40-2 



Upgrade to double density 

Single sided double density — one drive 

Single sided double density — two drives 

Single sided double density — one drive 

add-on 

Single sided double density — two drive 

add-on 



S 99.95 
$239.00 
$449.00 

$239.00 

$449.00 



CLOSE-OUT! Limited Quantities 



TFD1QO-1 35 track single sided double density $239.00 

TF042-1 40 track flippy-one drive $269.00 

TFD42-2 40 track flippy-two drive $499.00 

AFD42-1 40 track flippy add-on $269.00 

• MODEL III 

TFD340N1 Single sided double density — one drive $359.00 

TFD340N2 Single sided double density — two drives $559.00 
ADD340N1 Single sided double density internal 

add-on $199.00 
ADD340X1 Single sided double density external 

add-on $229.00 

TFD344N1 Double sided double density — one drive $419.00 

TFD344N2 Double sided double density — 2 drives $699.00 
ADD344N1 Double sided double density internal 

add-on $289.00 
ADD344X1 Double sided double density external 

add-on $319.00 

CLOSE-OUT! Limited Quantities 

TFD342-1 40 track flippy — one drive $339.00 

TFD342-2 40 track flippy — two drives $569.00 

ADD342X1 40 track flippy external add-on $299.00 



BIG DISCOUNTS ON PRINTERS 



NEW! Brother CX15™ 

New! Brother HR1A™ 

C.itoh F10™ 

Okidata '" 

Star Micronics 10X & 15™ 

Star Micronics Gemini 10 TV 



Only $ 559.00 

Only $ 899.00 

Only $1495.00 

All Models Call for our super low prices! 

Call for our super low prices! 

(CLOSEOUT) Only S 259.00 



DIABLO™ MODEL 2300 MATRIX PRINTER 
Close Out Special — 

• Rugged, commercial duty • 7x9 dot matrix • High Speed! 200 
CPS 1 • Top of the line, highest quality 

Reg. Retail $2495.00 FOR UMITED TIME OHLY! 
WHILE QUANTITIES LAST $999.00 



A BUSINESS COMPUTER AT A 
PERSONAL COMPUTER 
PRICE!!!!! 




IBEX 7202 



Full-Blown 
Business Computer/ 
Word Processor 



LAST CHANCE — 



Regular Retail Over S1 0.000. 00 

NOW 
ONLY 



$1879.00 



WHILE QUANTITIES LAST! 

With FREE CP M™ 
& MBasic 80 Ver. 5.2" 

PLUS: Discounts on MicroPro"' Word Processing & ADS'-' 
Accounting Software! 

Main Features Of The iBEX 7202": 



• Two 8 inch double-sided/double density floppy 
disk drives with 2.4 million characters total 
Storage! This is a super system and one you can afford. 

• 64 KB RAM 

• 12" High resolution, green screen video monitor 

• Selectable 40, 80, or 132 character display 

• Parallel & RS-232 interface 

• Supports IBM 3740 format switchable 

• Strong, compact, and styled for the office 

CALL FOR FURTHER INFORMATION 

Christmas Sale! — 15% Off All Prices Listed 
PowerSOFT Software from Breeze QSO Inc.™ 

One disk BOOTS up on either machine. At PowerSOFT. we don't 
believe in making a customer buy a separate version for Mod I or III. 
We ALWAYS include BOTH versions on the SAME disk for your 
maximum convenience 80 Track versions are available on request 
All titles are for Mod I or III unless specified 



PowerSOFT Product Title 

SUPER UTILITY PLUS 3.0 
SUPER UTILITY PLUS'3.0 for MAX80 
INSIDE SU * '3.0 MANUAL 
SU~ 3.0 TECH MANUAL 
INSIDE SU - 2.2z MANUAL 
SU+ 2.2zTECH MANUAL 
"THE TOOLBOX" for LDOS 
MASTER MECHANIC SET for LDOS 
POWERDRIVERS tor SuperScnpsit™ (printer 
POWERDRIVER E (EPSON MX-80 100) 
POWERDRIVER P (PROWRITER) 
POWERDRIVER F (F-10 STARWRITER) 
POWERMAIL 

POWERMAIL PLUS' — Mod I, III. MAX80 
POWERMAIL PLUS" — Mod II 12 16 
POWERDRAW 

POWERDOT (EPSON or PROWRITER Only) 
POWERTERM Smart Terminal Pkge 
DOSPLUS II Operating System 
For Model II, 12. and 16Z80 
SCRIPLUS3 

THE BASIC'S COMPILER SYSTEM 
MAKE/80 (Mod I or III) 
SUPER UTILITY (Mod I ONLY!) 
QUICK-FIX (Mod I ONLY!) 

'Coming out wry soon Please inqwe lor shipping dale 



Retail Price 



79.95 
99.95 
19.95 
14.95 
19.95 
14.95 
69.95 
39.95 



Inverse 



$ 29.95 
$ 29.95 
$ 29.95 
S 99.95 
$150.00 
$150.00 
$ 39.95 
$ 49.95 
$ 29.95 
$249.95 

$ 39.95 
$ 49.95 

$ 19.95 
$ 29.95 
$ 19.95 



MICRO SHOPPING CENTER 



We have added approximately $400,000.00 worth of 
brand new business and game software with more 
arrivals daily. 
Call or write for our new FREE catalog. 



Save $$ on our most 



lar items! 



Percom Data Separator (reg. $29.95 
Screens for Models I*. II*. Ill Green, Lt. Blue, 

Dark Blue, and Amber Bronze for color video 

(reg. $24.95) 
Perfect Data™ Head Cleaning Kit (reg. $29.95) 
Drive Numbering Tabs, pkg. 0-3 (reg. $4.50) 
NEW Style Smoked Grey Acrylic File, 
Holds 75-5V« Diskettes 



COLOR CODERS — 5 Cases (stores 
10 disks ea.) — 5 different colors 
Library Cases (holds 10) 



Now $23.95 

Now $12.95 
Now $19.95 
Now $ 3.95 

Now $16.95 



$24.95 
$ 2.95 ea. 



MEDIA FOR LESS 



SENTINEL™ complete with hub rings & lifetime warranty! 

$ 22.80 bx of 10 
$ 24.80 bx of 10 
$ 33.80 bx of 10 

$ 35.80 bx of 10 

$ 38.80 bx of 10 



Single sided Single density 5Vt" 
Single sided'Double density 5%" 
Double sided/Double density 5%" 

Single sided/Double density 8" 
Double sided/Double density 8" 



* BUY DISKETTES IN BULK AMD SAVE S$$SSS$SS$ 



These prices peed hy the case only 

Single sided. Single density 5W 
Single sided Double density 5 V*" 
Double sided/Double density 5W 

Single sided/Double density 8" 
Double sided/Double density 8" 

Disc Jackets — Only 15c each 



$210.00 case of 100 
$230.00 case of 100 
$310.00 case of 100 

$290.00 case of 100 
$340.00 case of 100 



SIGNALMAN™ MODEM 

Mark I witti RS232C Interface. 0-300 baud 
Mark II with Atan Interface. 0-300 baud 
Mark III witti Tl Interface. 0-300 baud 
Mark VI with IBM Interface. 0-300 baud 
Mark VII with RS232C Interface 

& auto answ orig 0-300 baud 



$99.00 
$ 99.00 
$139.00 
$279.00 

$159.00 



Anti-StatiC MatS — Colors: Russett, Blue & Gold, Natural Brown 
& Golden Brown 



3' x 5' — Reg. $75.60 
4' x 6' — Reg. $120.90 
4' x 8 — Reg $161 30 



Sale 
Sale 

OCUV 



$57.00 

$91.00 

$122.09 



SAVE on an "Arrick Quick Switch" 

Changes a "TRS-80" printer port or a peripheral between computers 
instantly and easily. Available for "RS-232" and "Centronics." Plugs 
included. 

Now from $99.95. Cables from $26.95 



• COMPUTER WORK DESK special? 

• Bi-level • Oak Or Walnut Pressure Laminated (NOT cheap vinyl 
or paper) • 19%" x 31 7 /e" x 35" High 

Your Price Only $39.95 

Pius Freight 

"0'$Hllivan" Computer Furniture Also Available — Call 
For Details, Prices 

Printer Ribbons — For Centronics, Diablo, C-ltoh, Star and 
Other Popular Models From $5.95 each 

'ig roiigj w tjiiwitgw miiit' 

* Prion sebfoct to change without notice * 

• T 'aWiar« of "ancv Raoe Snack Core 

"Reg. Trademarks • Prices do not include state taxes 



1 (800) 527-3475 



Order by phone or by mail We accept Visa. MasterCard, cashier's checks certified 
checks, and money orders With personal checks, allow additional time tor bank 
clearance Your bankcard will not be charged until your order is shipped FOR 
SHIPPING CHARGES Add S3 00 for orders under 50 lbs Add S5 00 for orders over 
50 lbs EXCEPT Orders of furniture, printers and systems — call for freight charges 

D Please send me a FREE catalog. I'm not ready to order at this time. 
□ YES, I'm taking advantage of your Sales prices. 

Name 

Company Name 

Address 

City 



State 



Zip. 



Phone Number I 
Quantity 



Item 



Unit Price 



Subtotal 



Subtotal 

State Sales lax (Texas residents only) 

(See above) handling charge 

Check one: Total 

□ payment enclosed □ Visa D MasterCard' 



1 




*rf Masternarrl numbers ahnve name 


Expiration Date: I I I 


Authorized signature, it charged 


ACCESS UNLIMITED 



DEPT. B-12/401 N. Central Expy. flichardson, Texas 75080 

Tel. 1-800-527-3475 214-340-5366 

214/690-0207 — Sat. and Evenings Only 
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Real World Control— Part II 



by David L. Engelhardt 



U 



se your Model in to control a burglar alarm, 
sprinkler system, or other household device. 
These programs work with the hardware in Part I. 



This is the second of a two-part arti- 
cle for advanced builders to utilize a 
real-world interface and clock to operate 
a burglar alarm and sprinkler system with 
room for other real-workl applications. 

The four Assembly-language pro- 
grams in this article let you implement 
home control devices through your 
Model III, a real-time clock, and the in- 
put/output (I/O) board described in 
Part I (November 1983, p. 216). 



After you build and test your I/O 
board, you're ready to program your 
computer to take over some mundane 
household chores. 

Gock Program 

Program Listing 1 is almost identical 
to the one in "Real World, It's About 
Time" {80 Micro, March 1983, p. 342). 
I made a few slight changes to allow a 
relationship with the sprinkler and bur- 







Program Listing I. Clock Initialization. 


00010 


; CLOCK 


INITIALIZATION AND INTERRUPT READ PROGRAM 


00020 


.-WRITTEN BY DAVE ENGELHARDT 


3/15/82 


00030 


,-SAVE MEMORY SIZE OF -32447- 


(THIS WILL ALLOW ROOM 


00040 


; 






FOR PATCHING IN FUTURE 


00050 


; 






PROGRAMS . ) 


00060 


; EXECUTE WIT 


A /32448 




00070 


; 








00(180 




INITIALIZATION SECTION 


00090 










00100 




ORG 


7EC0H 




INITIALIZATION SECTION 


00110 




DEFW 


0HH 




SPARE 


00120 


BEGIN 


DI 






DISABLE INTERRUPTS 


00130 




i.D 


A, 12 




USED TO SET INTERRUPTS 


00140 




LD 


(4213H) .A 




ENABLE EXT INTERRRUPTS 


00150 




I.D 


H' , START 




LOAD START OF CLOCK 


00160 




LD 


(403EH) ,HL 




TO INTERRUPT VECTOR 


00170 




LD 


A, 16 




00180 




OUT 


(0ECH) .A 


; ENABLE TRS MAIN BUS 


00190 




LD 


A, 128 


;SET UP 8255 FOR 


00200 




OUT 


(SETUP) .A 


; MODE 


00210 




XOR 


A 




00220 




OUT 


(OUTC) .A 


;MAKE SURE PC7 IS OFF 


00230 




OUT 


(0ECH) ,A 


;SH"T OF MAIN BUS 


00240 




I* 


1 


;SET MODE 1 INTERRUPT 


00250 




EI 




; ENABLE INTERRUPTS 


00260 


EX I 


JP 


1A19H 


;BACK TO BASIC 


00270 


j 








••'81 


I 








00790 


INPUT* 


EQU 


30H ;USED 


TO CONTROL CLOCK DATA LINES 


00300 


OUTB 


EQU 


31H ;USED 


TO CONTROL CLK ADnRSS LINES 


00310 


O0TC 


EQU 


32H ,-USED 


TO CONTROL CLK FUNCTIONS 


00320 


SETUP 


EQU 


33H ;USED 


TO CONFIGURE 8255 


00330 


] 








00^41 


; 


CLOCK 


INTERRUPT/ READ PRO . 


•0350 


; 








00360 


START 


PUSH 


HI. 


;SAVE REGISTORS 


00370 




PUSH 


DE 




00380 




PUSH 


BC 




00390 




PUSH 


IX 




00400 




PUSH 


IY 




00410 




PUSH 


AF 




00420 




LD 


A, 16 


; VALUE FOR TRS BUS 

Listing 1 continued 



glar alarm programs. The principal ad- 
dition is the patch in lines 1270-1320. If 
activated, the sprinkler and burglar 
alarm programs patch themselves here. 
These patches contain a jump address 
to the scan sections of the appropriate 
program. The clock's one-second inter- 
rupts trigger one-second scans of each 
program. If either or both of the pro- 
grams become deactivated, they disen- 
gage themselves from the clock's patch 
region. 

Burglar Alarm Program 

Program Listing 2 is heavily com- 
mented. When executed, the program 
prompts you with specific questions re- 
garding system status and locations 
where the alarm system is activated. I'll 
describe some of its basic functions 
below. 

When you run the program, it indi- 
cates its status and asks for the code 
word allowing it to swap its state. The 
code word I used is Mom, but you can 
change it. The program shows each lo- 
cation where the alarm is on. This lets 
you decide which point to deactivate 
when you turn off the system. 

An alarm system must allow time for 
you to exit and enter the building before 
the siren sounds. In this case there is a 
two-minute exit delay and a 30-second 
entrance delay. Two minutes after you 
leave, the system activates itself and 
starts scanning all of the activated alarm 
points. Upon entering, you must deacti- 
vate the system within 30 seconds or the 



The Key Box 

Model m 

16K RAM Cassette Basic 
32K RAM Disk Bask 
Assembly Language 
Editor/ Assembler 
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siren sounds. 

Upon re-entry to the program, you 
must enter the code word to deactivate 
the system. It allows three attempts to 
enter the code word correctly. In case of 
a code entry error, the program jumps 
back to Basic. I label user-changable 
parameters in the listings. Just remem- 
ber to keep the time delay parameters in 
units of seconds. 

Also, in regard to the time delays, 
note that I allow two points in Port 2 for 
entry time delays. I label these in the 
listing under the individual alarms. If 
you need more points, double up some 
of them so that one point covers two 
doors. 

In case of an illegal entry, the pro- 
gram sounds a buzzer attatched to Port 
1, bit 16. This buzzer turns on and off 
for 30 seconds prior to activation of the 
main siren. The siren stays on for two 
minutes then shuts off. After a 30-sec- 
ond wait, the program checks its status 
again and recycles if an alarm condition 
still exists. 

There are also provisions in the pro- 
gram to make sure the relays shut off 
when they should. If the relay isn't off 
or fails to turn off the first time, there is 
one last attempt to shut it off. The sys- 
tem turns on the buzzer and prints an 
error message to attract your attention. 

This is usually the result of a hard- 
ware problem. The relay may actually 
shut off but the indication read back is 
in error. An asterisk blinks once a sec- 
ond in the upper right-hand corner indi- 
cating the system is active. 

I designed this system to be simple to 
use, fairlyburglar proof, and adaptable 
to your needs. It is not a guarantee of 
protection but only part of a home pro- 
tection plan. 

Sprinkler System Program 

In Program Listing 3, I designate 
four sprinkler zones. It starts with a 
menu offering four options: Auto, 
Manual, Go, and Exit. This program is 
self-explanatory, but I'll briefly de- 
scribe each mode. 

The Auto mode patches the scan sec- 
tion of this program into the clock pro- 
gram. Once this is done, the program 
checks the time of day (am/pm), day 
code, and time to start. You can change 
this to suit your needs. When this mode 
starts, each zone runs for 15 minutes for 
a total of two cycles. The Go mode is 
the same as the Auto mode except that it 
starts on your request. 

The Manual mode lets you turn on 
any zone for up to a maximum of 39 
minutes. The program checks for illegal 

Contwaied on p. 158 
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0043" 




OUT 


(0ECH) .A 


; ENABLE MAIN BUS 


09440 




LO 


A, 144 


;SET 8255 FOR CONTROL 


00450 




OUT 


(SETUP) .A 


{CONFIGURE 8255 


00460 




LD 


A,l 


j SET UP FOR READ 


00470 




OUT 


(OUTC) .A 


jPO»T C FOR READ 


00480 




LD 


C,0UTB 


;C IS USED FOR OUT INSTR. 


00490 




LD 


B,12 


;USED TO ADDRESS COUNTERS 


00500 




LO 


H', BUFFER 


; START OF TIME STORAGE 


00510 




CALL 


GET 


;GET Y10 


00520 




CALL 


GET 


;GET Yl 


00530 




LO 


(HL) .'/' 


j PUT / IN WORD 


00540 




INC 


HT. 


;INC TO NEXT LOC IN BUFF 


00550 




CALL 


GET 


;GET M10 


00560 




CALL 


GET 


;GET HI 


00570 




LD 


(HL) .'/' 


;PUT IN SEPERATOR 


00580 




INC 


HL 


;INC TO NEXT POSITION 


00590 




CALL 


GET 


;GET D10 


00600 




BIT 


2, A 


;IS LEAP BIT SET? 


00610 




JR 


Z.GETD1 


j SKIP OF NOT SET 


00620 




AND 


3^H 


; STRIP OFF LEAP BIT 


00630 




DEC 


HL 


;BACK UP 1 POSITION 


00640 




LD 


(HL) .A 


;PUT CORRECT VALUE IN 


00650 




INC 


HL 


;INC TO NEXT POSITION 


00660 


GETD1 


CALL 


GET 


;GET Dl 


00670 




CALL 


FILL 


; INSERT 2 SPACES 


00680 




CALL 


GET 


;GET DAY DIGIT (0-6) 


00690 




AND 


07H 


?MASK FOR DAY CODE 


00700 




LD 


(DIGIT) .A 


;SAVE FOR SPINKLER PROG 


00710 




DEC 


HL 


; RE-ALIGN BUFF PTR 


0072* 




LD 


DE,SU 


;GET ADDRESS OF TABLE 


00730 




RLA 




; SHI FT FOR 2 WORD OFFSET 


00740 




AD" 


A,E 


;ADn DAY INDEX TO A 


00750 




LD 


E,A 


;PUT INDEX TD A REG 


00760 




PUSH 


BC 


; SAVE PORT k ADRSS CONTRL 


00770 




LD 


A,(DE) 


;GET PTR TO DAY CODE 


00780 




LD 


(TEMPI) ,A 


SSAVE LSB OF DAY CODE 


00790 




INC 


DE 


{INDEX TO GET NEXT PTR 


00800 




LD 


A,(DE) 


;GET NEXT PTR TO DAY CODE 


00810 




LD 


(TEMP2) ,A 


;SAVE MSB OF DAY CODE 


00820 




LD 


DE, (TEMPI) 


;GET ADDRESS OF DAY 


00830 




EX 


DE,HL 


;SWAP PTRS POR LDIR MOVE 


00840 




LO 


BC.3 


•SET CTR TO MOVE 3 BYTES 


00850 




LDIR 




;M0VE IT 


00860 




EX 


DE,HL 


;RETORE PTRS. 


00870 




POP 


BC 


; RESTORE PORT i ADDRESS'S 


00880 




CALL 


FILL 


;FILL WITH SPACES 


00890 




CALL 


GET 


;GET H10 


00900 




DEC 


HT. 


;SET BACK BUFF PTR 


11910 




PUSH 


AF 


;SAVE A REG FOR AM CHECK 


00920 




AND 


3^H 


,-MASK FOR H10 VALUE 


00930 




LD 


(HL) ,A 


;PUT H10 VALUE TO BUFFER 


00940 




INC 


Ht. 


;NEXT BUFFER LOCATION 


00950 




CALL 


GET 


iGET Hi 


00960 




LO 


(HL) .': ' 


;PUT IN COLON t 


00970 




INC 


HL 


;NEXT BUFFER LOCATION 


00980 




CALL 


GET 


;GET M10 


00990 




CALL 


GET 


;GET HI 


01000 




LD 


(HL) .' : ' 


;PUT IN COLON 


01010 




INC 


HI. 


;NEXT BUFFER LOCATION 


01020 




CALL 


GET 


;GET S10 


01030 




CALL 


GET 


iGET SI 


01040 




CALL 


FILL 


;FILL WITH SPACES 


01050 




POP 


AF 


jRESTOR AM/PM INFO 


01060 




BIT 


3, A 


J IS THIS 24 HOUR FORMAT? 


01070 




JR 


Z.AMPM 


;SKIP AM/PM DISPLAY SECT 


01080 




CALL 


PILL 


; BLANK WHERE AM WAS TO BE 


01090 




JR 


DISPLY 


;GO AND DISPLAY TIME 


01100 


AMPM 


BIT 


2, A 


;IS PM BIT SET? 


01110 




JR 


NZ.PM 


;PM BIT SET 


01120 


AM 


LD 


(HL) .'A' 


;AM CODE 


01130 




JR 


CONT 




01140 


PM 


LD 


(HL) .'P' 


;PM CODE 


01150 


CONT 


INC 


Ht. 


;INC TO NEXT BUFFER PTR 


01160 




LD 


(HL) , 'H' 


;PUT IN THE M FOR AM/PM 


01170 


DISPLY 


LD 


H', BUFFER 


;BEGIN OF TIME INFO 


01180 




LD 


DE,3C24H 


jDESTINATION TO SCREEN 


01190 




LD 


BC;27 


.•NUMBER OF TTME WORDS 


01200 




LDIR 




;MOVE THE TIME TO SCREEN 


01210 


NODISP 


LD 


A, 15 


;FOR CLOCK ADDRESSES 


01220 




OUT 


(OUTB) .A 


;SET ADDRESS LINES HIGH 


01230 




LD 


A, 129 


;SET READ HIGH-ENABLE INT 


01240 




OUT 


(OUTC) .A 


;TURN ON INTRUPTS VIA PC7 


01250 




XOR 


A 


; CLEAR A REG 


01260 




OUT 


(0ECH) ,A 


;TURN OFF TRS MAIN BUS 


01270 


WATER 


NOP 




;THIS IS WHERE 


01280 


WATERl 


NOP 




THE SPRINKLER SYSTEM 


01290 


WATER2 


NOP 




; IS PATCHED IN. 


01300 


BURG 


NOP 




;THIS IS WHERE 


01310 


BURG1 


NOP 




; THE BURGLER ALARM 


01320 


BURG2 


NOP 




1 IS PATCH BO IN. 


01330 




POP 


AF 


(RESTORE REGISTORS 


01340 




POP 


IY 




01350 




POP 


IX 




01360 




POP 


BC 




01370 




POP 


DE 




01380 




POP 


HL 




01390 




EI 




; ENABLE INTERRUPTS 


01400 




RRT 




.•RETURN TO INTERRUPTED PT 


01410 










01420 




INDEX 


TO DAY MESSAGE 


TABLE 


0143" 










01440 


SU 


DEFW 


SUN 




01450 


MO 


DEFW 


HON 




01460 


TU 


DEFW 


TUE 




01470 


WE 


DEFW 


WED 
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SOFTWARE 
for INVESTORS 

* STOCK MARKET ADVISOR 
i* SYSTEM — SM AS 2.0 

SMAS employs both fundamental and 
advanced technical analysis. Its refined 
procedures that correlate three moving 
averages and other factors have been 
validated by applications to both stocks 
and portfolios. 

•Sophisticated procedures yield weekly 
appraisals of market trend and adviso- 
ries (with action price ranges) to buy, to 
sell, to hold, and not to buy specific 
stocks. 

• Data base includes 196 stocks. A/D file, 
and 4 indexes. 

• Data base stocks were selected on 
fundamentals. 

• You can use SMAS' results the very first 
week. 

• Metropolitan papers print data required 
by SMAS. 

• SMAS is menu driven, with both built-in 
checks for accuracy and efficient utility 
routines. 

• SMAS is especially valuable to inves- 
tors seeking long-term capital gains. 
Minimizes emotional involvement. 

• SMAS works with Nebula and printer; 
with TRSDOS, LOOS. NEWDOS/80, & 
DOSPLUS on TRS-80 (TM Tandy Corp.) 
Models I and III (48K). SMAS version 
2.0 only $169.95 + $3.00 for shipping.* 

f NEBULA STOCK 
i* DATA RETRIEVAL 

Nebula (Model 1, 48K. one drive. 300 
baud modem, RS232, optional printer, 
TRSDOS 2.3 or LDOS 5.0) retrieves 
stock, bond, option, and T-Bill prices from 
Dow Jones Service. Stores symbols in 
data statements and returned prices & 
volumes on disk in data file. Automatically 
disconnects. Does not need a terminal 
program. Dates & times are logged for 
reconciling service bill. Available either 
for independent operation ($52.00 + 
$3.00 shipping) or for use with SMAS 
(Special 1983 combination offer: Only 
$199.95 + $6.00 shipping for SMAS 2.6 
and Nebula together). 

f ANDROMEDA STOCK 
W TRADER & CALCULATOR 

Andromeda records transactions, includ- 
ing purchase/sale prices & dates, divi- 
dends, total cost & net realization. An- 
dromeda does not use special com- 
mands. Learning time is nil. When posi- 
tions are dosed", it posts transactions to 
the sales file. Reports include Active 
Security and Security Sales Summaries, 
Portfolio Summary, and a summary table 
(either 80 or 132 col.) for use with IRS 
Schedule D Requires TRS-80 Model I, 
48K. one drive with TRSDOS 2.3 or 
LDOS 5.0. Andromeda is regularly only 
$51.95 plus $3.00 shipping. 
SAVE — Special Introductory Price 
through Dec. 31, 1983: Andromeda only 
$32.50 + $3.00 shipping.* 

•Remittance by VISA. MASTERCARD, cashiers check, 
of MO. brings prompt shipment. Shipment is made 

after personal checks clear (about 3 weeks). Software 
is sent insured. 



SPIRA 
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NTERPRISES 



Phone your order now: (•17) 441-eaOI '3W' 

P.O. Box 5216, Fort Worth. TX 76106 !E 

306 Crown Road.WWow Park. TX 76066 ^^ 

SPWAJ. ENTERPRISES rS REGISTERED WITH THE S E C AS AN 
WVESTMENT ADVISOR 
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• 1480 


TR 


ram 


THR 




01490 


FR 


DEFW 


PR I 




01500 


SA 


DEFW 


SAT 




01510 


; 








01520 


! 








01S30 


DIGIT 


DEFB 


00 


;USED FOR SPRINK DAY CODE 


81540 


TEMPI 


DEFB 





;LSB STORAGE FOR DAY 


•1550 


TEMP2 


DEFB 





;MSB STORAGE FOR DAY 


01560 


BUFFER 


DEFS 


28 


;TI"E INFORMATION BUFFER 


01570 


; 








61588 


} 


TABLE 


OF DAY MESSAGES 




• 1591 


1 








• 1*00 


SUN 


DEFM 


•SUN' 




01610 


HON 


DEFM 


•MON' 




01620 


TUE 


DEFM 


•TUE' 




01630 


WED 


DEFM 


'WED' 




01*40 


THR 


DEFM 


•THR' 




01*50 


PR I 


DEFM 


■FRI' 




01660 


SAT 


DEFM 


'SAT' 




01*70 


f 








01*80 


; 


SUBROUTINE Tf; READ THE 


CLOCK'S COUNTERS 


01690 


; 








01700 


GET 


OUT 


(C) .B 


{SET 0P ADORSS FOR READ 


01710 




OUT 


(C) ,B 


;DO AGAIN FOR TIME DELAY 


01720 




IN 


A, (INPUT*) 


(READ TIME 


01730 




ADO 


A,30H 


; OBTAIN ASCII VALUE 


01740 




LD 


(HL) .A 


;PUT VALUE TO BUFFER 


0175" 




INC 


HT. 


jINC TO NEXT BUFFER PTR 


01760 




DEC 


B 


J DEC B FOR NEXT COUNTER 


01770 




R*T 




jFINISHEDI 


• 1786 


; 








0179B 


; 


ROUTINE TO PUT SPACES 


BETWEEN TIME INFO 


0180" 


; 








01810 


FILL 


LD 


(HL) ,2011 


.•ASCII SPACE CODE 


01820 




INC 


HI. 


;INC NEXT SPACE 


01830 




LD 


(HL) ,20H 


;PUT IN NEXT SPACE 


01840 




INC 


Ht. 


;INC BUFFER PTR. 


01850 




RET 




;DONE 


01860 


1 








01870 




END 


BEGIN 









Program Listing 2. Burglar Alarm. 


66616 


; BURGLER ALARM PROGRAM 




08028 
• ••38 

00340 


; WRITTEN BY 


DAVE ENGELHARDT 


10/82 


; MAY 


BE EXECUTED WITH A /30992....OR 


00050 


I COMMAND 


ALARM', WITH USE 


OF -CMDTBL- PROGRAM, 


00060 


I 








■•070 




ORG 


791»H 




0008B 


BASIC 


EQU 


1A19H 


;JUMP TO BASIC 


00090 


BURG 


EQU 


7F99H 


j EXTERNAL IN CLK 


00100 


BURG1 


EQU 


7F9AH 


; EXTERNAL IN CLK 


00110 


BURG 2 


EQU 


7F9BH 


; EXTERNAL IN CLK 


00120 


CLEAR 


EQU 


1C9H 


j CLEAR SCREEN 


00130 


DORDLY 


EQU 


120 


1 2 MIN TIME DELAY 


00140 


ENTDLY 


EQU 


31 


;31 SEC ENT DLY (ODD VAL) 


00150 


SIREN 


EQU 


12> 


;2 MIN SIREN ON TIME 


00160 
00170 
00180 
00190 
• 0200 


TOCLK 


EQU 


7F9CH 


.•EXTERNAL JUMP TO CLK 


I START OF 


PROGRAM 




ALARM 


CALL 


CLEAR 


;CLS 


00210 




LD 


H',MESS1 




00220 




CALL 


21BH 


; PRINT INTRO MESSAGE 


00230 




LD 


A,(ALSTAT) 


;TEST TO SEE IF ALARM 


00240 




CP 





1 ACTIVATED OR DEACT 


00250 




JR 


NZ. ALMACT 


;GO IP ACTIVATED 


00260 




LD 


HL,MESS2 




00270 




CALL 


21BH 


; PRINT DEACT MESSAGE 


00280 




JR 


AA 


;SKIP ACTIVATED MESSAGE 


00290 


ALMACT 


LD 


Hr.,MESS3 




00300 




CALL 


21 BH 


; PRINT ACTIVATED MESSAGE 


00310 


AA 


LD 


HT.,MESS4 




00320 




CALL 


21BH 


; PRINT CODE MESS 


00338 




LD 


B,4 


J 3 TRYS FOR CODE- LOOP 


00340 




CALL 


CODE 


;GO AND TEST FOR CODE 


00350 




CALL 


BUSON 


;TURN ON TRS INTERNAL BUS 


00360 




IN 


A,(1H) 


; INPUT RELAY ALARM PORT 


00370 




CPL 




; COMPLIMENT VALUE 


00380 




AND 


30H 


;MASK RELAY BITS 4 k 5 


••39« 




CP 





;ARE THE ALARMS OFF? 


• ■400 




JR 


Z.ALT 


;SKIP IP RELAYS ARE OFF 


00410 




OUT 


(IB) ,A 


;TURN OPF RELAYS 


00420 




CALL 


DLY 


;GIVE THEM TIME TO LATCH 


00430 




JR 


2. ALT 


;SKIP IP OFF FOR SURE 


00440 




LD 


Hr.,ALMPLT 




• ■450 




CALL 


21BH 


{PRINT RELAY FAULT MESS 


00460 




JR 


OFFA 


;GO AND DEACT SYSTEM 


00470 


ALT 


LD 


A, (AL5TAT) 


;FLAG USED TO PUT 


••488 




CPL 




; SYSTEM IN IT'S 


80490 




LD 


(ALSTAT) .A 


; OPPOSITE STATE 


00500 




CP 


■ 


;IS IT SET? 


00510 




JR 


NZ.ACTALM 


;GO TO ACT SYSTEM 


00520 




CALL 


CLEAR 


; CLEAR SCREEN 


86538 




LD 


HI.HESS2 




88546 

8857* 
06580 
00591 
00600 




CALL 


21BH 


; PRINT DEACTIVATE MESS 


; DISABLE ALARM PROGRAM 




OFFA 


XOR 


A 


;CLR A 
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My wonderful upgrade offer: 

If you bought my accounting software a while back, 
it's good news. 

If you didn't, it's a good reason to buy it now. 



You're probably growing. My software keeps 
growing too. 

I've tinkered with it right along, improving 
it constantly. My accounting systems now work 
for CP/M, TRSDOS and MS/DOS (the IBM PC). 
It's a natural outgrowth of my support. Talk to 
a few thousand users on the phone, and you 
get a few new ideas. 

Early on, I resolved that none of my customers 
would suffer if they bought a system before I 
improved it. So I've made this offer ever since I 
started over four years ago: 

No matter when you bought, I'll upgrade any of 
my accounting systems to its latest capability on 
the same machine for $25. If you've upgraded your 
machine, I'll give you a replacement system for 
either $25 or the difference between what you paid 
for your software originally and the price of the new 



software. If you've gone from a TRS-80 Model I to a 
Model n/16 or an IBM PC, say, you get a full credit 
for whatever you paid me for your Model I systems. 
Just send me your old disks and I'll send you the 
new ones. 

It's this simple. If you ever buy any of my 
software, you'll never lose your investment. 

I wish the whole world were that simple. 



Taranto 

& ASSOCIATES. INC 



• 70 



Modal I, Modal III and Modal 4 ■yatama: Accounts Payable. Accounts 
Receivable. General Ledger. Inventory Control. Invoicing. Payroll. 
Modal II. Modal 11/12/16, CP/M and IBM PC ayatama: General Ledger. 
Accounts Payable /Purchase Order. Accounts Receivable (Open Item or 
Balance Forward), Payroll /Job Costing, Inventory Control. 
Post Office Box 6216. 121 Paul Drive, San Rafael CA 94903. Outside 
California, toll free (800) 227-2868. In California. (415) 472-2670. 



CP/M ia a trademark of Digital Research Corporation. TRS-80 and TRSDOS are trademarks of Tandy Corporation. MS/DOS la a trademark of Microsoft Corporation 
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SPACE 



- ■ " 

■ ill 



Definitely THE BEST of the space 
games for the TRS-80 MOD l/l 1 1 

• 1 ,2 or 3 SIMULTANEOUS players! 

■ Each piloting a separate space ship 

* Incredibly realistic graphics! 

* Fast arcade response! 

* Options individually selected! 

• Meteors • Blackhole Gravity 

• Frying Saucers • Objects & Mines 

• Bounce or Wrap-Around Screen 

• Weapons: Missiles or Lasers 

• Difficulty options selectable! 

• # of Saucers • Saucer Speed 

• Space Ship Power • Gravity Force 

• Meteor Speed • Fuel Supply 

• Weapon Supply • Laser Length 

• Sophisticated ship controls! 

• Variable thrust level • Rotation • Flip 

• Fire left or right barrel • Hyperspace 

• Cooperative or Competitive! 

• Numerous scoring options 

• 1 player can fly 2 ships - 1 with each hand! 

* Alpha S Trisatlck compatible * Sound 

32K Disk $29.95 or 16K Tape $26.95 

Specify MOD I or III. 22 page manual included. 

California residents add 6% sales tax. 

Outside USA (except Canada) add $1000 

Copyright 1983 by John McAfee ^3^ 
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SOFT SYSTEMS 
& CONSULTING 

POBOK bOOJiA S.i"U Bdfbdt^ CA 93160 



"ms-80- 






WOBOS" I 



St — lc Operatlna 8ytt*m 

WOBOS I ■ ■ mm driven. creetruetured program «i BASIC mat 
Drowses acorn to over 30 uhkty functions during development or 
actual uaa of a program. Ha uracue layout aaowj you to develop 
your program) witter, a wet) organized a m ra u i w aa that provide* 
a very atrong foundation to biatd upon. You always nad to ste/t 
from scratch before but now. after loarjng WOBOS I you 'a Mart 
with eeverei K of subroutines and system utJWaa. Imagine whet 
tfas can do tor your productMtyt WOBOS I at not an ecoeeaory 
to your program. It actually becomes its foundation! 




aberrated above is (fie "rtmery Menu of WOBOS I for Model at 
In addition lo the feature* shown, the DEVICE I/O generates a 
eeperata »-choic* menu that wis aftow you to compile, update. 
sort and output your data flee, k eleo Includes a uttaty that wta 
save both the DATA and WOBOS I on tape and or disk 
With controaabte SOUND! 

"Once you've used' II. you'll never arr/fe 
enofher pregrem miihmui W 

Pteaaa soeofy your complete TRS-ao system when ordering, 
WOBOS I cornea with en In e trucBon Manual and It la succeed on 

- Cassette for al tape systeme I upgradable to disk) I 35 

- Caaaatle transferable to disk tor Model I disk syatema t 35 

- Diskette lor Model ■ and Color Computer disk syatema t«o 

Shipped Firet Ctaaa Atrmea at no estra charge 
N you mention tide ad. 



oaocR PHONE 
<903> 289-1133 



VTSA 



SEND CHECK. HOMEY ORDER Ovt NUMBER AMD 

uvmATtON on of rooNCMCorr camo to 

Wt^^EWH: OlP€>:. ; ' :■:-■ ^179 
M» H. Hayden Bay Orteej. Portland. Oregon grew 

■JrJ nn M <t rmft«. 



mm 

' tll-ll Is a IB al IllIT Cflr. 



^ 
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■ ■610 




DI 




;DISABLE INTERRUPTS 




■ ■620 




LD 


(BURG) .A 


(CLEAR OUT JUMP 




■■630 




LD 


(BURG1) ,A 


; FROM CLK TO 




00640 




LD 


(BURG2) r A 


; ALARM PROGRAM 




00650 




LD 


(ALMPLG) ,A 


{CLEAR SYSTEM FLAGS 




00661 




LD 


(BYPASS) ,A 


1 CLEAR TIME DELAY FLAGS 




00670 




LD 


(ALSTAT) .A 


.CLEAR SWAP FLAG 




00680 




EI 




(ENABLE INTERRUPTS 




00690 
• ■700 

00710 
00720 
00730 




JP 


BASIC 


(JUMP TO BASIC 




1 ENABLE ALARM PROGRAM 






ACTALM 


XOR 


A 


(CLR A REG 




00740 




LD 


(SHPCTR) ,A 


(CLR FOR ALARM MESSAGES 




0075a 




LD 


(MASK1) ,A 


(CLR PORT 2 MASK 




00760 
00770 
00780 
00790 
0080H 




LD 


(MASK2) ,A 


(CLR PORT 3 MASK 




; SCAN 


ALARMS 


FOR SELECTIVE DEACTTVATION 




UPDATE 


CALL 


SECT1 


(SET-UP FOR PORT 2 ALRMS 




00810 




CALL 


CHECK 


(PRINT PORT 2 ALARMS 




00820 




CALL 


SECT2 


(SET-UP FOR PORT 3 ALRMS 




0083" 




CALL 


CHECK 


(PRINT PORT 3 ALARMS 




00840 


Dl 


CALL 


49H 


(SCAN KEYBD 




00850 




CP 


•R' 


(RE-SCAN e DISPLAY ALARMS 




00860 




JR 


Z. ACTALM 


;G0 BACK AND RE-SCAN 




00870 




CP 


•c 


(CONTINUE WITH PROGRAM 




00880 




JR 


NZ.D1 


(GO BACK TO KEYBD SCAN 




00890 




LD 


HL,MESS6 


(PRINT ALARMS DEACT MESS 




0B900 




CALL 


21BH 


(PRINT ABOVE DEACT MESS 




00910 




LD 


A,5H 


(SET FOR TMLOOP 




00920 


TMLOnp 


PUSH 


AF 


(SAVE A CTR FOR TIME DLY 




00930 




CALL 


60H 


(CALL TIME DELAY ROUTINE 




00940 




POP 


AF 


(GET A BACK AND 




00950 




DEC 


A 


( DEC LOOP CTR 




00960 




CP 





(IS A ZERO YET? 




00970 




JP 


NZ- TMLONP 


(GO BACK IF NOT DONE 




00980 




CALL 


CLEAR 


;CLS 




00990 




LD 


Ht\,NESS7 


(PRINT DO YOU WANT TTME 




01000 




CALL 


21 BH 


; DELAY MESS? 




01010 


QTD 


CALL 


49H 


(QUESTION FOR TTME DELAY 




01020 




CP 


■ yl 


IF NO — CONTINUE 




01030 




JR 


Z. DLYARM 


(DO TTME DELAY 




01040 




CP 


•N 1 


(CONTINUE IF NO 




01050 




JR 


NZ-QTD 


(RE-SCAN KEYBD 




01060 


ARM 


LD 


HT,, BYPASS 


(GET TIME DLY CONTRL BYTE 




01070 




SET 


0r(HL) 


(SET TO BYPASS ENTR DELAY 




01080 




JR 


ARMIT 


(SKIP TIME DELAY SETUP 




01090 


DLYARM 


LD 


HI, BYPASS 


(GET TTME DLY CONTRL BYTE 




01100 




SET 


lr(HL) 


(SET FOR ENTRANCE DELAY 




01110 




LD 


HT, TIMER 


(GET EXIT DELAY VALUE 




01120 




LD 


(HL) ,DORDLY 


(2 NIN DOOR EXIT DELAY 




0113B 
01140 
01150 
01160 
01170 


-" 






AND 30 SEC ENTR DELAY 




; PATCH 


ALARM 


PROGRAM TD CLK 






ARMTT 


LD 


A,0C3H 


(PATCH JUMP INSTR TO CLK 




01180 




DI 




(DISABLE INTERRUPTS 




01190 




LD 


(BURG) ,A 


(1ST PART OF JUMP INSTR. 




01200 




LD 


HT., CONECT 


(GET JUMP ADDRESS IN ALRM 




01210 




LD 


(BURG1) ,HL 


(LOAD TO CLK ALARM JUMP 




01220 




XOR 


A 


(ARM THE 




01230 




LD 


(ALMPLG) ,A 


; BURGLER SYS 




01240 




CALL 


BUSON 


(TURN ON INTERNAL BUS 




01250 




IN 


A,(2H) 


(GET AND STORE 




01260 




.LD 


(MASK1) ,A 


{ PO"T 2 MASK 




01270 




IN 


A,(3H) 


(GET AND STORE 




01280 




LD 


(MASK2) ,A 


> PORT 3 MASK 




01290 




CALL 


BUSOFF 


(TURN OFF INTERNAL BUS 




01300 




CALL 


CLEAR 


;CLR SCREEN 




01310 




LD 


HT,NESS3 


(PRINT SYSTEM 




01320 




CALL 


21 BH 


1 ACTIVATED MESSAGE 




01330 




EI 




(ENABLE INTERRUPTS 




01340 
01350 
01360 
01370 
01380 




JP 


BASIC 


(JUMP TO BASIC 




I SECTION SCANNED BY CLK ONCE 


A SECOND 




CONECT 


LD 


HT.,3C3FH 


(GET SCREEN LOC FOR '*' 




01390 




LD 


A, (SWITCH) 


(GET SWAP CONTROL BYTE 




01400 




CPL 




(COMPLIMENT VALUE 




• 1410 




LD 


(SWITCH) ,A 


(STORE VALUE BACK 




01420 




CP 





(IS IT ZERO? 




01430 




JR 


Z. ASTRIK 


(SKIP IF ZERO 




01440 




LD 


(HL).' ■ 


(PUT BLANK TO SCREEN 




01450 




JR 


ASTRIK+2 


(SKIP 




01460 


ASTRIK 


LD 


(HL) .'*■ 


(PUT '•'TO SCREEN 




01470 




LD 


HT., BYPASS 


(GET TTME DELAY BYTE 




01480 




BIT 


1,(HL) 


(IS IT SET FOR DELAY? 




01490 




JP 


NZ -TMEOUT 


(GO TO COUNTDWN ROUTINE 




01500 




LD 


HI., ALMPLG 


(GET ALARM CONTROL WORD 




01510 




BIT 


5,(HL) 


;SET FOR SIREN? 




01520 




JR 


NZ- TMEOUT 


J DO 30 SEC OFF INTERVAL 




01530 




BIT 


6,(HL) 


(IS MAIN SIREN ON? 




01540 




JR 


NZ.CNTDWN 


(GO AND COUNT DWN ON TIME 




01550 




BIT 


4,(HL) 


(SET TO ALTERNATE S"NA 




01560 




JR 


NZ.T30SEC 


(BEEP SONA FOR 30 SEC 




01570 




BIT 


3,(HL) 


(SET TO BYPASS ALARM SCAN 




01580 




JR 


NZ.SKIP 


; UNTTL SIREN CYCLE DONE 




01590 




CALL 


ACTSCN 


(SCAN PORT 2 FOR ALARMS 




01600 




CALL 


CHECK 


(ARE THERE ANY ALARMS? 




01610 




CALL 


SECT2 


(SCAN PORT 3 FOR ALARMS 




01620 




CALL 


CHECK 


(ARE THERE ANY ALARMS? 




01630 




LD 


HT.,ALMFLG 


,-GET ALARM CONTROL BYTE 












/ islmg 2 continued 
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01640 


BIT 


3,(HL) 


;WILL BE SET ON ALRH COND 


01650 


JP 


Z-TOCLK 


/JUMP BACK TO CLK 


01660 SKIP 


BIT 


7,(BL) 


j IS ENTRANCE TIME DLY SET 


01670 


JR 


HZ T30SEC 


jDONT TURN ON SIREN YET 


01680 NODLAY 


CALL 


BUSON 


; TURN ON INTERNAL BUS 


01690 


LD 


A f 16 


; VALUE FOR SIREN 


01700 


OUT 


(1H) ,A 


;TURN ON SIREN 


01710 


CALL 


BUSOPP 


j SHUT OFF INTERNAL BUS 


0172* 


LD 


HT., ALMFLG 


; GET ALARM CONTROL BYT* 


01730 


SET 


6 r (HL) 


;SET TO FLAG SIREN ON THE 


01740 


LD 


HI., TIMER 


/GET TIME CONTROL WORD 


01750 


LD 


(HL) .SIREN 


;LOAD SIRKN WAILING TIME 


017*0 


JR 


CNTDWN 


;GO AND DEC TIME UNTIL-0 


01770 T30SEC 


LD 


HT, TIMER 


/GET TIME CONTROL WORD 


01780 


XOR 


A 


/CLR A FOR COMPARE 


01790 


DEC 


(HL) 


;DEC ENTRANCE DLY 30 SEC 


01800 


CP 


(HL) 


{TEST BL FOR ZERO 


0181" 


JR 


Z. NODLAY 


;TIME DONE-TURN ON SIR*N 


01820 


LD 


H', ALMFLG 


;GET CONTROL BYTE 


01830 


SET 


*, (ML) 


/SET TO TURN ON SONA 


01840 


BIT 


1,(HL) 


/BIT USED TO SWITCH 


01850 


JR 


NZ.SWAP 


l SONA (ON-OFF) TO ALERT 


01860 


SET 


1,(HL) 


j USER TO SHUT SYSTEM 


01870 


JR 


OUTSON 


; OFF UPON ENTRY 


01880 SWAP 


RES 


l.(HL) 


; RESET ALT FLAG 


01890 OUTSON 


CALL 


BUSON 


;TURN ON INTERNAL BUS 


01900 


LD 


A, 32 


j VALUE TO TURN ON SONA 


0191" 


OUT 


<1H) ,A 


/TURN ON OR OPF SONA 


01920 


CALL 


BUSOFF 


;TURN OFF INTERNAL BUS 


01930 


JP 


TOCLK 


/JUMP TO CLK PROGRAM 


01940 CNTDWN 


LD 


H', TIMER 


;COUNTDWN SECTION TIMER 


01950 


XOR 


A 


;CLR A FOR COMPARE 


01960 


DEC 


(HL) 


■DEC TIME DELAY 


01970 


CP 


(HL) 


,TEST FOR ZERO 


01980 


JP 


NZ. TOCLK 


;SKIP IF NOT ZERO TO CLK 


01990 


CALL 


BUSON 


;TURN ON INTERNAL BUS 


02000 


LD 


A, 16 




02010 


OUT 


(1H) ,A 


;TURN OFF SIREN 


02020 


CALL 


BUSOFF 


;TURN OFF INTERNAL BUS 


02030 


LD 


HT., ALMFLG 


1 SET-UP FOR OFF INTERVAL 


02040 


SET 


5,(HL) 


;SET POR SIREN OFF TIME 


02050 


LD 


HT-, TIMER 


j GET TIMER CONTROL WORD 


02060 


LD 


(HL) ,ENTDLY 


;31 SEC PAUSE BWTN CYCLE 


02070 TMEfXJT 


LD 


H' .TIMER 


; PAUSE INTERVAL ROUTINE 


02080 


XOR 


A 


;CLR A FOR ZERO COMPARE 


02090 


DEC 


(HL) 


;DEC TIME 


02100 


CP 


(HL) 


;TEST FOR ZERO 


02110 


JP 


NZ. TOCLK 


;GO IF TTME LEFT 


02120 


XOR 


A 


;CLR A 


02130 


LD 


(ALMFLG) .A 


/CLR CONTROL WORD 


02140 


LD 


HT, BYPASS 


/ AND GO FOR NEW CYCLE 


02150 


RES 


1,(HL) 


/DISABLE ENTRANCE DELAY 


02160 


JP 


TOCLK 


/RETURN TO CLK PROGRAM 


02180 / ALARM SCAN SECTTON 




02200 SECT1 


CALL 


CLEAR 


/CLR SCREEN 


02210 


LD 


HI.MESS5 




02220 


CALL 


21BH 


/PRINT ALARM STATUS HESS 


02230 ACTSCN 


LD 


A, (NASK1) 


/GET MASK FOR ALARMS THAT 


02240 


LD 


B,A 


/ HAVE BEEN DEACTIVATED 


02250 


CALL 


BUSON 


/TURN ON INTERNAL BUS 


02260 


IN 


A,(2H) 


/READ PORT 2 FOR ALARMS 


02270 


CALL 


BUSOFF 


/TURN OFF INTERNAL BUS 


02280 


LD 


HL.MTBLE1 


/GET START OF PORT 2 MESS 


02290 


LD 


(MTBLE) .HL 


/ TBLE t SAVE LOCATION 


02300 


RET 






02310 SECT2 


LD 


A.IMASK2) 


/GET MASK FOR ALARMS THAT 


02320 


LD 


B.A 


/ HAVE BEEN DEACTIVATED 


02330 


CALL 


BUSON 


/TURN ON INTERNAL BUS 


02340 


IN 


A,(3H) 


/READ PORT 3 FOR ALARMS 


02350 


CALL 


BUSOFF 


/TURN OF INTERNAL BUS 


02360 


LD 


HT..MTBLE2 


/GET START OP PO»T 3 HESS 


02370 


LD 


(MTBLE) .HL 


/ TBLE t SAVE LOCATION 


02380 


RET 






02390 CHECK 


XOR 


B 


/MASK OUT DEACT. ALARMS 


02400 


JR 


Z . RETURN 


/ZERO MEANS NO ALARMS 


02410 


LD 


HI .ALMFLG 


/GET ALARM CONTROL WORD 


02420 


SET 


3r(HL) 


/SET TO BYPASS SECT CALLS 


02430 


CP 


1 


/ALARM AT FRONT DOOR? 


02440 


JR 


Z.EE 


/ZERO - IS YES THERE IS 


02450 


CP 


2 


/ALARM AT GARAGE-HSE ENT7 


02460 


JR 


NZ.DD 


/ZERO - IS YES THERE IS 


02470 EE 


LD 


HT,, BYPASS 


/GET TIME DLY CONTL BYTE 


02480 


BIT 


0r(HL) 


/IS 30 SEC TIME DLY SET? 


02490 


JR 


NZ-DD 


/SKIP IF YES 


• 2500 


PUSH 


AF 


/SAVE ALARM BITS 


02510 


LD 


HT, ALMFLG 


/GET ALARM CONTROL BYTE 


02520 


SET 


7,(HL) 


/SET POR ENTR DELY 30 SEC 


02530 


LD 


A.ENTDLY 


/LOAD ENTRANCE DELAY TIME 


02S40 


LD 


(TIMER) .A 


/ TO TTME CONTROL BYT* 


02550 


POP 


AF 


/RESTORE ALARM BITS 


02560 DD 


LD 


B.A 


/SAVE BIT PATTERN 


02570 CI 


LD 


D,0 


/CLR D REGISTER 


02580 


BIT 


0.B 


/IS BIT SET FOR ALARM? 


02590 


JR 


Z. SHIFT 


/SKIP IF NOT AND TEST AGN 


02600 


LD 


HT, (MTBLE) 


/GET CURRENT TABLE ADRRBS 


02610 


LD 


A.(SHFCTR) 


/GET MESSAGE CTR OR INDEX 


02620 


LD 


E,A 


/STORE INDEX INTO E 


02630 


AD" 


HT,,DE 


/GET APPROPRIATE MESS 


02640 


LD 


E,(HL) 


/GET LSB LOCATION OF NESS 


026S« 


INC 


HT, 


/INC PTR TO MSB LOCATION 


02660 


LD 


D.tHL) 


/GET MSB LOCATION OP MESS 


02670 


EX 


DE.HL 


/PUT MESS LOCATION TO BL 

Listing 2 continued 



FOR TRS-80 MODELS 1 , 3 A 4 
IBM PC, XT, AND COMPAQ 



The MMSFORTH 

System. 

Compare. 

• The speed, compactness and 
extensibility of the 
MMSFORTH total software 
environment, optimized for 
the popular IBM PC and 
TRS-80Modelsl,3and4. 

» An integrated system of 
sophisticated application 
programs: word processing, 
database management, 
communications, general 
ledger and more, all with 
powerful capabilities, sur- 
prising speed and ease of use. 

» With source code, for custom 
modifications by you or MMS. 

• The famous MMS support, 
including detailed manuals 
and examples, telephone tips, 
additional programs and 
inexpensive program updates. 
User Groups worldwide, the 
MMSFORTH Newsletter, 
Forth-related books, work- 
shops and professional 
consulting. 




FORTH 



A World of 
Difference! 

Personal licensing for TRS-80: 
$129.95 for MMSFORTH, or 
"3+4TH" User System with 
FORTHWRITE. DATA- 
HANDLER and FORTHCOM 
for $399.95. 

Personal licensing for IBM 
PC: $249.95 for MMSFORTH, 
or enhanced "3+4TH" User 
System with FORTHWRITE. 
DATAHANDLER-PLUS and 
FORTHCOM for $549.95. 

Corporate Site License Exten- 
sions from $1 ,000. 



If you recognize the difference 
and want to profit from it, ask us 
or your dealer about the world 
of MMSFORTH. 

MILLER MICROCOMPUTER SERVICES 

61 Laka Short Road, Natksk, MA 01760 

(617)653-6136 
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32680 




CALL 


21 BH 






PRINT ALARM MESSAGE 




02690 


SHIFT 


LD 


A, (SHFCTR) 






GET MESSAGE CTR AND INC 




02700 




ADD 


A, 2 






CTR FOR NEXT MESS LOC 




02710 




CP 


IK 






ALL 8 MESS BEEN PRNTED? 




9272B 




JR 


Z.PRETRN 






RETURN IF YES 




02730 




LD 


(SHFCTR) ,A 






SAVE NEW INDEX 1 




02740 




RR 


B 






SHIFT B RIGHT 1 BIT 




0275" 




JR 


CI 






GO TEST NEW BIT FOR ALRM 




02760 


PRfTRN 


XOR 


A 






PORT HAS BEEN SCANNED 




02770 




LD 


(SHFCTR) .A 






CLR FOR NEXT PO»T CHECK 




02780 


RETURN 


RET 








RETURN FROM CALL 




02790 














0280A 


; SECRP 


T CODE 


ROUTINE TO ACT. 


OR DEACT ALARM PROGRAM 




0281C 
02820 
02830 






CODE « 


MOM 




CODE 


DEC 


B 




;DEC CTR AND TEST FOR 




02840 




LD 


A,B 






ONLY THREE TRIES TO 




02850 




CP 









GET CODE CORRECT 




02860 




JR 


Z.BAIL 






CODE ERROR... EXIT PROG 




02870 




CALL 


49H 






SCAN KEYBD FOR CODE 




02880 




CP 


'M' 






IS FIRST CHARCT. A 'M' 




02890 




JR 


NX, CODE 






RE-SCAN KEYBD IF NOT 




02900 




CALL 


49H 






SCAN KEYBD 




02910 




CP 


•0' 






IS 2ND CHARCT. A '0' 




02920 




JR 


NZ -CODE 






RE-SCAN KEYBD IF NOT 




02930 




CALL 


49H 






SCAN KEYBD 




02940 




CP 


"M* 






IS LAST CHARCT. A 'M' 




02950 




JR 


NZ.CODE 






DEC B REG AND BAIL OUT 




02960 
02970 
02980 
02990 
03000 




RET 










; ROUTINE TO 


PRINT CODE ERROR 


4 JUMP TO BASIC 




BAIL 


CALL 


CLE»R 




;CLR SCREEN 




03010 




LD 


HI, ERROR 








03020 




CALL 


21BH 




; PRINT CODE ERROR MESS 




03030 
03040 

03050 
03060 
03070 




JP 


BASIC 




;JUMP TO BASIC 




; ROUTINE TO 


TURN INTERNAL 


BUS ON 




BUSON 


PUSH 


AF 




;SAVE A REG AND FLAGS 




030B0 




LD 


A, 16 








03090 




OUT 


(0ECH) ,A 




; ENABLE INTERNAL BUS 




03100 




POP 


AF 




.•RESTORE A REG AND FLAGS 




03110 
03120 
03130 
03140 
03150 




RET 










; ROUTINE TO 


TURN INTERNAL 


BUS OFF 




BUSOFF 


PUSH 


AF 




;SAVE A REG AND FLAGS 




03160 




XOR 


A 








03170 




OUT 


(0ECH) .A 




;TURN OFF INTERNAL BUS 




03180 




POP 


AF 




;RETORE A REG AND FLAGS 




03190 
03200 
03210 
03220 
03230 




RET 










; TIME DELAY 


USED TO ALLOW RELAYS TTME TO SWITCH 




DLY 


LD 


BC4FFFH 




; VALUE USED FOR CNT DWN 




03240 




CALL 


60H 






•CALL TIME DLY 




03250 




IN 


A, (1H) 






•READ RELAYS 




03266 




CPL 








•COMPLIMENT VALUE 




03270 




AND 


30H 






•MASK FOR ALARM RELAYS 




03280 




CP 









ARE THEY OFF? 




03290 
03300 




RET 






















03310 
03320 


; VARIABLES 




















03330 


ALMFLG 


DEFB 









ALARM SYSTEM CONTRL BYTE 




03340 


ALSTAT 


DEFB 









BURGLER ALARM STATUS 




03350 


BYPASS 


DEFB 









TI*E DELAY CONTROL BYTE 




01360 


MASK1 


DEFB 









SAVES PORT 2 DEACT ALRMS 




03370 


MASK 2 


DEFB 









SAVES PORT 3 DEACT ALRMS 




03380 


MTBLE 


DEFW 









TABLE INDEX PTR. 




03390 


SHFCTR 


DEFB 









USED FOR MESS TBLE INDEX 




03400 


SWITCH 


DEFB 









USED TO BLINK '* ' 




03410 
03420 
0343B 
03440 
03450 


TIMER 


DEFB 









TIME DELAY CONTROL WORD 




MAIN MESSAGE TABLE 








MESS1 


DEFM 


'THIS IS THE 


BURGLER ALARM PROGRAM' 




03460 




DEFW 


0D0AH 








03470 


MESS2 


DEFM 


'THE ALARM 


SYSTEM IS * DEACTIVATED *' 




03480 




DEFB 


0DH 








03490 


MESS3 


DEFM 


'THE ALARM 


SYSTEM IS ** ACTIVATED **' 




03500 




DEFB 


IDS 








03510 


MESS4 


DEFM 


'ENTER (CODE 


WORD) TO PUT SYSTEM IN ' 




03520 




DEFM 


'OPPOSITE STATE' 




03530 




DEFW 


0A0AH 








03540 




DEFM 


• 


• 


OFF-ON OR ON-OFF**' 




03550 




DEFB 


0DH 








03560 


MESS5 


DEFB 


0AH 








03570 




DEFM 


"THESE ITEMS 


ARE IN ALARM CONDITION ' 




03580 




DEFM 


'CLO*=E NEEDEC 


POINTS' 




03590 




DEFB 


0AH 








03600 




DEFM 


'R « TO RECHECK C = CONTINUE PROGRAM' 




03610 




DEFB 


0DH 








03620 


MESS6 


DEFM 


■•*** TAKE 


NOTE — ITEMS ABOVE ARE DE- ' 




03*30 




DEFM 


'ACTIVATED 


*« 


* « ■ 




03*40 




DEFB 


0DH 








03650 


MESS7 


DEFB 


0AH 








03660 




DEFM 


'DO YOU NEED 


TIME DELAYS OF *2 MINUTES ' 




03«70 




DEFM 


' LEAVING 


AND 30 SECONDS ' 




03680 




DEFM 


'ENTERING* 


ON THE ENTRANCE DOORS? Y/N' 




03690 




DEFB 


0DH 








0370H 


ERROR 


DEFB 


0AH 








03710 




DEFM 


' — CODE WORD- 


-ENTRY ERROR.. PROGRAM ' 




03720 




DEFM 


'EXITEDI ' 








03730 




DEFB 


0DH 








03740 


ALMFLT 


DEFM 


'RELAY FAULT- 


— SIREN OR SONA ILLEGALY ON' 














Listing 2 continue)/ 



Continued from p. 153 

zone and time entries. When it com- 
pletes this mode, the program patches 
the Auto mode back in for a continued 
time scan. The Exit command leaves the 
program and jumps back to Basic. 

This program also checks for relay 
failures and uses Port 4, bit 2 to sound a 
buzzer if a failure occurs. Upon entry to 
the program, it indicates the status of 
the system and the zone that is currently 
running if applicable. It displays a mes- 
sage giving you the option to deactivate 
the system or exit back to Basic. There is 
a 1 Vi -minute delay between each zone 
that allows time for water pressure to 
stabilize. 

CMDTABL Program 

Program Listing 4 lets you patch cus- 
tom commands to the Basic command 
table. Presently, I include only two 
commands — Sprink and Alarm. When 
you enter either of these two commands 
under Basic, the specified program 
runs. If you add more commands to the 
table, insert them in order but keep 
them between the ENDTBL label. This 
label automatically computes the length 
of the command table for scanning pur- 
poses. 

Execute this program with a /29024. 
The set-up section patches the main 
body of this program to the Basic com- 
mand table. Upon execution, two more 
commands are added to the system. 
This program runs anywhere in memo- 
ry by changing the ORG statement. 

Conclusion 

You should now have a Port I/O 
board with relays to control the real 
world, and hopefully an understanding 
of how to control the port board and its 
functions. You should have enough in- 
formation to expand in regard to port 
I/O control. The sprinkler and burglar 
alarm systems provide a couple of good 
applications to real- wo rid control. 

The amount of control applications 
available are virtually unlimited. 
CMDTBL opens a door to custom users 
for designing your own Basic com- 
mands and applications. You should 
learn a lot about your Model III and 
computers in general by putting togeth- 
er this system, as interfacing and con- 
trolling real world applications involve 
many aspects of your micro. 

For a 16K System 

As shown, the burglar alarm and 
sprinkler system don't assemble on a 
16K RAM system since they include so 
many comments and banners. I made 
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03">S0 DEPB 0DH 








83770 ; POBT 2 ALARM MESSAGE TABLE 








03790 MTBLE1 DEFW A0 .-GIVES LOC FOR PO»T 2 




83 800 DEFW Al ; ALARM MESSAGES 




03810 DEFW A2 




03820 DEFW A3 




03830 DEFW A4 




03840 DEFW AS 




03850 DEFW A6 




03860 DEFW A7 








03880 ; PORT 3 ALARM MESSAGE T&BLE 








03900 MTBLE2 DEFW B0 ,-GIVES LOC FOR PO"T 3 




03910 DEFW Bl ; ALARM MESSAGES 




03920 DEFW B2 




0393" DEFW B3 




03940 DEFW B4 




03950 DEFW B5 




03960 DEFW B6 




03 97 DEFW B7 








03 990 ; PORT 2 ALARM MESSAGES 








04010 A0 DEFM 'FRONT DOOR' ;•• NOTE **.. A0 




04020 DEFB 0DH 


AND Al MUST BE 




04030 Al DEFM "GARAGE DOOR" 


USED AS ENTR 




04040 DEFB 0DH 


DLY INPUTS 




04050 A2 DEFM 'FAMILY ROOM* 




04060 DEFB 0DH 




04070 A3 DEFM 'SLIDING DOORS' 




04080 DEFB 0DH 




04090 A4 DEFM 'KITCHEN WINDOW' 




04100 DEFB 0DH 




04110 A5 DEFM 'DINNING OR LIVING ROOM WINDOW' 




04120 DEFB 0DH 




04130 A6 DEFM 'SEWING ROOM' 




04140 DEFB 0DH 




04150 A7 DEFM 'A BATHROOM WINDOW' 




04160 DEFB 0DH 




04170 B0 DEFM 'MASTER BEDROOM' 




4180 DEFB 0DH 




04190 Bl DEFM 'BEDROOM 41 WINDOW' 




li~dd DEFB 0DH 




04210 B2 DEFM 'BEDROOM »2 WINDOW' 




04'20 DEFB BDH 




04230 B3 DEFM 'BASEMENT WINDOW' 




04'40 DEFB 0DH 




04250 B4 DEFM 'CAR 11 GARAGE DOOR' ;NOTE: I HAVE TWO 




34260 DEFB 0DH 




04270 B5 DEFM 'CAR 12 GARAGE DOOR' 




042 80 DEFB 0DH 




04290 B6 DEFM 'WATER LEAK IN BASEMENT' ;SENSE LEAKS 




04300 DEFB 0DH 




04310 B7 DEFM 'PANIC BUTTON' ;FOR EMERGENCY 




04320 DEFB 0DH 




04330 END ALARM 




the listings easy to follow so you can Contact David L. Engelhard t 


at 


assemble them on a 16K RAM system 10221 W. 101 St. Place, Broomfield, 


without the comments and banners. ■ CO 80020. 





TRS80 color 

From the January 1981 issue of the CSRA Computer 
Oub newsletter 

There was Some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives slated that the software in the , 
ROM cartridges could not be copied This 
month's 68 Micro Journal reported Ihey had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape They promise details ne«t month Never 
tell a hobbyist something can t be done 1 This 
magazine seems to be the only source so far 
of technical informations on the TRS-8C color 
computer - Devoted to SS-50 6800 and 
6809 machines up to now 68 Micro Journal <> 
plans \0 include rne TRS-80 68C9 unit ,n ^ 
-future issues ^^^ /-x^s^ 

To get the MOST from your 6809 CPU This is tie 
BEST SOURCE' The ONLY Magazine lor the 6609 
Computer Months Ahead of An Others ' 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 

USA 

i v -S24 50 2 Yi -S42 50 3 n -S64 50 

"Foreign SuHac* Add S12 Yt to USA Price 

Foreign Air Mail Add J35 Yr lo USA Price 

•Canada 4 Me. ico Add tS SO Yr to USA Price •*' 




The Banner Machine 

For the TRS-80 I & III with 32K tape or 48K disk 
For use on the Epson MX-80 with Graftrax 
Uses dot graphics instead of TRS-80 block graphics 
Menu-dnven program 
Operation similar to a word processor 
Makes signs up to 10" tall by any length 
10 sizes of letters from '/*"S" high 
Mono or proportional spacing 
Automatic centering; Right and left justifying 
Makes borders of variable width up to ''>" 
Order The Banner Machine — S49.9B from 

Virginia Micro Systems ^^m 

13646 Jeff Davis Highway mm 

Woodbndge. Virginia 22191 

Phone (703) 491-6502 ~ 




Atfi 



esottfk 



USCF rated 

1793/5* 



SFINKS 4.0 

with user friendly features 



Second Kissimmee Open 
White: Sfinks 4.0 Black: Hum 



While Black 

1. e2-e4 c7-c5 

2. g1-f3 d7-d« 

3. d2-d4 c5-d4 

4. 11 -b5* c8-d7 

5. b5-d7* d&-d7 

6. f3-d4 g8-f6 

7. b1-c3 

8. e1-g1 

9. c1-e3 

10. d1-d3 

11. c3-d5 

12. d5-b6 

13. b6-a8 

14. f2-f3 

15. I1-d1 

16. c2-c3 



g7-g6 
f8-g7 

e8-g8 

a7-a6 

b7-b57 

d7-b7 

b7-a8 

b8-d7 

f&-c8 

a8-b7 



White 

17. d4-e2 

18. d3-c2 

19. e3-f2 

20. c2-b3 

21. d1-d4! 

22. c3-b4 

23. a1-c1! 

24. C1-C8+ 

25. b3-c4 

26. c4-b4 

27. b4-b8+ 

28. d4-c4 

29. b8-a8 

30. c4-c8 

31. a2-a4 

32. c8-d8! 



Rd 2 

an 1830 
Black 

d7-e5 
e5-c4 

b5-b4 
a6-a5 

b7-b5 
a5-b4 
c4-b6 
b6-c8 
b5-d7 
c8-a7 
f6-e8 
a7-c6 
c6-«5 
g8-f8 
e5-d3 
resigns 




abedefgh 



8FINK8 4.0 CHESS, 48 K, disk 
only. Only $49.95. Please specify 
Model I, III or IV. 

SFINKS 3.0 CHESS, 32K, disk or 
tape. Only $34.95. Please specify 
Model I (E.I.), III or IV. 

SFINKS CHESS TUTOR, 32K disk 
only. Only $19.95. Please specify 
Model I, III or IV. 

To order, please see your dealer or 
send check plus $2.00 shipping to: 

WILLIAM FINK 

Suite 24-B, 1105 N. Main St. 

Gainesville, FL 32S01 

or call (904) 377-4847 



s 



-226 



Florida residents add 5% sales tax. 
"On Model 3 w/speedup by Holmes Eng. 



s See Usl of MMfeM on Page 291 
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Its about ENB. 



Southern Software's new relational database 
manager for TRS-80 Model I/III, all DOS. 



ENB is a treat to use, with an integrated data dictio- 
nary to allow totally flexible datastructure (restructure 
without reblocking the database) and data-interde- 
pendencies of any complexity. Variable length fields, 
no record-length constraints, select on any field. 
High-level Basic interface (compatible with ACCEL3/4 
Basic Compiler), plus file exchange with practically 
everything (Scripsit, VisiCalc, more). Holds up to 
64K data items without data redundancy, spans up to 
4 disk drives (or hard disk). 

Special Offer 

Buy ENB before December 31, 1983 and receive 
EDIT full-screen Basic editor ($40 value — you 
must enclose a copy of this ad!). 



Read the reviews . . . 

"ENB is fascinating." 

— Wynne Keller, 80-MICRO, July 1983. 

"ENB has no peer at the present time." 

— Jim Klaproth, 80-US, July 1983. 



You've seen this ad about ENB. 
Now ENBase your data! 



VISA 



ENB. *140 



+ $3 shipping 
CAadd6% 



Scripsit " Radio Shack. VisiCalc " VisiCorp. 



Allen Gelder Software 



Box 11721 San Francisco. CA 94101 (415) 681-9371 



*• S— Usl of Advertisers on Page 291 
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IT HAD TO GO SOMEWHERE 

There's no reason to deprive you of solid microcomput- 
ing information just because it wouldn't fit between the 
covers of 80 Micro. But even 80, as thick as it is, can hold 
just so much. Here's the answer— The Rest of 80—31 
of the best tutorials and utilities, hand-picked from the 
overflowing files at 80 Micro. These never-before-pub- 
lished articles for the Model I and Model III were just too 
good to let them get away. 

SOMETHING FOR EVERYONE 



Whatever your programming skills. 
The Rest of 80 can help you learn 
more and save time and effort. Here are 
just a few of the chapters you'll find: 
An Unlistable. Unbreakable Program 
Adding Commands to BASIC 
Programming in Tiny Pascal 
Line Drawing 

Automatic Master Disk Directory 
Faster Loading for the Model I 
ASCII Converter 

A Better LDOS KSM 
And more on BASIC, 




Pascal, and assembly language! 
Every program is of the same high qual- 
ity you wait for every month in 80 
Micro. Now try The Rest of 80— a wel- 
come addition to your computer library. 

ISBN 0-88006-062-X. softcover with spiral bind- 
ing. 7x9, approx. 300 pp. BK7392 $9.97 

Call TOLL-FREE 1-800-258-5473 for 

credit card orders. Or mail your order with pay- 
ment or complete credit card information. In- 
clude S 1 .50 per order for shipping and handl- 
ing. Send to: Wayne Green Inc.. Attn: Book 
Sales, Peterborough. NH 03458. 



I'D BE LOST n-*a 

WITHOUT IT! <C-k. 

Send me copies of 

THE RE8T OF 80. Enclosed is $9.97 



A 

WAYNE 

GREEN 

PUBLICATION 

dSSooSS 
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Heart of! EXAS 

COMPUTER SYSTEMS 

Toll Free 1-800-433-5184 Texas 1-817-274-5625 




TCS Model IV, 64K, 2 Disks 



Systems come with 180 Day TCS Warranty 



$1499 



With standard 40 track ~/2&1 

double density drives V^" 
Over 340.000 bytes 
Enhanced Model IV Operating System 



$1699 




« With 2 dual headed 40 

track double density drives 

Over 730.000 bytes 

Enhanced Model IV Operating System 



Fully assembled and tested systems that are software compatible and functionally 
identical to Radio Shack units sold at computer stores for Shundreds more 

' CONTROLLER BOARDS are high quality double sided epoxy boards with gold 

plated contacts 
' POWER SUPPLY is the finest switching type available 
' MOUNTING HARDWARE includes power and data cables 
" DISK DRIVES are Tandon. the same ones used by Radio Shack 

40 track double density, with a 5 millisecond stepping rate 

TCS MODEL III DISK EXPANSION KITS 

1 Controller, Power Supply. Mounting Hardware S Instructions $249 

2 Controller. Power Supply. Hardware & one 40 track Tandon Drive $429 

3 Controller. Power Supply. Hardware, two 40 track Tandon Drives $598 

3a Kit 3 but with two 80 track drives (dual sided 40s) $791 

3b Kit Ihree but with two 160 track drives (dual sided 80s) $989 

TCS MODEL IV DISK EXPANSION KITS 

1 1 Controller, Power Supply. Mounting Hardware, one 40 Track Tandon Drive $479 

12 Controller. Power Supply, Mounting Hardware two 40 Track Tandon Drives $649 
12A Kit 12 but with two 80 Track Tandon Drives $629 
12B Kit 12 but with two 160 Track Tandon Drives $849 




TRS-80 equipment below has original 90 day Manufacturers Limited Warranty 

MODEL 12 and MODEL 16 

MODEL 12 1 drive $CALL 

MODEL 12 2 drives $CALL 

TCS MODEL 12 Version, 2 Tandon drives (like the original) TCS Warranty $2995 

MODEL 16B... Support up to 6 users. Run your whole office with 
hard disk capabilities for about $1000 per user! 

MODEL 16B. 1 drive $CALL 

MODEL 16B. 2 drives $CALL 

Model 12 and Model 16 Accessories 

128K memory board (256K Max ) $629 

128K extra memory chips (RS) $269 

128K extra memory chips (TCS) $189 

Xenix Microsoft Multi-user Basic $269 

Xenix Accounting Software $CALL 

Xenix Multiplan Spread Sheet Software $263 

MII/12 to M16 multi-user upgrade kit $1339 

DT'1 Video Terminal . $629 

MODEL IV 

MODEL IV. 16K Cassette .... $825 

MODEL IV. 64K, 2 drives. RS-232 $CALL 

Model III Color Computer 

All Radio Shack equipment is shipped from our store 
in Brady, Texas 



TCS DRIVE CABINET is industrial grade heavy guage metal, safety fused, and comes 
with gold plated external connector with extender cable 

1 DRIVE in Cabinet 

40 track single sided $199 

80 track (dual sided 40 track) $299 
160 track (dual sided 80 track $399 



2 DRIVE Double Cabinet 

40 track single sided $399 

80 track (dual sided 40 tracks) $599 
160 track (dual sided 80 tracks) $799 



1 DRIVE Double Cabinet 

40 track single sided $269 

80 track (dual sided 40 track) $369 
160 track (dual sided 80 track) $449 



Drives m cabinets come assembled 
and tested with power supply Order 
cable separately 



BARE DRIVES ONLY 

40 track single sided $165 

80 track (dual sided 40 track) $CALL 



160 track (dual sided 80 track) $CALL 
8 inch Slimline sgl/dbl sided $CALL 
Winchester Hard Drives 5 Meg $399 



CALL IF YOU FIND A LOWER PRICE ON DRIVES 



CORVUS 



HARD DISK DRIVES Complete from $1649 

Single and multiuser HARD DRIVES for all brands of computers 
One or several computers can share A HARD DISK. 



Model 100 Portable Computer 



8K / 24K / 32K Models 

Full-size Typewriter Keyboard 
8 Line. 40 Character Display 
Weighs less than 4 pounds 
Battery operated with optional 

AC Power Adapter 
Built-in Word Processing 
Schedule and Address Book 
Built-in Modem 
Advanced BASIC Language 
RS232C Interface to printer/ 

cassette recorder/phone 
Complete Documentation 




ACCESSORIES 

8k RAM Memory Expansion 
Parallel Printer Cable 
Direct-con nect Modem Cable 
System Briefcase 20x14x4" 
AC Adapter 



$CALL 




Heart ofTEXAS " 59 

COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 

Toll Free 1-80O433-5184 Texas 1-817-274-5625 

Paymenl by cashier's check, money order or certified check Call (or credit card S 
No tax out of state Texans add 5V Prices subiect to change at any time 
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Heart ofTEXAS 

COMPUTER SYSTEMS 

Toll Free 1-800-4:53-5184 Texas 1-817-274-5625 




PRINTERS 



STAFVs goal is to be the LARGEST Printer Manufacturer in the 

world, and we are getting there fast! 
' 100-120-160 CPS ' Bidirectional Logic Seeking 

• Friction and Tractor Standard ' Roll and Fanfold Paper 

■ 9X9 Dot Matrix * True Decenders 

" Hi-Res Bit Image Block Graphics ' Super Script-Subscript 

' Underlining ' Backspacing Doublestrike 

' 5, 6, 8 1/2, 10, 12 and 17 Pitch ' Programmable Line Spacing 

• SIX MONTH WARRANTY 
STX 80 (80 Column, 60 cps.), Thermal List$199-CALL 

GEMINI 10X (9 Inch Carriage, 120cps) Friction and Tractor SCALL 

GEMINI 15 (15 Inch Carriage, 100cps) Friction and Tractor SCALL 

GEMINI 15X (15 Inch Carriage, 120cps) Friction and Tractor. . ..SCALL 
DELTA 10 (10 Inch Carriage, 160cps) Friction and Tractor SCALL 

CABLES/INTERFACES 

STAR Printers can be interlaced with most computers on the market today, such as 
Apple II lle.lll / IBM PC / Osborne / Heath Kit H89 I TRS-80 Model I. Mill .4.12 16 100 
/Zenith Z89/90/100 TI99/4A / Kaypro / Atari 400.800 r Commodore 64 Vic 20 
CALL FOR OUR LOW PRICES 





Bringing you top quality mini-floppy disks at an affordable 
price. CompuDisks are fully tested to be wear certified and 

100% Certified Error Free 

ALL DISKS INCLUDE: 

• Hub Rings 

• Protective Envelopes 

• Density Certification 

• Write protect tabs 

• Adhesive Labels 



NOTE: MINIMUM ORDER Orders for diskettes only are limited to a minimum 
Si 00 purchase Diskettes may be purchased in smaller quantities with other products 
ordered at the same time from TCS 



• SINGLE SIDED SINGLE DENSITY - SSSD 

• SINGLE SIDED DOUBLE DENSITY - SSDD 

• DOUBLE SIDED DOUBLE DENSITY - DSDD 

BOXED: 10 Diskettes in attractive sleeved box 

TYPE 1-3 BOXES 4-9 BOXES 10* BOXES 

SSSD $16.99 $15.99 $14.99 

SSDD $17.99 $16.99 $15.99 

DSDD $22.99 $21.99 $20.99 

BULK: Buy in quantities of 10 per pack 

TYPE 1-3 PACKS 4-9 PACKS 10* PACKS 

SSSD $15.99 $14.99 $13.99 
SSDD $16.99 $15.99 $14.99 

DSDD $21.99 $20.99 $19.99 

For orders of 1000 diskettes or more. $CALL. 



Smith-Corona 8 TP-I 

LOW COST LETTER QUALITY DAISY WHEEL PRINTER 

Your choice PARALLEL or SERIAL Interlace 

List Price $895 $4>£ $CALL 



Heart ofTEXAS 

COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 

Toll Free 1-800-433-5184 Texas 1-817-274-5625 




TIME To GET 

MZAL 




End your programming 

frustration with the M-ZAL 

disk assembler. 

M-ZAL s modular, structured 

approach to program development 

will solve your programming dilemmas. 

Attack and complete the most difficult tasks with ease 
and confidence. M-ZAL out performs every disk assem- 
bler on the market with speed, power and features the 
others can't begin to touch. Read what the experts have 
to say about M-ZAL: 

"...the most powerful assembler you'll find available 

for the TRS-80." - Dan Robinson 

Infoworld 
M-ZAL Review 

"M-ZAL is an extremely powerful program develop- 
ment tool... If you are a professional programmer, you 
owe it to yourself to buy this package..." 

- Bruce Douglass 
M-ZAL Review 
80 Microcomputing 

"No serious assembler language programmer should be 
without M-ZAL. It is one of the best programs ever 

written for the TRS-80." -William M. Demas 

Author of PANIK and 
FORBIDDEN PLANET 

M-ZAL Release 3 features: 

• New M-ZAL labelling Disassembler! 

• New XBUG-II debugger/ monitor! 

• Full Screen Text Editor 

• Full Screen Option Menus 

• Multi-pass MACRO assembler 

• Nested 'INCLUDES (source file nesting/chaining) 

• New conditional assembly ops! 

• Module Linker (ENTRY/EXTRN and relocation) 

• New linker OVERLAY facility 

• Support for all popular source file formats 




M-ZAL (Requires 32K, 2 disk system): 
# 1050-10 Mod 1 $}A&tf6 $99.95 
#1250-10 Mod 3 $)A&tf6 $99.95 

Other Quality Products Available 

T-ZAL: custom designed for the Model 3, this tape 
based assembler has many of M-ZAL's most desired 
features. 

# 1250-20 Mod 3 only $49.95 

Full Screen Text Editor for BASIC: we were the first 
to give the TRS-80 this indispensable ability! A must for 
every BASIC programmer. 

#1210-20 Modl&3 $29.95 tape; $34.95 disk. 

Mail Orders - Specify catalog number, enclose check, 
money order, or MC/VISA numbers and expiration date. 
Add $2.00 for shipping, $10.00 outside USA & Canada. 
NY State residents add applicable sales tax. 



800-354-5400 



au 



(orders only.) - for info call: (914)-937-6286 



COMPUTER 
APPUCATIONS 



UNLIMITED 



P.O.Box214, Dept.M Rye. NY 10580 914-937-6286 

TPS-80 s a TM onondy Coip M-ZAL is a TM ol CAU. Inc Z-80 isaTM o«Z*OQ. mc 



z z z 

CO O 2 
iJ X 

X X 
OS B3 O 

o o i 

fa> X 
£h Cu 

CO u O 
D Z 
jus: 
3 J Eh 

> O 

a z 
u z u 

en £ J 
* cj 
co u 

> CJ > 

2 U < 

>-« a w 



u as os 

Eh M w 
<ffi 

> a: as 
< j j 
w u o 



°£3 

Eh Z X 

CO M O 

3 U 
CJ CJ 

H Cl, 
li. CO O 
O < 



i- n e- 

U E Z '_> 

UUh 

B> WOl 

g(JH< 
hKB 

j m a. 
gOQp 

= o cj 
p << 

CJ U CO 

! Z H OS • 

■ co >• o • 
j m a. ■ 



J X 
Eh < 



►H OJ H 

CO >< Z 

<< B 



< as a co 

x P x co 

x cj cj 

o j> 

UO.U 

0"f< 
kOWU 
O J < K 



t- as E- 
U10U 



Eos u 
H X O i 
10 U CJ Z 1 



E-SOU 

cj a P 
i B co as co 

JBt<H 

o a. 

oh a 

3 co e- S 

O co co o 

j as as j 



E- E- 

Z O 

U Z 
E- 

§g 

cj o • 



Eh Cl. ■ 

CO Q • 

CO O • 



m« as 

■ « co 
« a 

EJ5 



5z 

U. O 



S3 



u u 

CO CO 



co 

as as as 
u u < 
E-<<- a. 

Z Z JE 

3 D o 
O O CJ 



HUB 
UUJ 



SZHU 
2 O X OS 

r«. x v-i u a. 
cs cj €-< z a. 

II hOhO 
X O M CJ 

SU JO 

u z -a 
t-i co • 5 

Z X J • < 
3 X B) X 

o cj 2 cj as 

cj E-f p 

> a < £-< 

fZ CO X CJ 
< os as 

o q < 

a (-. £ x ' 

CO C*. u o 

HIDBIi, 



co as z as 
u a. o 2 

E < MB 
CJ .3 Eh HO 

P fa 1-H < 

J CO 

Q E- • 2 

■ CJ • 03 OS 

< aS • J 

I 2 os to H 

x x u 2 x 

O cj > t- u 



to cj cj 

U m 

310 OS 
<o 



5 Eh 

I Z 0- 



52P 
os z 

0, JC 05 



Eh CO CJ 
CO 2 
3 CD CJ 
CJ U 



O O 
X Eh 
H Eh 

Su o 
Z U 
Eh CO CO 

IAJS 



CO 



8 CO o p . 
!h tj P i 



co 



>> CO 
CO CO OS 
CO u 

os as J 

CO □ MS 
J Q Z 

B 3 w 



_ J cj 

CJ CO < u 

Eh CO O 

CO OS OS 

>- O CO Q 

co q j z 

< u CO 
C OS 

3 a. a cj 
i 2 x to j 
jo 2 
2 >i cj 



< « 



— x 

— OS *i> 
OS Eh CO 



Eh « 

_ CO 
X Q 



— < ■ 

< O i 



, -QCO »b td « O 
1 < — Q < < O. « P 



* fa U CO _ 



§«C ~ CO Is — 0. 

Q J Z OS CO Q 

— — o xxo p Q <5 — 

6. J ►: X X ... , - - : J • 1, 10 J CO II, -Z X 

< x x — < ~-Z x «< s n 2 as x Q < < p-« w 



u • 



u 



• J « 8 

*m«i-i x as am H 

«2«osxB2fflc*2 et 

< E<< CunU 4nnE< < 

* *cocjf-i<ua>i E-. 
t« q « - s r- > mr^vy co 



j cj as 

o-uaooa- _ - 

'J Q J J X J « Z« 

* X • 

* X * 

* o« 

« CJ« 



loaaaattiiccsjaaaaoui 
jjjjcj'-jcjno.JJJJCM-j 



x x 

cococjas o. o. a.cjo. 

i=>3acooaasoQo.a:oasozooci: 

MJDXUIOiJUIlIiTOihSjt 



« « « x« 

« co* xcoco* o« xcoxxcosn 

* CO * b. Ch Cb * CJ* Ci- Cl* Cu Ch Ch Cb Cb 

• -3 « CO CO CO « « CO CO CO CO CO CO CO 

« 03 « OQQ< X « C300QQQQ 



« 2 « z 

CO « > « M 

z « « u as z 

8« « CO E- S 
auo 



'_> * U * J 



G s SS SSB 



SSSSC9S SSI 



ssos 



S S I 



KSSSSSi 



nnnnnnnnn-*«t"-' 

7 CBtSSSSCBSCS&HaiSSSQlO' 

3aC4aBSBBB9SQQBSBI 



i>/iLnini£iovo\0\0v 
ssQssas ss> 



issctsssssssasasi 
<iDVDvor^i^i^i^i^r^i^i^i^r^cococococo(Ococococoatmaioiffi0\oiaiHAaiBia)a)caaii 

SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSrHMiHiHfHl 
iSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSQBSOBQaAObl 



ALWAYS AT 
SALE PRICES 



TRS-80 



ALWAYS AT 
SALE PRICES 




HARD DISK DRIVES 



DFW COMPUTER CENTER 

326 MAIN ST., GRAPEVINE 
TEXAS 76051 — (817) 481-7283 



...'0DEL16-B 




UTILITY 



<SMsS> 

LOAD 80 



Chameleon Code 



by Bradley Murray 



The mixture of Basic programs with 
Assembly-code subroutines is powerful, 
taking advantage of the simplicity of 
one and the speed of the other. 

Sometimes the Assembly-code rou- 
tines are loaded in Basic; other times it 
is better to POKE the decimal equiva- 
lents of the routine's object code into 
memory. It is a nuisance, though, to 
convert the object code to decimal, 
check the values and type the data lines. 

1 wrote a program that interprets an 
object file produced by an editor /as- 
sembler, converts the object code to 
decimal values, and writes these values 
to an ASCII file of data lines. These are 
later merged into the Basic program 
that POKEs the values into memory. 

The program gives the starting and 
ending POKE locations, the memory 
size required to protect the POKEd pro- 
gram, and the hexadecimal (hex) address 
needed for a DEFUSRn= statement. 

How It Works 

Program Listing 1 requests the name 
of the file to be converted, the name of 
the ASCII data file (the output file), the 
starting line number of the data file, 
and the line number increment. 

The program is listed one statement 
per line to increase its intelligibility, but 
when entering the program ignore all 
comment lines and compress statements 
into single lines. The following line 
numbers are branch points — you must 
preserve 1100, 1260, 1360, 1630, 1800, 
1870, 1940, 2000, 2090, and 2240. 

The program begins with an error 
trap: The object file first opens as an 
I-file, closes and then reopens as an 
R-file. If the file does not exist, a ran- 
dom file with no data is created and 
read, giving unpredictable, incorrect 
output. If the file is first opened as "I", 
the file-not-found error can be trapped. 
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Tired of converting 
Assembly code into 
Bask data statements by 
hand? This speeds it up. 



Reading the file as an Input (I) file, 
with an INPUT #2, AS would be 
simpler, but has one problem. A byte 
containing 00, valid in the object code, 
would be bypassed. The code D0A7 
00FF would be incorrectly read into the 
string as D0A7FF. This does not hap- 
pen when the File is read with a GETl.r 
(see line 1240). 

Line 1090 sets HX$ to contain all the 
hex codes, from which values will be ex- 
tracted in line 2070 to make a decimal- 
to-hex conversion. 

Line 1180 fields the input file buffer 
as two variables of 128 bytes each. No 
single string variable can contain the full 
256 bytes. If your older version of Basic 
has not been modified, the second half 
of the buffer field contains only 127 
bytes. This leads to problems if your ob- 
ject program occupies a full disk sector 
or more (256 bytes). 

The first byte of an editor/assembler 
object file is either 01 (if created by the 
EDTASM in the NEWDOS package), 
or 05 (if created by Radio Shack's 
Editor /Assembler). In either case the 
first byte of interest to this program 
contains 01 — the command to load. 

Line 1260 extracts a byte from the 
string A$(l). The first time through, it 
extracts the first byte and converts it to 
decimal. If it is not 01, the second byte 



will contain a certain number of bytes to 
be bypassed before loading program 
code. Line 1310 increases the pointer by 
this amount, to skip over the required 
bytes. If the following byte is 01, it's a 
loading instruction. 

The byte following the loading in- 
struction gives the number of bytes to 
be loaded, including 2 extra bytes con- 
taining the loading address. Lines 
1380-1390 decode the number of pro- 
gram bytes NB to be extracted from the 
string. Zero is interpreted as 256, and 2 
is subtracted from NB to take care of 
the loading-address bytes. 

The loading address is used to 
calculate the first location into which 
Basic will POKE the program, as well as 
the memory size needed to protect the 
program. 

Line 1400 moves the pointer to the 
least significant bit (LSB) of the loading 
address and blanks the hex value string 
(ST$) for this address. The program 
calls subroutine 2000 to get the decimal 
value of the byte, find the quotient and 
remainder (modulo- 16), and convert 
each to one of the hex characters in 
HX$. Upon return, it assigns ST the 
decimal value of LSB. 

The pointer moves to the next byte, 
the most-significant bit (MSB) of the 
starting address. With a call to 2000, 
this is converted to decimal and to hex. 
The hex code is put before the LSB and 
linked with it to give the starting address 
in hex (ST$). 



The Key Box 

Model I 
32KRAM 
Disk Basic 
Editor/ Assembler 



IF YOU'RE GOING TO 

BE PICKY ABOUT AN 

OPERATING SYSTEM 

SEE WHICH WAS 

PICKED BEST. 



The readers of 80 Micro were 
asked to select their favorite 
operating system for the TRS-80 
Model latlll. LDOS, DOSPLUS. 
TRSDOS, MULTIDOS, WOBOS I and 
MEWDOS/80 were all on the ballot. 
They picked MEWDOS/80. 

The editors of 80 Micro have also 
awarded their Hall of Fame Awards. 
From among every software 
package on the market the editors 
picked only six that they felt made a 
lasting and significant contribution 
to the TRS-80 computer. 
MEWDOS/80 was one of the six. 

Since we first introduced the 
MEWDOS operating system we've 
been stating its features, capabilities 
and advantages. Thank you 80 Micro 
readers and HE W DO 5/30 users for 
supporting us. 
Version 2.0 .. . 
High Performance DOS 

MEWDOS/80 Version 2.0 is our 
highest performance system yet. 
The versatility and sophistication of 
Version 2.0 includes features like: 
• Double density support on the 

Model I 




Enhanced 
compatability between 
Model I and HI 

• Triples directory size 

• Dynamically merge in BASIC (also 
allows merging of non ASCII 
format files) 

• Selective variable clearing 

• Can display BASIC listings page by 
page 

• Automatic repeat function key 

• Routing for peripheral handling 

• Enhanced disassembler 

• Command chaining 

• Superzap to scan files 

• Fast sort function in BASIC 
Hard Disk Support Now Available 

• Support for Apparat's and Radio 
Shack's Model III hard disk 
(optional-available upon request 
for additional $60) 




These 
features make 
MEWDOS/80 one 
of the most powerful 
additions you can make to 
your system. And Apparat's 
commitment to support assures thai 
you've purchased a superior 
product both today and tomorrow. 
At just $149.00 it could be the best 
Investment you will make for your 
TRS-80. 

For more information see your 
local computer store or contact 
Apparat, Inc., 4401 S. Tamarac 
Parkway, Denver, CO 80237, 
303/741-1778. 

TRS-80 and TRSDOS are registered trademarks of 
Tandy Corp.. LDOS - Logical Systems. DOSPLUS - 
Micro Systems Software. MULTIDOS - Cosmopolitan 
Electronics. WOBOS I - Western Operations. 
MCWDOS/80 - Apparat. 



^^ 



Apparatlnc. 
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ATTENTION TRS-80* OWNERS! 
DON'T SCRAP YOUR MODEL I... 
CONVERT IT INTO A f " 
MODEL III WORK ALIKE 



WITH DISK CONTROLLER,. 
48K RAM RS 232" 
AND ALL OTHER 
MODEL III 
FEATURES 

The Norcom TC-III is a replacement for the 
entire Model I electronics which perfectly 
tits into your original Model I enclosure 



Features 



Uses Mod I Ke»DoaiO case monitor & powei supply 

includes lull 48K memory disk controller primer & 

i-ilernal I ports same as Model III 

Aii Model in features plus reverse video & ouipui 10 

drive external speaker with no additional hardware 

Uses Mode: in Basic ROMS or other EPHOMs 

Huns Model ill software 

No expansion interlace needed it s all built m 

HS ?3? add m accessory board available 

Keyboard with toy stick port available make your 

own portable 



Assembled & 
tested IC III 
wilh Basic ROMS 



399 



gg Factory 
Conversion 



499" 



of your Model 

Deluxe Keyboard with Numeric Pad $99.00 

Deluxe Keyboard without Numeric Pad $79 00 
RS-232 Interface Board Ms inside case $49.00 
Model III & Model IV Accessories — 

$20 00 
$59.00 



■ Owkw Ox BOM ipMcmiinl. 
l*U Fsn-ftn vidao 

■ HS-212 Molaca Kit 

A partacl frt t« yow comouMf 



"RS-?; 



:>plion»l -TRS-8C 



NORTHERN 
TECHNOLOGY CORP 

3SP Bnck vaie Dr Efk Grove Village in 60O07 

312-860-1772 \m* " 




<*• BIGGEST TRS80 SPACE GAME 

* STRATEGY/ADVENTURE COMB. 

* MATCH WITS WITH AN ALIEN 

* NEW GALAXY EACH GAME 
No 2 vamos »v»r « I ik* 

* FULL RANGE OF CQMMANDSi 
Pha«or« Caoturo Scan 
Torp« Report Build 
Thrutttn Dock Score 

* FIVE LEVELS OF PLAY 
E*»y to deadly 

* GALAXY CHART PRINT OPT. 

* 9 GAME LENGTHS' 1 3« I n-2hr 



FOR TRS-80 MODELS 1.3.4 

REQUIRES 48K * 1 DISK DRIVE 

Get ZIRCON now for only *33 

(Include* captains (Manual) 

CHECK. COD. VISA, M. C. 



PAECO I NO. (Eat 1964) 

213 SO 21ST ST. 

BHAM.AL 33233 203-323-8376 



Upon return from line 2000, the pro- 
gram multiples the decimal value of this 
byte by 256 and adds it to the LSB to 
give the starting address in decimal 
(ST). If the decimal value is greater than 
32767, line 1520 sets the sign bit so the 
location to POKE will be negative. Line 
1510 saves the positive value in MM as 
the memory size value. EN in line 1570 
is the ending POKE address. 

N points to the byte within the string 
A$(K). The subscript K is either 1 or 2; 
each record is split into two sub-records 
(see line 1 180). K starts with a value of 1 
in line 1620, increased when 128 bytes 
are decoded (lines 1730-1740). If K 
equals 3, 256 bytes have been decoded 
and the next record is read from the disk 
(1770-1780). 

NB is the number of program bytes 
to be converted to decimal and put on 
the data line. KB is the number of bytes 
actually converted and added. Line 
1800 compares NB and KB. 

NN keeps track of the number of 
values on a single data line. As long as 
this value does not exceed 14, a comma 
is appended to the data line 1 850. When 
there are 14 items, the routine writes a 
carriage return/line feed to the file 
(CHR$(13)), increases the line number, 
and generates a new data line (lines 
1870-1890). 

The decimal value of the code is not 
written directly to the data line, since 
spaces appear before and after the num- 
ber. Lines 1630-1670 convert it to string 
format, trim it, and write it as a string. 

When line 1800 determines that the 



number of bytes decoded and written 
(KB) equals the number of bytes re- 
quired (NB), the program calls subrou- 
tine 2090, the ending routine. If the next 
byte is 01, more program bytes must be 
added to the data. NB is calculated as 
before, but the loading address is not 
needed. 

If the next byte is not 01, the entire 
program has been loaded. Ordinarily 
this byte and the next would be 0202, 
followed by the program entry address 
(not always the loading address). In this 
conversion I assumed the starting ad- 
dress and the loading address were the 
same. If not, adjust them with a JP or 
JR to the starting address. 

You can modify the program to han- 
dle a different starting address. If the 
next byte is not 01 (line 2180), check 
whether it and the next byte have a 
value of 02. If so, the 2 bytes following 
0202 contain the entry address. Convert 
ST$ to this, using the technique above. 
ST (the start of loading) and MM (the 
memory size) remain unchanged. 

If the byte is not 01 the loading is 
finished. The program branches to pro- 
duce the hex value used for the address 
of a USRn call, the starting and ending 
loop index values for the POKE, and 
the memory size used in Basic when 
running the program. 

Program Listing 2 POKEs the As- 
sembly-code routine into memory and 
runs it. ■ 

Contact Bradley Murray, S.J., at 
Loyola College, Baltimore, MD 21210. 



Program Listing I. The Converter program. 




1000 ' ** CONVERTER PROGRAM ** 




1010 ' 




10 20 ' CONVERTS AN OBJECT CODE FILE 




1030 ' TO "DATA" LINES SUITABLE FOR 




1040 ' BASIC "POKE" FUNCTION 




1IS> ' 




I860 ' TRAP FILE-NOT-FOUND ERROR 




1070 ON ERROR GOTO 1940 




1080 DIM AS(2) 




— 1090 HXS-*»123456789ABCDEF" 




1100 LINEINPUT'OBJECT CODE FII.ESPEC: ";FS 




1110 ' OPEN "I" TO SEE IF FILE EXISTS 




— 112* OPEN"I",l,FS 




—1130 CLOSE 1 




1140 * IF SO, OPEN AS A RANDOM FILE 




— 1150 OPEN"R",l,F$ 




1160 ' BE SURE YOU HAVF UPDATED VERSION OF 




1170 ' OF BASIC. IF NOT: 127 AS AS(2) 




—1180 FIELDI1,128 AS AS(1),128 AS A$(2) 




, 1190 LINEINPUT'ASCII DATA FILESPEC: *;FS 




■1200 OPEN"0",2,FS 




— 1210 INPUT'ASCII DATA FILE STARTING LINE NUMBER * ; LN 




—1220 INPUT" LINE NUMBER INCREMENT" ; IN 




--123i PRINT t2,LN;"DATA *; 




- 1240 GET 1,1 




- 1250 N"l 




-1260 C-=ASC(KIDS(AS(1) ,N,1) ) 




1270 ' C • LOAD COMMAND? (01H) 




1280 ' IF NOT, NEXT BYTE IS NUMBER OF BYTES 




1290 ' TO SKIP OVER. 




-1300 IF C-l THEN 1360 




ELSE N«ASC(KIDS(A$ll) .Nfl.l) ) 




_1310 N-N+3 




1320 ' CHECK WHETHER THIS BYTE IS 01H 




1330 GOTO126 




1340 ' YES: NEXT BYTE GIVES NUMBER OF BYTES TO 




1350 ' LOAD, INCLUDING A TWO-BYTE LOADING ADDR 




1360 N=N+1 




1370 ' KB " NUMBER OF PROGRAM BYTES TO LOAD 




1380 NB-ASC(MIDS(A$(1) ,N,1)) 






Listing 1 continual 
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Listing I continued 

1390 IF NB-0 THEN NB-254 

ELSE NB-NB-2 
1400 H-N+l 
1410 ' 
1420 ST$-"" 



STS - STRING FOR HEX CODE OF LOADING ADDR 



ST WILL BE LSB OP STARTING ADDRESS 



1430 GOSUB 

1440 ' 

14 50 ST-K 

1460 N-N+l 

1470 GOSUB 2000 

14 80 ' ST WILL BE DECIMAL VA\LUE OF STARTING ADDR 

1490 ST«ST*K"2S6 

1500 ' SAVE ST IN MM (MEMORY SIZE) 

1510 MM-ST 

1520 IF ST>32767 THEN ST-ST-65536 



EN - ENDING ADDRESS 

KB- NUMBER OF PRGRAM BYTES READ FOR THIS 
SERIES OF LOADS (UP TO NEXT 01 CODE) 
N-BYTE BEING DECODED IN A$(K) 



NN - NUMBER OF VALUES ON A 'DATA' LINE 



1530 ' 

1540 ' 

1550 ' 

1560 ' 

1570 EN-ST-1 

1580 KB-0 

1590 N«N+1 

1600 ' 

1610 NN>0 

1620 K-l 

1630 C-ASC(MID$(A$(K) ,N,1)) 

1640 CS"STR$(C) 

1650 ' REMOVE LEADING BLANK FROM NUMBER 

1660 C$-RIGHTS(C$,LEN(CS)-1) 

1670 PRINT 12, CS; 

16 80 N-N+l 

1690 KB-KB+1 

1700 EN-EN+1 

1710 ' HAVE 128 BYTES BEEN READ? IF SO 

1720 ' START ON 2ND 128 BYTES OF RECORD 

1730 IF N<129 THEN 1800 

ELSE N'l 
1740 K-K+l 

1750 ' IF 2ND 128 BYTES HAVE BEEN READ, 

1760 ' GET NEXT RECORD 

1770 IF K-2 THEN 1800 
ELSE GET 1 

1780 K-l 

1790 ' HAVE ALL BYTES BEEN READ? 

1800 IF KB>-NB THEN GOSUB 2090 

1810 NN-NN+1 

1820 ' ARE THFRE 14 NUMBER ON "DATA" LINE? 

1830 ' IF SO, START A NEW LINEj IF NOT, 

1B40 ■ ADD *," 

1850 IF NN-14 THEN 1870 

ELSE PRINT t2,","j 

1860 GOTO 1630 

1870 NN-0 

1880 LN-LN-HN 

1890 PRINT I2,CHRS(13) ;LM|"DATA "[ 

1900 GOTO 1630 

1910 ' 

1920 ' ERROR: OBJECT FILE NOT FOUND 

1930 ' 

1940 IF ERRO106 THEN ON ERROR GOTO 

1950 CLS : PRINT'FILE NOT FOUND" 

1969 RESUME 1100 

1970 CLOSE 

1980 ' 

1990 ' CONVERT 2-BYTE NUMBER TO HEX 

2000 ' 

2010 ' GET DECIMAL VALUE FROM STRING 

2020 K>ASC(MID$(A$(1) ,N,1) ) 

2030 ' QUOTIENT k REMAINDER, MOD-16 

2040 Q-INT(K/16) 

2050 R-K-Q«16 

2060 ' SELECT HEX VALUE FROM STRING HX$ 

2070 ST$-HID$(HX$,Q+1,1)+MID$(HX$,R+1,1)+ST$ 

2080 RETURN 

2090 ' 

CHECK WHETHER THERE ARE MORE BYTES TO 
TO BE READ — I.E. NEXT BYTE IS 01. 
IF SO, GET NUMBER OF BYTES, AND SKIP 
LOADING ADDRESS— I.E. ASSUME IT FOLLOWS 
SEQUENTIALLY. IF NO MORE BYTES, THEN 
ENDING ROUTINE: PRINT CRITICAL VALUES 



2100 ' 

2110 ' 
2120 ' 
2130 ' 
2140 ' 

2150 ' 
21(0 ' 

2170 C-ASC(MIDS(AS(K) ,N,1)) 
2180 IF COl THEN 2240 

ELSE N-N+l 
2190 NB-ASC(MIDS(A$(K) ,N,1)) 
2200 IF NB-0 THEN NB-254 

ELSE NB-NB-2 
2210 KB-0 
2220 N-N+3 
2230 RETURN 
2240 CLOSE 
2250 CLS 

2260 PRINT'FOR USR FUNCTION: DEFUSRN • IH'lSTS 
2270 PRINT CHRS(13) |"POKE VALUES FROM ";STi"TO "|EN 
2280 PRINT CHRS (13) ("MEMORY SIZE:*|MM 

2290 PRINT CHRS(13) | "MERGE* jCHRSI 34) |FSjCHRS(34) ;CHR$(13) 
2300 END 



1000 ' ** THE POKE PROGRAM *• 

1010 ' 

1020 DEFINT A-Z 

1030 INPUT'LINE 1000 OKAY? <ENTER> OR BREAK" jQS 

1040 INPUT'START AND EMD ADDRESSES *; S , E 

1050 FOR I-S TO E 

1060 READ N : POKE I,N 

1070 NEXT I 

1080 DEFUSR1- 

1090 X-USR1(0) 

1100 END 



Program Listing 2. The POKE program. 



Fine products for your TRS-80! 

The Alternate Forth - A superior ImPiementition of Fig Forth for the 
TRS-80 that includes ad standard words through Forth 79. TASForth 
includes editors, an assembler, a decompiler, a P1MIVE utility (Mod III 
only), virtual memory and real time clock support, a FORTHOOS 
operating system that enables you to use familar DOS commands for 
manipulating your FORTH diskettes and much more. A fantastic buy at 
S79.95! 

ALE - a Z80 assembler and fullscreen editor. A most unique assembler 
for the TRS-80! ALE includes support for most popular EDTASM 
flletypes you are likely to encounter. Dozens of unique capabilities not 
found in other assemblers, plus most "standard" commands. ALE 
supports source files longer than memory. You can also generate 
editable flies containing both source and oWect code. Perfect for 
magazine articles and documented source listings. ALE is only $49.95 
complete with a 150 page manual 

UIDE04- A screen driver for the TRS-80 Model 4. UIDE04 is a special 
screen driver for the Model 4 that enables you to use existing Model III 
programs (and disk operating systems) while taking advantage of the 
superior features of the Model 4. WDE04 also toggles the Model III 
ROM into RAM and includes patches to several "bugs" that have 
slipped Into the ROM. Complete source code Is provided on the master 
disk to assist you with writing your own custom screen driver. Note: 
Uf DE04 will not work with programs that do not honor the standard 
video device control Mock, such as ScrtPslt and VislCalc. UI0E04 Is 
S24.95. 

TRS-80 ROM Routines Documented. Jack Decker has spent years 
collecting and studying various versions of the TRS-80 ROMs that have 
appeared in various machines, including the TRZ-80. the SystemSO. 
thePMC-80 and the five known versions of the Radio Shack ROM. This 
book is more than Just a disassembly. Jack gives you a good education. 
He goes beyond one-line comments and lives you the "big picture". He 
shows you the background and the whys and wherefores of the ROM 
subroutines. He offers tips and suggestions, and he warns you of the 
pitfalls that can drive you bonkers when you use a subroutine knowing 
only enough to be dangerous. TRS-80 ROM Routines Documented is 
SI 9.95. 

EDX ~ a full screen editor for your TRS-80. EDX provides fun-screen 
editing capabilities previously unavailable on the TRS-80. Get to any 
portion of your text quickly. Support is Provided for BIG files. 
Especially helpful for preparing files for downloading and uploading 
when using your modem (many word processors use long lines that 
cause host systems to hang). EDX can learn your editing keystrokes to 
make many boring Jobs easy. Dozens of excellent features! Best of aU. 
the Price: Only $29.95. Model I and III: $39.95 for Model 4. 

These fine products are only a sample of the many programs we 
provide especially for your Model I. (II and 4. Unless you request 
otherwise, we will take the liberty of adding your name to our mailing 
list so you will learn of new products as they are available. We accept 
Visa, Master Card. COO and written P.O.'s from most major schools 
and government organizations. We also provide service for your TRS- 
80. Cad for details. 



1HE 



(Please add $3 per order for shipping and handing.) 



M.TERNKTE 

SOURCE 



704 N. Pennsylvania Avenue 

Lansing. Ml 48906 

Phone:(517)482-8270 

• 69 
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TUTORIAL 



Basic, Faster and 
Readable— Part IV 



by John Corbani 



(The first three parts of this series ap- 
peared in June, p. 104, July, p. 200, and 
November, p. 228.— Eds.) 

The intelligent use of variables in 
your programs is essential to both pro- 
gram speed and readability. The type 
and number of variables and their se- 
quence affects execution time. Creating 
mnemonic variables that are easy to 
read, remember, and understand is es- 
sential to good programming. 

In this article I look at the Model 
I/III version of Microsoft Basic and de- 
scribe how Basic puts variables into 
memory and how to use variables so 
your computer reads them faster. 

A variable name represents either 
a number (numeric variable) or a se- 
quence of printable, or control, char- 
acters (string variables). Basic uses 
variables in program statements to rep- 
resent different values. The concept is 
the same as that used in algebra. 

The formula for adding three quanti- 
ties illustrates the use of variables. 
A + B + C = D uses A, B, and C to 
represent values you want added 
together, and specifies D to represent 
the answer. 

If you assign A the value 2, B the val- 
ue 3, and C the value 5, then D equals 10 
in the above formula. If A= "B" and 
B = "0" and C= "Y" then D equals 
"BOY". You can change the number 
or characters represented by these 
variables, run the variables through a 
formula, and obtain general solutions 
to problems. 

Numeric Variables 

Three types of numeric variables ex- 
ist: integer, single-precision, and dou- 
ble-precision. Integer variables describe 
whole numbers between -32768 and 
+ 32767. Basic processes these variables 
very quickly. 
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Using variables in a Basic 
program can affect ex- 
ecution speed. Make sure 
you use them efficiently. 



Single-precision variables consist of 
any six digits and can contain a decimal 
point. They take longer to process than 
integer variables. 

Double-precision variables use 16 
digits with a floating decimal point and 
take the longest time to process, so use 
them only when necessary. 

A numeric variable's name consists 
of one or two alphanumeric characters, 
with only two restrictions: the first char- 
acter must be a letter, and you cannot 
use Basic reserved key words (If, To, 
Or, and so on). 

Basic converts lowercase characters 
to uppercase. This allows for 26 single 
letter variables (A-Z), 260 alphanu- 
meric (A0-Z9), and about 650 alpha/ 
alpha combinations (AA-ZZ). 

This total of 936 variables applies to 
each of the three types, bringing the 
total possible numeric variables to 
2,808. 

You have the choice of defining 
groups of variables as a specific numeric 
type, or adding an identifier (suffix) to 
the variable name every time you use it. 
If you do not specify a numeric type, 
Basic assumes a single-precision 
variable. 

Use the DEFINT, DEFSNG, and 
DEFDBL commands to predefine 
groups of numeric variables as integer, 
single-, or double-precision. 



The punctuation characters •ft (in- 
teger), ! (single-precision), and ft 
(double-precision) are suffixes that you 
can add to variables to define their type. 
The listing below illustrates the use of 
these definitions and suffixes. 

10 DEFINT A-C: DEFDBL X 

20 A=-3:B! = 30: BA = 10: X= Vy. XI = 1: 

X2 = 3:X3 = X1/X2:PRINTA; B!; BA: 

PRINT X; X3 
30 D = 1.666E3:X3 = 1.7563421D-2: PRINT 

D;X3 

Line 10 defines all simple variables 
(those without a suffix) starting with the 
letters A, B, and C as integer variables. 
All simple variables starting with X are 
double-precision. All other simple vari- 
ables are, by default, single-precision. 

Line 20 assigns values to four vari- 
ables. It sets A to -3, an integer, 
and single-precision variable B to 
30.0000. It also sets BA to the integer 
10, and X to the double-precision value 
of .3333333432674408. 

The computer divides constants in 
single-precision and converts them to 
double-precision or integers. If you 
want Vi to equal .3333333333333333, 
you have to type it in yourself or make 
your computer do the division with 
double-precision numbers. 

Line 30 illustrates a shorthand meth- 
od to enter data that comes in scientific 
notation. When you assign values to 
single-precision variables, you can type 
the number, an E, and the exponent. 

In double-precision you use a D be- 
fore the exponent. Basic sets the vari- 
able D to 1666.00 and the variable X3 to 
.017563421. 

String Variables 

String variables represent characters 
or sequences of characters. They can 



represent from zero to 255 characters. 

The rules for naming string variables 
are the same as those for numeric vari- 
ables. Names can be either letters, an 
alphanumeric combination, or two let- 
ters that aren't reserved words. 

Reserve groups of names for string 
variables by using the DEFSTR func- 
tion (see the listing below). You can also 
identify a string variable by placing a $ 
(read "string," not "dollar") after a 
variable name. Basic provides 936 string 
variables, bringing the total number of 
variables to 3,744. 

40 DEFSTR F-H: G = "Good bye." 

:H= "HeUo" 
50 YS = "youaIl.":F = CHRS(191) + " " 
60 PRINT F + H + YS + G 

Line 40 defines all variables starting 
with the letters F-H as string variables, 
and assigns sequences of characters to 
G$ and H$. 

Line 50 assigns a string to YS and as- 
signs character number 191 (a full white 
block) and two spaces to F$. Line 60 
uses the strings to print a block cursor 
and two sentences. 

Arrays 

Use numeric and string variables to 
identify arrays, or lists of values. The 
3,744 possible arrays are in addition to 
the individual variables. Each array has 
as many as 255 dimensions, and 65,535 
elements per dimension. 

You don't need to define arrays with 
fewer than 11 elements per dimension. 
You must dimension arrays with any 
element number above 10 before refer- 
encing the high element. 

If you define a variable as a certain 
type, you must dimension the variable 
array after that point as the same type 
unless otherwise specified by a suffix. 

70 DIM A(20,2): DIM G(26) 

80 FOR A = 1 TO 20: FOR B= 1 TO 2: 

A(A,B) = A B: NEXT B,A 
90 FOR A = 1 TO 26: G(A) = CHRS(A + 64): 

NEXT 

Line 70 dimensions two arrays. 
A(20,2) is a two-dimensional integer nu- 
meric array. G(26) is a single-dimen- 
sional string array. Remember, line 10 
defines A as an integer and line 40 
defines G as a string variable. 

Line 80 fills the numeric array with 
the numbers from 1-20 in one dimen- 
sion and the square of the numbers in 
the other dimension. Line 90 fills the 
string array with the code for the capital 
letters from A-Z 

Basic stores in memory all the variables 

^ See List of Advertisers on Page 201 



and arrays specified in a program, 
along with the information they repre- 
sent. Basic stores numeric variables just 
after the program that defines them. 
The storage process occurs as the pro- 
gram uses each variable. 

The program stores variables in 
memory in the order in which it encoun- 
ters them. Each name takes 3 bytes: 1 
for the variable type, and 2 for the 
name. The value assigned to numeric 
variables immediately follows. 

Basic stores integer values in the next 2 
bytes, single-precision in the next 4 bytes, 
and double-precision in the next 8 bytes. 
The length of the string in 1 byte and the 
address of the first character of the 
string in the 2 bytes follows the string 
variable's type and name. The program 
stores the data itself in high memory. 

Basic stores arrays in a list following 
the simple variables. Three bytes iden- 
tify the type of variable and the array 
name. Two bytes identify the total num- 
ber of elements, and 1 byte identifies the 
number of dimensions. Basic also 
allocates 2 bytes for each dimension to 
give the number of elements allowed per 
dimension. The program stores the 
data, one element at a time, starting 
with the first dimension. 

You can also use long names for the 
variables. Basic looks at the last char- 
acter to determine type, and ignores all 
characters after the first two unless they 
are reserved (key) words. Microsoft 
gives more variables than most pro- 
grams can use. 

Why all the confusion about vari- 
ables? Don't blame Basic, blame For- 
tran and the misinterpretation of books 
written by and for Fortran program- 
mers. Fortran begat Basic, and con- 
tained only a few integer variables, 
starting at I. 

Fortran had no strings, and virtually 
no organized structure. It was one of 
the first high-level languages, and is still 
the language of choice in most state-of- 
the-art scientific applications. 

Basic is an interpreter that uses much 
of Fortran's source code. It has greatly 
expanded the role and power of vari- 
ables. It also includes Basic-added 
numeric and string types, and many of 
the old restrictions are gone. The 
literature could not keep up. Many of 
the current problems are due to human 
factors that have seldom been addressed. 

Be careful not to use letters in situa- 
tions that could cause confusion. Elec- 
tronic connector manufacturers have 
noticed that people misread the letters 
G, I, O, and Q. G, O, and Q turn up as 
zero. I is a 1, and vice versa. Connector 
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10 A% 


= 10: BC$= "HELLO" 


V = VARPTR(A<%) 


Mcnoiy 






Addras 


Vahtt 


Dcarriptioa 


V-3 


3 


Integer type code 


V-2 





Fust letter of name (none) 


V-l 


65 


Second character of name (A) 


V 


10 


Low byte of the value 


V+l 





High byte of the value 


V+VARPTR(BC$) 


Memory 






Addreai 


Vaftat 


Description 


V-3 


3 


String type 


V-2 


66 


First letter of name (B) 


V-l 


67 


Second character of name (Q 


V 


6 


Number of characters in string 


V+l 


254 


Least significant byte of address of first letter of string (H) 


V + 2 


121 


Most significant byte of first letter of string (H) 
(H) is found at 254 + (121*256), or 30,976 


Table I. An example of integer and string storage in Basic. 



10 DEFINTA, B, V; 


B= 1*0: V= Mk DIM A(10,2) 


20 FOR A 


= 0TO 10: A(A.0) = A+1:A(A,1) = A + 21:A(A,2) = A + 41:NEXT 


30 V = VARPTR(A(0,0)) 


40 FORB = 


-- - 10 TO 50: LPRINT PEEK(V + B):NEXT 


Meanry 






AOfllYS 


Vakae 


Description 


V-10 


2 


Integer variable 


V-9 





Name 


V-8 


65 


Name 


V-7 


71 


Number of elements 


V-6 





Number of elements 


V-5 


2 


Number of dimensions 


V-4 


3 


Depth of dimension 2 


V-3 





Depth of dimension 2 


V-2 


11 


Depth of dimension 1 


V-l 





Depth of dimension 1 


V 


1 


First dement A(0,0) 


V+l 





First element A(0,0). . . 


V + 22 


21 


Element A(0,1) 


V + 23 





Element A(0,1)... 


V + 44 


41 


Element A(0,2) 


V + 45 





Element A(0,2) 


Table 2. A two-dimensional integer array and associated values. 



manufacturers use a 22-letter alphabet. 
That's the reason for the standard 
44-pin connector. 

I was the first of the few integers in 
Fortran, and since integers ran fast, 
they were used in most programming 
books as preferred variables. Everyone 
used them, and everyone had problems. 

G is not too bad on screen or on fully 
formed character printers, but if you 
have a dot matrix printer, watch out. O 
is a disaster when used alone, and it's 
even worse when used as the second let- 
ter of a variable name. 

Don't even consider Q unless the pro- 
gram context makes it unmistakable. 
QS for queen of spades in a poker pro- 
gram makes good sense, for instance. 

I is just as bad. It makes a bad second 
letter, and can cause confusion when 
used alone. IN is a handy name for in- 
put data, and if the context is clear, I is a 
reasonable first letter. 

The logical selection of variable 
names depends on the purpose of the 
program. Pick letters and combinations 
that form mnemonics recognizable to 
anyone familiar with the general subject 
area. X and Y are good names for 
variables that describe the X and Y plot- 
ting positions in a graphics package. 

D or T makes sense for loop variables 
used for time delays. NM$ is great for 
the name string in a mailing list program. 

Whatever you do, keep a variables 
list in alphabetical order as you write a 
program, and put arrays in a separate 
list. You need to know what the variables 
are, what they represent, and how 
they're used. Never use the same name 
for two types of numerical variables. 
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Use the fewest number of variables 
possible to do the job. Nothing is wrong 
with specifying some variables as utility 
variables and using them repeatedly. 
Initialize them every time you use them 
and you'll never have a problem. 

Variables can change function as a 
program executes. Just list all functions 
in the variables list. Variables and ar- 
rays take up valuable memory, whether 
used once or 1,000 times, so their effi- 
ciency is important. Remember, you 
can never recover memory during pro- 
gram execution. 

Fewer variables mean higher speed. 
Basic interprets programs character by 
character. When it encounters a vari- 
able, the interpreter goes to the top of 
the variables list and starts searching for 
the name. 

Variables used frequently or in time 
sensitive routines should be at the top of 
the list. If the variable is number 100 on 
the list, the program reads 99 variable 
names, compares them to the desired 
name, and discards them every time you 
reference that variable. Moving the var- 
iable up to 50 on the list doubles the 
speed of obtaining the quantity repre- 
sented by that variable. 

Assign critical values right at the start 
of the program. Remember to store string 
and numeric variables in different lists. 
Store string and numeric arrays in a sep- 
arate list, and assign values accordingly. 

Sometimes you'll want to know the 
location of a variable in memory. The 
POKE command can change the con- 
tents of strings, for example, or a ma- 
chine-language routine might need ac- 
cess to some data in memory. 



VARPTR(X) can get you to the right 
spot, but it's a tricky function to use. 
VARPTR(X) returns an error message 
if X is undefined in the program. If the 
program has not yet encountered X dur- 
ing the execution, VARPTR returns 
the memory location of the variable as 
part of the source code. This informa- 
tion is useless for determining type of 
value of the variable. 

If all simple variables have values, 
and you use VARPTR to find an array, 
any answer you get is subject to change 
and may be wrong. 

Assigning memory space to simple 
variables after arrays have been defined 
requires moving the array to make 
room for the simple variable. Table 1 
shows how Basic stores an integer and a 
string. Table 2 shows a two-dimensional 
integer array. 

Floating point numbers start with the 
least significant byte at location V. The 
number representation when playing 
with binary floating point numbers is 
too complex to go into here. Zilog and 
Intel have programming guides that can 
help, for those who are interested. 
Radio Shack information to date is 
superficial at best. 

That's enough on variables. In my 
next installment, I will take a look at 
Bask commands that let you get right 
into the hardware of your computer. ■ 

John Corbani's hobbies include pro- 
gramming, radio controlled model air- 
craft, sailing, railroading, skiing, and 
windsurfing. You can reach him at 2455 
Calk Linares, Santa Barbara, CA 
93109. 



UTILITY 



Take It Off 



by David Engelhardt 



Model 4 owners may need or want 
more space on their TRSDOS 6.0 sys- 
tem disks. Killing infrequently used 
system utilities yields the extra space, 
but TRSDOS 6.0 protects these utilities 
with a password. Before you can rear- 
range your disks, you must circumvent 
this protection. 1*11 show you how. 

Figure 1 shows the directory listing of 
an unaltered 6.0 disk. The letter P in the 
attribute (Attr) column identifies pro- 
tected files. 

The Concept 

Debug on TRSDOS 6.0 is more 
powerful than the Model HI version. It 



You can gain extra 
space on TRSDOS 6.0 
disks by killing protected 
utility files. Here's how. 



includes a new set of features, including 
a disk Read/Write utility. By taking ad- 
vantage of this utility in 6.0's revised 
Debug, you bring the system directory 
into memory, remove the password, 
and write the modified directory back 
to the disk. 



Drive :• TRSDOS 68 


40 Cyl, DDEM, Pree - 


43.50K 


/ 


180. 00K 


, Date 
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Filespec HOC 


Attr Prot 


LRL 


♦ Recs 


EOF 


Pile Size 
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Mod Date 
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256 
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8.00K 
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CLICK/FLT 
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EXEC 
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2 
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1 
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COM/DVR 
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EXEC 
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4 
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1 


lB-Mar-83 


COMM/CHD 
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EXEC 
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CONV/CMD 
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EXEC 
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FLOPPY/DCT 
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FORKS/PLT 
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23-Apr-83 
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REPAIR/CMD 
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EXEC 
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1.50K 
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EXEC 
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15 
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Figure 1. 


TRSDOS 6.0 directory listing. 







6200 

6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
62A0 
62B0 
62C0 
62D0 
62E0 
62F0 


5E 
F6 
5F 
F6 
15 
BF 
16 
BF 
16 
51 
16 
BF 

16 
BF 


B3 
37 
03 
37 
83 
AE 
83 
AE 
83 
IF 
83 
AE 

83 

AE 


53 
P5 
53 
F5 
53 
96 
53 
96 
53 
96 
53 
96 

53 
96 


28 
9C 
89 
9C 
96 
42 
59 
42 
2E 
42 
49 
42 

5F 
42 


88 
BF 
88 

38 
88 
BC 
88 
83 
88 
84 
00 
09 

88 
02 


42 
88 
53 
88 
4D 
SB 
52 
80 
43 
88 
54 
88 

4C 
88 


4F 4F 54 20 20 20 20 53 

00 02 PP FF FF FP FF PP 
59 53 36 20 20 20 20 53 
16 07 FF FF FF PF FF FF 
45 4D 44 49 53 4B 20 44 
0E 01 FF FF FF FF FF FF 
45 50 41 49 52 20 20 43 
09 40 FF FF FF FF FF FF 
4F 4D 20 20 20 20 20 44 
0C 20 FF FF FF FF FF FF 
41 50 45 31 30 30 20 43 
0A 01 FF FF FF FF FF FP 

4F 47 20 20 20 20 20 43 
09 00 FF FF PF FF FP FP 

Figure 2. Debug display. 
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Your TRSDOS 6.0 manual discusses 
this utility on pages 1-75. When you in- 
voke a disk utility command, you must 
specify six parameters relevant to the 
operation that tell 6.0 how to proceed. 
You need to indicate the number of the 
disk drive, the cylinder number, the 
starting sector, the type of operation 
you want to perform, the memory ad- 
dress, and the number of sectors. 

The Read/Write utility allows a pos- 
sibility of four disk drives, 0-3. 

TRSDOS 6.0*s name for tracks is cyl- 
inders, and you must cite cylinder val- 
ues in hexadecimal (hex) units. There- 
fore, the range of possible cylinders on 
a 40-track disk is 0-27 hex. 

The starting sector indicates where 
you want to begin reading from the 
disk. 

The Read/Write utility performs 
three operations: it writes to a disk (the 
W command), reads from a disk (R), 
and writes to the directory (*). 

The address value tells the system 
where in memory to load the informa- 
tion read from the disk. Again, this 
value must be hexadecimal. 

You control how much of a disk the 
system reads by specifying a number of 
sectors. If you don't specify, the pro- 
gram reads a whole cylinder (18 sectors). 
Since sectors are numbered 0-17, se- 
lecting a sector number greater than 17 
tells the software to continue reading 
onto the next cylinder. 

Removing the Protection 

Begin the unprotecting process with a 
little insurance. Instead of altering your 
original disk, make a back-up copy and 
use that. If anything goes wrong while 
you're tampering with the disk direc- 
tory, you won't be able to recover the 
working disk. 

Place the back-up in drive zero. Type 

the command FREE :0 to determine 

which cylinder holds the directory. The 
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directory location is labelled DDD, and 
is usually at cylinder 20. 

At the TRSDOS Ready prompt, type 
DEBUG (ON.EXT) and press the enter 
key. The Debug monitor loads, then 
control passes back to the Ready 
prompt . Press the break key to enter the 
Debug monitor and a three-quarters 
screen display of the Z80 register values 
appears. 

Type F6000,7800,00 and press the 
enter key. This clears the memory you 
want to use. 

Load the disk's directory into memo- 
ry using the Disk Read/Write utility 
command: 0, 1 4,0, R, 6000, 17 and press 
the enter key. The software reads disk 
cylinder 14 hex and places the informa- 
tion in memory beginning at 6000 hex. 
Then the utility displays the contents of 
memory, starting at 6000 hex — this is 
the disk's directory. 

Pressing the semicolon key incre- 
ments the display 256 bytes of memory 
at a time; the hyphen key decrements 
the display by 256 bytes. Step through 
memory until the starting address of 
6200 hex appears on the screen. 

In the far right column, the file 
names appear in ASCII format. As you 
step through memory, the names of all 



the disk's files show up. Notice that 
some of these names don't appear when 
you take a directory of the disk. See 
your manual's explanation of the DIR 
command for more about these "invisi- 
ble" files. 

Figure 2 shows the Debug display of 
memory beginning at 6200 hex. This in- 
cludes the directory information for the 
utilities Memdisk, Repair, Com, Tape- 
100, and Log. The line on which the 
ASCII file name appears represents the 
beginning of each directory entry. 

Looking at the first byte in the first 
line of each utility, notice Memdisk 
begins with a 15; Repair, Com, Tape- 
100, and Log begin with 16. This byte 
tells the system the program's protec- 
tion level. Changing this changes the 
program's protection. If the value is 10 
hex, the program is completely acces- 
sible. 

Try unprotecting Memdisk for prac- 
tice. Type E6240 and press the space bar 
to set Debug's pointer to Memdisk's 
first line. Notice that the current byte 
value appears at the lower left of the 
screen. 

Type 10 and press the enter key. The 
display reflects the change you made. 
The first byte of Memdisk is 10, mean- 



ing that Memdisk is now unprotected. 

Type E6260 and press the space bar. 
The pointer moves to the beginning of 
the Repair utility. Change its initial byte 
to 10. Continue making these changes 
until you alter all the utility programs. 
Remember: You've made these changes 
in memory only, not on the disk. 

To replace the disk's directory with 
your modified directory, use another 
disk Read/Write utility command. It's 
almost the same as the one that puts the 
directory in memory. Just change the 
operator from R to an asterisk. Type 
0,14,0,*,6000,17 and press the enter 
key. Type the letter O and press the 
enter key to return to TRSDOS Ready. 
Turn off Debug using the command 
DEBUG (OFF). 

Call the directory using the DIR com- 
mand and you see that the programs 
you changed no longer have the P at- 
tribute. You are free to copy or kill 
them at your discretion. 

Use this technique to customize your 
6.0 disks to suit your needs. 

(For related information, see the 
sidebar on the next page. — EdsjM 

Contact David Engelhardt at 10221 
W. Wist Place, Broomfield, CO 80020. 
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Outstanding Gra/yx. SUftFACC PLOT 
lets you brooden your imagination by 
creating amazing three-dimensional 
views with Grofyx Solution. Micro-Lobs' 
Grofyx Solution is a plug-in, dip-on board 
which gives you 98,304 points in a 512 
x 192 matrix. That's sixteen times as 
many points as a standard Model Ml 
Another unique feature is the ability to 
display the hi res screen along with the 
normal text ond low-res screen. 



Flexible Grofyx. SUftFACC PLOT allows 
you to enter on equation of the form 
Z=F(X,V) where 2 is the height above 
the surface for a given X, V coordinate. 
For example, entering the equation Z= 
10-X* draws a hid. The final picture can 
be viewed from any position in space so 
you can see an image from underneath, 
above, or even inside a hi* or volley on 
the plot surface. Vou can also specify the 
size of the resulting imoge. 

Complete Grofyx. The program 
automatically removes hidden lines for 





best results. The documentation contains 
complete instructions ond sample equa- 
tions so that you will have your computer 
hard at work without delay. The finished 
plot can be saved on disk or printed on 
any of 20 popular printers. 

The Grofyx Solution pockoge is shipped 
from stock ond includes the board, 44 
programs including on 80-Column display 
driver and extended Graphics Bask, and 
o 54 page manual all for $299.95. The 
SUftFACC PLOT program, twelve hi-res 
pictures, and manual is $39.95. Shipping 
is FACC on pre paid or COD orders. (Tx. 
residents odd 5% soles tax.) ££ T£ 

464 Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 
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The Password Is . . . 

by David Lantis 

At one time or another, you've 
probably run across a Model 4 disk 
file you wanted to list but couldn't 
because it was password-protected. 
One way to gain access is to remove 
the password protection, but that 
leaves the Mies open to anyone. 

A better solution is to use this 
Basic program and the Memdisk 
utility to uncover the password. This 
leaves your files protected against ac- 
cidents, while still giving you com- 
plete freedom. 

Program Operation 

PASSCRCK/BAS (see the Pro- 
gram Listing) searches for the pass- 
word of a protected file on the disk in 
drive zero. The program systemati- 
cally tries every possible combination 
of letters and numbers until it hits 
upon the successful one. 

The On Error and Resume state- 
ments in lines 10 and 5000, respec- 
tively, are PASSCRCK/BAS's key. 
They keep the program running as 
long as it makes errors, i.e., as long 
as it generates an incorrect password. 

Lines 30-160 loop around, testing 
every possible alphanumeric value 
for each of seven possible password 
characters (stored in variables C2- 
C8). Line 170, the loop that tests the 
value of the first character (CI), is 
different from those in the previous 
lines because TRSDOS 6.0 requires 
that a letter begin a password. 

Lines 180-200 tally the values of 
the individual characters (C1-C8) 
into P$, the variable that holds the 
password possibility currently being 
tested. Line 210 is optional; it prints 
P$ on the screen. While it's helpful 
to know how far along the program 
is, this line does slow execution. 

Line 220 sets the variable FILES 
equal to the command that lists your 
selected program, LIST FILE NAME/ 
EXTENSION PASSWORD, where 
password is the possibility the pro- 
gram tests. 

Line 230 goes out to the system to 
test the password. If the program is 
successful, then the program listing 
appears on the screen. Finally, the 
software prints the line LIST FILE 
NAME/EXTENSION PASSWORD 
at the top of the screen. Get a pencil 
and write down the password. 



Unfortunately, this program is 
slow. It tests tens of thousands of 
possible combinations of letters and 
numbers. In addition to the time it 
takes to test the password, the disk 
drives wait one second between the 
time they start spinning and the time 
they begin reading the disk. Multiply 
this second across the number of 
password possibilities tested and 
we're talking about hours, maybe 
days. 

Speeding Things Up 

Memdisk, a TRSDOS 6.0 utility, 
helps speed things by creating a 
pseudo-disk in memory. This cir- 
cumvents the physical disk I/O that 
takes so much time. Your TRSDOS 
6.0 manual documents the Memdisk 
utility on page A-l 16. 

To run PASSCRCK/BAS with 
Memdisk, move the system files, 
Basic's error reporting overlay BA- 
SIC/OV1, and the program you 
want to crack into memory on Mem- 
disk. (If BASIC/OV1 is protected on 
your disk, remove the protection 
using the method described above.) 

Type SYSTEM (DRIVE = 2, 
DRIVER = "MEMDISK") and press 
the enter key. The Memdisk utility 
menu appears. Choose option D, 
specify a double-density Memdisk 
(type D again), and respond Y to the 
format request. If you ask for a di- 
rectory (DIR), you see that drive 2 
now contains Memdisk. 



Type in BACKUP $/SYS:0 :2 
(SYS) to tell the computer to copy all 
system files onto disk 2, the disk in 
memory. 

Typing in BACKUP BASIC/ 
OV1:0 :2 moves the Basic overlay 
program onto Memdisk. This cir- 
cumvents the physical disk I/O 
involved when PASSCRCK/BAS 
fails and BASIC/OV1 reports, "Ac- 
cess denied due to password pro- 
tection." 

Type in BACKUP file/ext:0 :2 
(where file is the name of the pro- 
gram you're cracking) to move the 
program onto Memdisk. 

Typing in SYSTEM (SYSTEM = 2) 
installs Memdisk as drive zero. Re- 
questing a directory now shows phy- 
sical drive zero as drive 2 and Mem- 
disk as drive zero. 

Type in BASIC/CMD:2 to run 
Basic. Then, from Basic's READY 
prompt, load and run PASS- 
CRCK/BAS. When the program 
asks "File you wish to list?" enter 
the name of the program you want to 
crack. 

With the Memdisk method im- 
plemented, PASSCRCK/BAS tests 
about 100 passwords per minute. 
Carried to its ultimate end, the pro- 
gram reaches its final possibility 
(password ZZZZZZZZ) in approxi- 
mately 1,041 years. But the chances 
are that the software will encounter 
the correct password well before 
then. ■ 



10 ON ERROR GOTO 5000 

20 INPUT'What file to list -- must be on disk 0-jFS 

30 FOR C8-32 TO 90 

40 IP (C8>32 AND C8<48) OR (C8>57 AND C8<65) THEN 320 

50 POR C7-32 TO 90 

60 IP (C7>32 AND C7<48) OR (C7>57 AND C7<65) THEN 310 

70 POR C6-32 TO 90 

80 IP (C6>32 AND C6<48) OR (C6>57 AND C6>65) THEN 300 

90 POR C5-32 TO 90 

100 IP (C5>32 AND C5<48) OR (C5>57 AND C5<68) THEN 290 

110 POR C4-32 TO 90 

120 IP (C4>32 AND C4<48) OR (C4>57 AND C4<68) THEN 280 

130 POR C3-32 TO 90 

140 IP (C3>32 AND C3<48) OR (C3>57 AND C3<68)THEN 270 

150 POR C2-32 TO 90 

160 IP (C2>32 AND C2<48) OR (C2>57 AND C2<68) THEN 260 

170 POR Cl-65 TO 90 

180 P1$-CHRS(C1)+CHR$(C2)+CHR$(C3)+CHR$(C4) 

190 P2$»CHR$(C5)+CHR$(C6)+CHR$(C7)+CHR$(C8) 

200 P$«P1$+P2$ 

210 PRINT P$ 

220 PILE$-"liat "+P$+"."+P$ 

230 SYSTEM PILES 

240 PRINT PILES: END 

250 NEXT CI 

260 NEXT C2 

270 NEXT C3 

280 NEXT C4 

290 NEXT C5 

300 NEXT C6 

310 NEXT C7 

320 NEXT C8 

330 PRINT 'Couldn't find the password, I guess you'll have to fi 

re ae'sEND 

5000 RESUME 250 

Program Listing. Password Sleuth. 
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SPECIAL INTERESTS 



MICROSOFT BASIC DECODED AND OTHER MYS- 
TERIES— by James Earvour. From the company that 
brought you TRS-80 DISK AND OTHER MYSTERIES. 
Contains more than 6500 lines of comments for the dis- 
assembled Level II ROMs, six additional chapters de- 
scribing every BASIC subroutine, with assembly lan- 
guage routines showing how to use them. Flow charts 
for all major routines showing how to use them. Flow 
charts for all major routines give the reader a real In- 
sight Into how the Interpreter works. BK1 186 $29.50.* 



PROGRAMMING THE Z-80-by Rodnay Zaks Here is as- 
sembly language programming for the Z-80 presented as 
a progressive, step-by-step course This book is both an 
educational text and a self-contained reference book, 
useful to both the beginning and the experienced pro- 
grammer who wish to learn about the Z-80 Exercises to 
test the reader are included BK1122 $1635 ' 



ASSEMBLY LANGUAGE GRAPHICS FOR THE TRS-80 
COLOR COMPUTER— by Don Inman and Kurt Inman 
with DYMAX. This dynamic new book uses sound and 
graphics to show you how 6809 assembly language can 
be used to perform tasks that would be difficult or Im- 
possible with BASIC. All of the techniques are explained 
in a hands-on approach. Learn how to tailor you own pro- 
gramming style, from editing, assembling, executing 
and even debugging, to making your own programs run 
quickly and efficiently. It is also packed with video 
screen diagrams which explain each step of the process 
of creating your own graphics. BK1277 STf.Tf 



TRS-80 COLOR BASIC— Bob Albrecht Learn how to use 
tne unique color, sound and graphics of the TRS-80 Color 
Computer. This self-teaching guide uses a learn-as-you- 
play format to teach Color BASIC Packed with games 
experiments, programming problems, and solutions, it is 
an ideal introduction for children, teachers, and adults. It 
starts with simple concepts and takes you on to more 
complicated games, graphics, and activities, including 
many chances for you to try out your newly learned pro- 
gramming skills. Included Is an entire chapter on pro- 
gramming problems, which offers tip on adapting to Mi- 
crosoft BASIC on other personal computers. BK1280 
$10.95 



SO YOU ARE THINKING ABOUT A SMALL BUSINESS 
COMPUTER— By Richard G. Canning and Nancy C. 
Leeper. For a well-organized manual on the process of 
selecting the right computer system for your small 
business, this text can't be excelled. Designed to intro- 
duce the novice in data and word processing to the real 
benefits of computerization, the book is filled with 
money- and time-saving tips, photos of equipment, 
lists of suppliers, prices, explanations of computer ter- 
minology, and helpful references to additional sources 
of information. Everyone contemplating a first com- 
puter installation should have this book. BK1222 
$14.00* 



THE CUSTOM TRS-80 AND OTHER MYSTERIES-by 
Dennis Kitsz. More than 300 pages of TRS-80 customiz- 
ing information. With this book you'll be able to ex- 
plore your computer like never before. Want to turn an 
8 track into a mass storage unit? Individual reverse 
characters? Replace the BASIC ROMs? Make Music? 
High speed, reverse video. Level I and Level If Fix it 
if it breaks down? All this and much, much more. 
Even if you have never used a soldering iron or 
read a circuit diagram, this book will teach you how! 
This is the definitive guide to customizing your 80! 
BK 121 8 $29.95.' 



PROGRAMMING-6809 



6809 MICROCOMPUTER PROGRAMMING AND 

INTERFACING — by Andrew C Staugaard. Jr. Getting 
involved with Tandy's new Color Computer? If so. this 
new book from the Blacksburg Group will allow you to 
exploit the awesome power of the machine's 6809 
microprocessor Detailed information on processor ar- 
chitecture, addressing modes, register operation, data 
movement, arithmetic logic operations. I/O and inter- 
facing is provided, as well as a review section at the 
end of each chapter. Four appendices are included 
covering the 6809 instruction set. specification sheets 
of the 6809 family of processors, other 6800 series 
equipment and the 6809*6821 Peripheral Interface 
Adapter This book is a must for the serious Color Com- 
puter owner BK1215 $13 95 * 



TRS-80 DISK AND OTHER MYSTERIES— by Harvard C. 
Pennington. This is the definitive work on the TRS-80 
Model I disk system. It is full of detailed "How to" infor- 
mation with examples, samples and in-depth explana- 
tions suitable for beginners and professionals alike. 
The recovery of one lost file Is worth the price alone. 
BK1181 $22.50.* 



INSIDE LEVEL II— For machine language program- 
mers. This is a comprehensive reference guide to the 
Level II ROMs, allowing easy utilization of the 
sophisticated routines they contain. It concisely ex- 
plains set-ups, calling sequences, variable passage 
and I/O routines. Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com- 
piler Special consideration Is given to disk systems 
BK1183$15 95.* 



Nanos System 
REFERENCE CARDS 

FOR MODELS I. II, III, COLOR AND 
POCKET COMPUTERS! 

At last! No more flipping through the pages of the 
BASIC manual! No more working through the maze 
of machine language instructions! These cards 
completely summarize the BASIC and Assembler 
manuals 1 FEATURES INCLUDE: 
memory map. eyeball graphics, math instructions, 
BASIC commands, store instructions, BASIC func- 
tions, load instructions, BASIC statements, move 
instructions, special keys, exchange instructions, 
PRINT USING examples, shift instructions. BASIC 
special characters, compare instructions, BASIC 
and assembler messages and codes, branch In- 
structions. BASIC facts, data alteration instruc- 
tions, reserved words, I/O instructions, ROM 
routines, complete character chart with graphics 
and space-compression codes, hex-dec chart, con- 
trol code cross-reference, assembler instructions, 
commands and operators, screen line layout, editor 
commands and subcommands, condition code 
easy access. 

Plus— "magic graphics number— a mystery until 
you learn how to use it! 

Designed as a fold-up, accordion-style card, fits In 
your pocket. Panels organized for optimum speed 
for reference. 

Model I: BASIC and Assembler FC1002 $4.95 

Model II: BASIC and Assembler FC1005 $5.96 

Model HrComrnands and Utilities FC1010 $3.95 

Model III: BASIC and Assembler FC1005 $5.95 

Color BASIC and Extended FC1006 $4.95 

Z-80-. Microprocessor FC1011 $4.95 

ZX80.ZX81 and Tlmex Sinclair 1000: FC1012 $5.95 
Pocket Computer BASIC FC1009 $2.95 

Apple II and Apple II Plus: BASIC and 6502 FC1008 

$4.95 
Apple II and Apple II Plus: BASIC only FC1007 $3.95 



MASTERING CP/M— by Alan R. Miller For advanced 
CP/M users or systems programmers who want max- 
imum use of the CP/M operating system, this book 
takes up where the CP/M Handbook leaves off. It will 
give you an In-depth understanding of the CP/M 
modules such as CCP (Console Command Processor), 
BIOS (Basic Input/Output System), and BDOS (Basic 
Disk Operating System). It explains the Incorporation 
of additional peripherals to the system, console I/O. 
the use of the file control block and much more. It also 
includes a library of useful macros and a comprehen- 
sive set of appendices. BK1263 $1695 
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A USER GUIDE TO THE UNIX SYSTEM by Jean Yates 
and Rebecca Thomas. Here at last is a clearly written 
book that allows you to use the Unix operating system 
easily, and at a fraction of the time it previously took. If 
you're using, evaluating or simply curious about this sys- 
tem, this Is your book. BK1242 $15.99 



WORDSTAR MADE EASY by Walter A. Ettlln. Now Word 
Star is as simple to learn as it is easy to use. This book 
teaches WordStar in 14 easy lessons, saving hours of 
hard work. It comes with a convenient pull-out Command 
Card. BK1239 $7.95 




INTRODUCTION TO WORD PROCESSING by Hal 
Glatzer. This book explains in plain language what a 
word processor can do. how to use one. how it improves 
productivity — especially in businesses that handle lots 
of words— and how to buy one wisely. No technical 
knowledge required, for all first-time users and those 
considering purchasing a word processor. BK1238 $12.96 



"Use the order card in this magazine ot itemize your order on a separate piece of paper and mail to: 80 Micro Book Department • Peterborough NH 03458 Be sure to include 
check or detailed credit card information No C.O.D. orders accepted. $1.50 for the first book, $1.00 each additional book for U.S. delivery and foreign surface For foreign airmail 
$10.00 per book. Please allow 4-6 weeks for delivery Questions regarding your order? Please write to Customer Service at the above address. 
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ANNOTATED BASIC-A NEW TECHNIQUE FOR NEO- 
PHYTES — BASIC programming was supposed to be 
simple— a beginner's programming language which 
was so near to English that Is could be easily 
understood. But, in recent years, BASIC has become 
much more powerful and therefore much more difficult 
to read and understand. BASIC simply Isn't basic 
anymore. 

Annotated BASIC explains the complexities of 
modern BASIC. It includes complete TRS-80" Level II 
BASIC programs that you can use. Each program is an- 
notated to explain in step-by-step fashion the workings 
of the program. Programs are flowcharted to assist 
you in following the operational sequence And— each 
chapter includes a description of the new concepts 
which have been introduced. 

Annotated BASIC deals with the hows and whys of 
TRS-80 BASIC programming. How is a program put 
together? Why is It written that way? By observing the 
programs and following the annotation, you can devel- 
op new techniques to use In your own programs — or 
modify commercial programs for your specific use. 
Annotated BASIC Volume 1 BK7384 $10.95 
Annotated BASIC Volume 2 BK7385 $10.95 
Order Both Volumes and Save! BK738402 $18.95 



COMPUTER CARNIVAL-by Richard Ramella. Your 
child can become a crackerjack computerist with the 
sixty TRS-80 Level II programs In COMPUTER CARNI- 
VAL. This large-type, spiral bound book for beginners 
is a veritable funhouse of games, graphics, quizzes 
and puzzles. Written by BO Micro columnist Richard 
Ramella, the programs are challenging enough to en- 
sure continued learning, yet short enough to provide 
your child with the Immediate delight and reward of 
mastering basic computing skills. And for even greater 
enjoyment, get the CARNIVAL COMPANION, a 30-mln- 
ute cassette containing all the programs in the book. 
Eliminates tiresome typing and lets your child spend 
more time enjoying the programs. BK7389 $16.97 
CC7389 Book and Cassette $24.97 



THE NEW WEATHER SATELLITE HANDBOOK-by Dr 
Ralph E. Taggari WB80QT. Here Is the completely up- 
dated and revised edition of the best-selling Weather 
Satellite Handbook — containing all the information on 
the most sophisticated and effective spacecraft now 
in orbit. Dr. Taggart has written this book to serve both 
the experienced amateur satellite enthusiast and the 
newcomer. This book is an Introduction to satellite 
watching, that tells you how to construct a complete 
and highly effective ground station. Not just ideas, but 
solid hardware designs and all the instructions neces- 
sary to operate the equipment are Included. An entire 
chapter is devoted to microcomputers and the Weath 
er Satellite Station, and for the thousands of experi- 
menters who are operating stations. The New Weather 
Satellite Handbook details all the procedures neces- 
sary to follow the current spacecraft. Weather Satellite 
contains Operation Satellite Systems, Antenna Sys- 
tems. Weather Satellite Receivers, A Cathode Ray 
Tube (CRT) Monitor for Satellite Picture Display, A Di- 
rect-Printing Fasclmlle System for Weather Satellite 
Display, How to Find the Satellite, Test Equipment, Mi- 
crocomputers and the Weather Satellite Station, Sta- 
tion Operations BK7383 $8.95.* 



THE SELECTRIC INTERFACE-by George Young. You 
need the quality print that a daisy wheel printer pro- 
vides but the thought of buying one makes your wallet 
wilt. SELECTRIC' M INTERFACE, a step-by-step guide 
to interfacing an IBM Selectric I/O Writer to your micro- 
computer, will give you that quality at a fraction of the 
price. George Young, co-author of Kilobaud Microcom- 
puting magazine's popular "Kilobaud Klassroom" 
series, offers a low-cost alternative to buying a daisy 
wheel printer. SELECTRIC INTERFACE includes: step- 
by-step instructions, tips on purchasing a used Selec- 
tric, Information on various Selectric models, includ 
ing the 2740. 2980, and Dura 1041, driver software for 
Z80. 8080. and 6502 chips, tips on Interfacing tech- 
niques. With SELECTRIC INTERFACE and some back- 
ground in electronics, you can have a high-quality, low- 
cost, letter quality printer. Petals not Included BK7388 
(125 pages) $12 97 




KILOBAUD KLASSROOM-by George Young and Peter 
Stark Learning electronics theory without practice isn't 
easy And its no fun to build an electronics proiect that 
you can't use Kilobaud Klassroom. the popular series 
first published in Kilobaud Microcomputing, combines 
theory with practice This is a practical course in digital 
electronics It starts out with very simple electronics 
projects, and by the end of the course you'll construct 
your own working microcomputer! 

Authors Young and Starn are experienced teachers, 
and their approach is simple and direct. Whether you're 
learning at home or in the classroom, this book provides 
you with a solid background m electronics— and you'll 
own a computer that you built yourself! BK7386 $14.95 



TEXTEDIT— A Complete Word Processing System in 
Kit Form— by Irwin Rappaporl. TEXTEDIT is an inex- 
pensive word processor that you can adapt to suit your 
differing needs— from form letters to lengthy texts. 
Written in TRS-80 Disk BASIC, the system consists of 
several modules, permitting the loading and use of on- 
ly those portions needed. A disk is also available which 
provides the direct loading of the modules, however, 
the book is required for documentation. For Model I 
and III with TRSDOS CONVERT., one disk drive (2 disk 
drives or copy utility needed to transfer to system 
disk). Runs under TRSDOS 2 2/2 3. May not function 
under other systems BK7387 $9 97 Disk DS7387 $19.97 



40 COMPUTER GAMES FROM KILOBAUD MICROCOM 
Pl/T/NG— Forty games in all in nine different categories 
Games for large and small systems, and even a section 
on calculator games. Many versions of BASIC used and 
a wide variety of systems represented A must 'or the 
serious computer gamesman BK7381 $7 95 " 



WAYNE GREEN BOOKS 







How to 
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With 
Computers.- 
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HOW TO MAKE MONEY WITH COMPUTERS-ln 10 in 
formation-packed chapters, Jerry Felsen describes 
more than 30 computer-related, money-making, high 
profit, low capital investment opportunities 
BK1003 $15.00.' 

INTRODUCTION TO PASCAL— By Rodnay Zaks A 
step-by-step introduction for anyone wanting to learn 
the language quickly and completely. Each concept is 
explained simply and in a logical order. All features of 
the language are presented in a clear, easyto-under 
stand format with exercises to test the reader at the 
end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used dla 
lect tor small computers. No computer or program- 
ming experience is necessary BK1189 $1&95 



PASCAL 

PROGRAMMING IN PASCAL -by Peter Grogono The 
computer programming language PASCAL was the 
first language to embody m a coherent way the con 
cepts o' structured programming, which has been 
defined by Edsger Dijkstra and C A R Hoare As such, 
it is a landmark in the development o' programming 
languages PASCAL was developed by Nikiaus Wirth 
in Zurich, it is derived from the language ALGOL 60 but 
is more powerful and easier to use PASCAL is now 
widely accepted as a useful language that can be effi- 
ciently implemented, and as an excellent teaching 
tool It does not assume knowledge of any other pro 
gramming language and therefore suitable for an in- 
troductory course BK1140$1295* . 
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Finding the 
Search Solution 

Continued from p. US 

of the two keys and uses the composite 
key signature for the search. For exam- 
ple, to search for the record containing 
the keys "lane" and "walk", the pro- 
gram logically ORs the key signatures 
of "lane" and "walk" to produce a 
composite key signature (Fig. 4). 

You then compare each record signa- 
ture with the composite key signature. 
Only the record signature of the string 
"Jill walks up the lane" matches (for 
every bj equal to 1 in the composite key 
signature, a bj equals 1 in the record 
signature). 

The program identifies the string 
even though the search key "walk" is 
only a substring of the word "walks". 
This is an important feature of the sig- 
nature screening method. You need to 
specify only three or more letters of a 
word to fmd it. The substring can be 
from any position in the word. 

Signature Screening 
on an 8-Bit Machine 

The detective who helped us earlier 
has gone home to watch reruns of Perry 
Mason, and it's time to get to work. 
First, I'll describe the general aspects of 
implementing signature screening on 
8-bit machines. I'll follow this with an 
explanation and complete Assembly- 
language listings of two signature 
screening programs (Mindex and 
Search) for the Models II, 12, 16, III, 
and 4. 

Finally I'll give instructions on using- 
the programs, suggest potential applica- 
tions, and venture a prediction on how 
personal computers will store and 
retrieve textual information in the 
future. 

Source and Index FDe Structure 

Start with a simple case in which each 
text record is 255 or fewer bytes and is 



followed by an end-of-record indicator 
(ASCII 13). The program stores only 
one record per disk sector. Figure 5 
shows a 10-sector source file, the rec- 
ords in each sector, and the correspond- 
ing index file. 

The index file has the same name and 
password as the source file, but the ex- 
tension MAP. The first sector of the in- 
dex file, called the header, contains the 
name and version of the indexing pro- 
gram (Mindex 1.2) and the source file's 
file specification. The source file's drive 
number isn't included since the user 
might wish to switch drives. 



The remainder of the index file sec- 
tors are called signature sectors. Each 
signature sector contains eight record 
signatures stored in parallel. Think of it 
as eight 251 -bit strings stacked one on 
top of another. The record signature of 
the nth source file record is located in the 
(INT(n/8) + l)th sector of the index file 
and comprises the (n mod 8)th bit of 
bytes zero to 250. 

Neither Mindex nor Search uses the 5 
bytes (251 to 255) at the end of each sig- 
nature sector. In Fig. 5, you can find the 
signature of the first source record (sec- 
tor zero) by reading the first bit (bit 
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Index File 

FILE1/MAP 




Source File 
FTLEl/TXT 
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number 
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Jack 
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goat on the hill 
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cat and dog 
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Jack and Jill 
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ran up the hill 


9 



Figure 5. Source file (FILE1/TXT) and its index file (FILE1/MAP). 



Signature 

I 



























OTO10000000000000000010000W100000^ 

000 1 0000000000 1 0000000000000 1 ooooooooooooooooooooooooooooooooo 1 oaxxxwoaxxxxxxxxxxxxxDooaxxxwi^ 

0001 0000000000000000000000001 000000000000000000000000000001 C»O0OO0(XXXXX>(XXX)OOCXXXXXXXXX>OOO0O0OOOCXX»^ 

(XXXXX)0O00O0000O0O0O00000000O00O^^ 

oc» i oooooooocw 1 ooooooooooaw 1 oooooc»ooooooc)oc>cxxxx»oooa 



String 

He ran dovri the lane 
Jill walks up the lane 
The goat ran up the lane 

Jill 

valkB ♦ lane 



Figure 4. Record signatures of the three strings in Table 2 and key signatures of the search keys "Jill" and "walks + lane". 
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HARD DISK MODEL 4 




6 MEG FLXED + 5 MEG REMOVABLE 82895.00 

10 MEG FLXED 8895.00 

10+10 MEG FIXED 349500 

1 M EG ELXED + 5 MEG REMOVABLE 3395.00 

15 MEG FIXED 2395.00 

15+15 MEG FLXED 3795.00 

15 MEG FIXED + 5 MEG REMOVABLE 3495.00 

ADAPTOR MODULES for: 

TRS-80 Mod I, III. 4. LNW-80, -II, 

IBM-PC -XT, XEROX 820. -II 

Coining soon adaptors for Apple-II, lie. Franklin 




I 'ndcr desk mounting bracket 
Boot ROM for Model III. 4 
Extended Warranty (to 1 vear) 



8495 

34.95 
150.00 






g 1649.00 

1 28K Model 4 

2 Drives. VR-R-S232C 

1 6K to 64K RAM upgrade kit 896.00 

64K to L88K RAM upgrade ( includes PAL) 110.00 
PAL only for 64K to 128K upgrade 34.95 



DISK III 



Internal floppy disk subsystem for Model III & 4 (in- 
cludes controller, power supply, cabling, bracket and 
all associated mounting hardware). 

DISK III KIT - Without drive 8299.95 

DISK III KIT — With 1 drive (ss. <U\) 449.00 

DISK III KIT - With 2 drives (ss. dd) 699.00 



EXTERNAL FLOPPY 

DISK DRIVES (ss.dd) 8229.00 

80 Track or 2 sides add. per dr 1 00.00 

80 Track and 2 sides add. per dr 200.00 

EXTERNAL Power supply & enclosure only 54.95 
VR-RS882C 80.00 

Model III & 4 - Direct replacement for 26-1 148 



SPECIAL BLTS OX COD & PREPAID ORDERS ONLY: 



EPS* IN FX80, MX80. MX 100 (ALL 

CITOHF10 1395.00 

CITOHTRACTOH 885.00 

MX80 RIBBON 9.95 

MXIOOKIBHmN 10 05 

(" ITOH & DIABLO RIBBONS 7 50 

EPSON GRAPHTRAX 75 00 



PAPER 9\ kx 11 FANFOLD 89.95 

PAPER 14"- x 11 GREENBAR 34.95 
PRINTER CABLES 25.00 

( >KII»ATA MH'KI >LIXE 88A 489.00 
I >K1I)ATA MICR( 'LINE 88A 699.00 
PERCOM DOUBLER II 169.00 

PERC4 »M DATA SEPARATOR 29.95 
I.XW RESEARCH (FULL LINElCALL 



DOS-PLUS OPERATING 

SYSTEM 149.95 

VERBATIM 586-01 2690 
DC HAVES 

SMARTMODEM 300 220 00 
DC HAYES 

SMARTMODEM 1200 569.00 



Call Toll Free • 800-345-8102 



Published price* reflect cash discount All prices arc aubjeci 

to change nlthout notice TRS-80 and TKSlx ISare trademark** of 

Tandy <".,q> 



Telephone Hours: 8o80am- 7pm M" 'N-FRI , SAT 10-8 EST 

CABLE YKPA1.V TELEX 845-124 



\IR 



MasterCard 





data 



(215)4X51-5300 
777 Henderson Blvd. 
Folcroft, PA 19032 
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YK DATA - WEST 

WATONGA, OK 

1-405-628-8664 
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zero) of each of the bytes in the first sig- 
nature sector. 

Indexing 

I'll index the file in Fig. 5. First, the 
program reserves a 256-byte buffer in 
memory for the signature sector. After 
it opens the source and index files and 
writes the index file header sector, the 
program starts indexing. 

The program sets all the bytes in the 
signature sector buffer to zero. The pro- 
gram reads the first source file record 
into memory. It then hashes each triplet 
in the source record to a number be- 
tween zero and 250, and sets bit zero of 
the corresponding byte in the signature 
sector buffer to 1. In the first source 
record the triplets "bir" and "ird" hash 
to 171 and 194, respectively, so the pro- 
gram sets the first bits of bytes 171 and 
194 of the signature sector to 1 . 

After the program processes the first 
record, it reads the second record (sec- 
tor 1) into memory. Again, the program 
hashes each triplet in the record, but this 
time the program sets bit 1 of the corre- 
sponding byte equal to 1. The triplet 
"cat" hashes to 193 so the program sets 
bit 1 of byte 193 of the signature sector 



tol. 

The program repeats this procedure 
until it indexes eight of the records. It 
then stores the signature sector buffer in 
the index file (sector 1). The program 
processes the next eight sectors of the 
source file in the same manner, and se- 
quentially stores the signature sector in 
the index file. Indexing continues until 
the end of the source file, then the pro- 
gram writes the last signature sector to 
the index file and closes both files. 

Searching 

Remember that in its simplest form 
the search algorithm is: Match the 
signature of the first record to the key 
signature. If, for every bi equal to 1 in 
the key signature, you have a cor- 
responding bi equal to 1 in the record 
signature, the screening test is positive 
and the program brings the record into 
memory and searches it for the key. 
Continue screening record signatures 
until you reach the end of the index file. 

An ideal way to compare the key sig- 
nature to a record signature is to have a 
machine with 251 -bit registers and ac- 
cumulators. You could compare the key 
and record signatures in one operation. 



Search key 
Triplets 
Hash values 

Key hash buffer 

Figure 6. Search key 
source file in Fig. 5. 


Jill 

Jil 
212 




ill 
142 


21 
14 

22 


> "JUT 


'for search of the 



It would be a form of parallel process- 
ing — the same as putting multiple nee- 
dles in edge-notched cards and selecting 
only those cards that fall out. 

Eight-bit machines, however, neces- 
sitate the use of serial processing. 
Although a program can sequentially 
compare all 251 bits of the key and 
record signatures, it would be waste- 
ful because the majority of bits in the 
key signature are set to zero and can be 
ignored. 

Instead, the program stores the hash 
values of all triplets in the search key in 
a separate buffer called the key hash 
buffer (Fig. 6). If, for each hash value in 
the key hash buffer, the corresponding 



Listing 3 continued 

•••62 j 

• »B63 iKODII buffers 

• ••64 , 

•••65 PUBLIC ACCESS [access mode ol OPEN routine 

•••66 PUBLIC BREAK [break endabled Duffer (Y/N) 

•••67 PUBLIC INDCB [INput (source) file DCB 

• ••69 PUBLIC IDCBP.L ilnput file DCB Record Length 
•••69 PUBLIC IDCBCB ;Input file DCB Current Record 
•••7t PUBLIC IDCBLR t Input file DCB us! Record 
•••71 public INLLR itrue lilt record of eource file 

• ••72 PUBLIC IDCBOS (Input file DCB uiinj 
•••73 PUBLIC HAPDCB [MAP (Index) file DCB 

•••7 4 PUBLIC MDCBRL [Nap file DCB Record Length 

•••75 PUBLIC HDCBCR [Map file DCB Current Record 

•••76 public HDCBLR (Map file DCB Lait Record 

•••77 PUBLIC NAPLLR itrue laat record of Index file 

• ••78 PUBLIC HDCBOS ;Hap file DCB l.l.mi 
•••79 PUBLIC HEMEND [contents ->top of nenory 

••••• PUBLIC OUTCHR j record buffer (1 byte) for output file 

•••81 PUBLIC OUTDCB [Output file DCB 

•••62 PUBLIC PRTBUF (printer buffer (81 char) 

•••83 PUBLIC SORLN ;atart of record line no. 

•••84 PUBLIC STHAP utart of HAP index file (always laat b 

•••85 ;of SEARCH program) 

•••86 j 

•••87 iMODII I/O parm 

• 1(81 

B»I89 PUBLIC ARROWD isrrow down 

•••9t PUBLIC ARROWL jarrov left 

•••91 PUBLIC ARROWR (arrow right 

••092 Public arrowu tarrow up 

• ••93 PUBLIC BPJIXEY ;break Key 

• ••94 PUBLIC BSPKEY [back apace Key 

•••95 PUBLIC CPYPOS [copyright nag poaitlon 

•••96 PUBLIC DELKEY [delete key 

•••»7 PUBLIC DFTFS [default file size 

•••98 public inskey [insert key 

•••99 PUBLIC LSBYTE icol of last byte in 255 byte rec 

M1M PUBLIC PENULN ,-penultinate line (next to bottom) 

os 102 PUBLIC SWH1 [screen width minus 1 

••113 PUBLIC TOPLN [top line of editor screen 

••1>4 [ 

••115 [external routines and buffers 

••H6 [referenced by MODII 

■ 1117 , 

••1>8 EXTERN ANSWER [general purpose 1 byte buffer 

•8189 EXTERN EATBMK [bypass leading blanks 

• •lie EXTERN EATNBNK .-bypass leadinq non-blank cnar 
•till i 

••112 ilodel II equates 

BBll 3 

00114 ARROWD EQU 1FH [arrow down 

• •115 ARROWL EQU 1CH [arrow left 
•0116 ARROWR EQU 1DH [arrow right 
•0117 ARROWU EQU 1EH [arrow up 

• 0118 brrkey EQU 3 .-Dreak key 
00119 SW1DTH EQU 80 [screen widtrv 

B012B SWK1 EQU 79 iscreen width minus 1 

••121 TOPLH EQU 19 [top line of edit text 

B0122 PENULN EQU 22 [penultimate line 

00123 I.SBYTE EQU 14 [Column of last byte in 255 byte rec 

00124 DFTFS EQU 808 (default file size for 3by5 
•B125 DELKEY EQU 2 [delete Key (P2) 

•0126 INSKEY EQU 1 [Insert key (Fl) 

•0127 BSPKEY EQU 8 (backspace key 

•0128 CPYPOS EQU 52 [copyright notice position 

• •129 i - 

0*130 (HOME 

8(131 , 

CB132 [pos cursor to rlicl 

01)33 ;<■-■-, altered: AF,D 

0B1 34 i 

08135 [BOTTOM 

B8136 [ 

CB117 [pos cursor to r24:cl 

••138 ireg altered: AF.D 



00139 HOME PUSH BC 

00140 LD BC,0 ICllCl 
09141 HOKE5 LD D,l 

• 0142 SVC If ipos cursor 

• B143 POP BC 
•0144 RET 

00145 [ 

00146 BOTTOM PUSH BC [pos cursor to r24:cl 

01147 LD BC,23'256»B ItMlSl 

01148 JR H0NE5 

• •149 ( - 

ceiso is'ewln 

en 51 i 

£•152 [rolls screen and positions 

BB153 (cursor to next to last line 

88154 [also keeps track of first line of 

00155 [current (or last) recoid displayed 

01156 ireg altered: A 

•0157 NEWLN PUSH BC 

0O15B PUSH DE 

•9159 PUSH HL 

00160 CALL BOTTOM ipos to bottom line 

00161 LD A.0DH 

00162 CALL VDCHAP [roll screen by dsp EOR on Dotton line 

• •163 LD BC,22'256tO |t2!t«l 
00164 CALL POSCUR 

0B165 LD A, (SORLN) 

•0166 CP 4 [has first line reached top of screen? 

• 1167 JR Z.NCWLNS df it has do not dec ISORLN) 
•B168 LD A, (SORLN) 

••169 DEC A [dec (SORLN) 

0»17B LD ISORLN) ,A 

•0171 NEKLH5 POP HL 

• •172 POP DE 
08173 POP BC 
0(174 RET 

•»17 5 [ 

CB176 iCURPOS 

((177 , 

C017B [ get cursor position 

BB179 (value returned in BC 

•8180 iB-row, C-coluan 

•B181 ireg altered: AF,D 

01182 CURPOS LD D,0 

00183 SVC 11 [get cursor pos 

00194 RET 

• •185 [ 

C0186 [POSCUR 

••187 [ 

00188 (position cursor 

00189 iB-rov, C-column 
••19t ireg altered: AF.D 
••191 POSCUR LD D.I 

0)192 SVC )• ipos cursor 

B8193 RET 

•0194 l 

C«19S (KBINIT 

•B196 | 

•0197 KBINIT SVC 1 [inltllize Keyboard 

•B19B RET 

0«199 l 

C02»B [KBCHAR 

((2(1 , 

C>2(2 [get char from keyboard 

00203 (works like Model III KBCHAR 

••2(4 lvalue of pressed Key returned 

00205 iln A reg. If no key pressed, A-0 

00206 KBCHAR PUSH BC 
••217 LD B,« 
•1208 LD A,'N' 

••2(9 LD (BREAK), A iset break switch to N (no break) 

••21t SVC 4 [Model II KBCHAR 

00211 LO A, (BREAK) 

00212 CP 'V iwas break key pressed 
••213 JR :,KBCH6 

••214 LD A,B [move entered char to A reg 

• •215 POP BC 
••216 RET 

Listing 3 continued 
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EE/EPROM PROGRAMMERS & UV ERASERS 



AFFORDABLE • RELIABLE * AVAILABLE 



UV ERASERS 

QUV-T8/1 

$49.95 

•HOBBY 

0UV-T8/2N 

$68.95 

'INDUSTRIAL 

QUV-T6.2T 

$97.50 

'WITH TIMER 
& SAFETY SWITCH 

GANGPRO-8 ' 

$1,295.00 

(GANG 

PROGRAMMER) 



RS-232 serial, STAND ALONE, INTELLIGENT 

•EASY DUPLICATION 'USER FRIENDLY '128K BUFFER 

SUPPORTS MOST 8K 16K. 32K. 64K. 128K. 256K EPROMS 
PROMPRO-8 KEY PAD OPTION. EPROM SIMULATION MODE 

Microcomputer Chips 8748 (H|, 8749H, 8750. 8751. 8741 8742. 8755A 

SOFTWARE DRIVERS: MDS ISIS. TEKTRONICS 8002 IBM PC. ATARI 
APPLE II. CPM. FLEX. TRS-80 

DIRECT HOOK UP TO ANY DUMB TERMINAL OR COMPUTER 
DISTRIBUTOR INQUIRY WELCOME 

LOGICAL DEVICES INC. 

1321 E N.W. 65 Place, Ft. Lauderdale, FL 33309 
Phone Orders (305) 974-0967 TWX 510-955-9496 




• 330 



DOZ 



c1 0.$11.95oo-^ 595oOZ 



C60j$!6. 



i8SlHl 

large quantises. 



ICl ■ — ■ 



itw 



" - p O BOX 336 



WHERE DID ALL 

THE MONEY 






TALLYMASTER offers a new, powerful, 
easy- to use way of summarizing and ana- 
lyzing budgets and expenses It's designed 
ior personal and small business use by peo- 
ple who need quick answers to the question, 
'■Where Did All The Money Go?" 

Like most PROSOFT products, "TALLY- 
MASTER" originally was developed just 
for our own use To find out why our expen- 
ses kept rising, we looked for a quick and 
easy way to categorize our bills The check 
register gave too much detail, and with 
"VISICALC", it was hard to just add new 
numbers at random. 

TALLYMASTER takes a simple, com- 
mon-sense approach to organizing and 
summarizing expenses and sales. Up 
ti i 702 categories can be defined As 
numbers are added to them, new to- 
tals are shown instantly It's like 
having a room full of calculators, 
all in easy reach. Totals can be sor- 
ted, reports printed, and disk files 
combined 




TALLYMASTER's handsome documen- 
tation has a step-by-step tutorial, with dozens 
of examples and illustrations. We've even 
included five sample disk files for you. 
Whether you're managing a home budget or 
business expenses, this program can give 
you better understanding and control. It 
helped us, and it can help you. 

TALLYMASTER is available for the 
TRS-80 Models I and III (48K) and the 
IBM Personal Computer (128K) The 
TRS-80 version is just $79.95 The IBM 
version, with functional keys and an 
extra-fast sort, is just $12995 



0«pl C. §0« SCO. No Hollywood. C» 91M3 

(213) 764-3131 
Toil-Free order lines: 
(800) 824-7888 oper 422 



Terms: 



VISA. MC, CHECKS. COD., or even cash - No P.O.Y Pleas* add $3.00 shipping 'handling 

in U.S. A. ,'$5.00 to Canada, $15.00 overseas For COD please add $2.00 in U.S. only, add 

sales tax in California, we ship within one day of receiving orders 



►-91 



^ See Usi of Advertisers on Page 291 
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ThE BVTE 

GENERAL 

3SierksLane 
Roslyn Harbor, NY 11576 

24 Hour Order Lines 

516-625-0920 

516-338-4083 ^ 

FREE SHIPPING IN THE U.S.A. 

TRS-80: 

Model 4, 16k $849 

Model 4, 64k, 1 Drive $1320 

Model 4, 64k, 2 Drives, RS-232.$1575 

Model 100 Portable 8k $659 

Model 100 Portable 24k $830 

Covered by The R/S 
90 Day Warranty. 



Elephant Diskettes: 

#1 SS/SD Soft 

#2 SS/DD Soft 

#5DD/DDSoft 

#10DS/SDSoft96tpi 



.$15.95 
.$18.95 
.$25.95 
.$28.95 



Modems: 

Signalman Mark I . . . 
Signalman 300/1200 
Smartmodem 300 . . . 
Smartmodem1200.. 
Smartmodem 1200B 

IBM version 

Novation J-Cat 

Smart Cat 300/1200 . 



..$74 
.$259 
.$199 
.$479 



.$449.95 

. . . .$119 

...$420 



Printers: 

Prowriter 8510ap $354 

Prowriter 1550 Call 

Prowriter Ribbons $7 

FKMOcps $1125 

Fl0-55cps $1339 

Tractor for F10 $189 

Bananna Printer $189 



Practical Peripherals: 

Epson Buffer 

Par/Ser. (Epson) $119.95 

Microbuffer Inline 

Par/Ser. 32k $209.95 

Microbuffer Inline 

Par/Ser. 64k $239.95 



Look knmmd, FM Tko tost Prtos 
kmi Tto Ow nri Will Bo*t Tbow. 

FREE SHIPPING 

Dealer Inquiries Invited 



TERMS OF SALE: Thar* is a ?*S«<vic« Charge 

for Mastercard or Visa COO Orders Add $2 50 Orders 
Undar $30 ptaaae add $2 shipping and handang. 



record signature bit equals 1, the screen- 
ing test is positive, and the program 
searches the source record for the key. 
Since it isn't efficient to compare 1 bit at 
a time on an 8-bit machine, the program 
processes eight record signatures at 
once. 

To search the file in Fig. 5, you must 
first open the index file, then the source 
file specified in the index file header. 
The search begins when you enter a key 
(e.g., the name "Jill"). 

The program hashes each triplet of 
the key and stores the hash value se- 
quentially in the key hash buffer (Fig. 
6). In the example, it stores the hash val- 
ues 212 (hOfl)) and 142 (h(ffl)) respec- 
tively in the first and second bytes of the 
key hash buffer. 

Then the program reads the first sig- 
nature sector of the index file into the 
signature sector buffer in memory. It 
sets the accumulator (A) to 255 (1111 
1111 binary). The program ANDs byte 
212 (hash value of the triplet "jil") of 
the signature sector with A. 

If A equals zero, the triplet "jil" isn't 
present in the first eight sectors of text 
and you can process the next signature 
sector. If A doesn't equal zero, the trip- 
let "jil" might be present, so the pro- 
gram continues to process the current 
signature sector. 

The program ANDs byte 142 (hash 
value of the triplet "ill") of the signa- 
ture sector with A. Skip to the next sig- 
nature sector if A equals zero; otherwise 
continue as follows. For each bit in A 
equal to 1 it's possible (but not certain) 
that the corresponding record contains 
the triplets "jil" and "ffl". 

In the example, A equals 72 (0100 
1000 binary), indicating that sectors 3 
and 6 might contain the key you're 
looking for. The program reads record 
3 into memory and searches sequential- 
ly for the string "Jill". It finds the key 
and displays the record. 

Then the program reads record 6 into 
memory, but the key "Jill" isn't present 
so it bypasses the record. The reason for 
the collision is simple — the triplet 
"goa" hashes to the same value as "jil" 
and the triplet "ill" appears in both 
records. 

The program sequentially reads the 
index file a sector at a time and process- 
es each signature sector similarly. After 
it screens the entire index file and 
searches the appropriate source records, 
you can enter another key to restart the 
searching process. 

Searching for the joint occurrence of 
two or more keys is merely an extension 
of the above procedure (search the file 
for the names "Jack" and "Jffl"). The 



'The program processes 

eight record signatures 

at once. " 



program stores the hash values (123, 4, 
212, and 142) of the triplets "jac", 
"ack", "jil", and "ill" in the key hash 
buffer. 

The program reads the first signature 
sector into memory and sets the ac- 
cumulator to 255. It ANDs byte 123 of 
the signature sector with A. SinuTariy, it 
ANDs bytes 4, 212, and 142 of the 
signature sector with A. 

If at any time A equals zero, none of 
the eight source records contains both 
strings, and the search skips to the next 
signature sector. In the example, only 
bit 5 equals 1 , so it's the only source rec- 
ord searched. The program finds the 
names "Jack" and "Jill" and displays 
the record. 

In these simple examples only one 
record is present per sector. When two 
or more records completely fit into one 
sector, the program indexes the entire 
sector as one record. When the program 
searches the sector, however, it exam- 
ines each record separately for the 
search key(s). If a record spans a sector 
boundary (starts in one sector and ends 
in another), it is considered as logically 
in the first sector in which it begins. 

You increase the speed of searching 
by storing as many signature sectors as 
possible in memory (reducing the 
number of disk reads during index 
screening). 

TRS-80 Signature Screening 

Mindex and Search are Assembly- 
language programs that use signature 
screening to search text files. Mindex in- 
dexes the source file and stores the index 
on disk. Search uses the index created 
by Mindex to search large text files 
quickly. 

These programs were written with the 
Radio Shack Assembly Language De- 
velopment System (ALDS) on a Model 
II. Each program consists of several 
modules. The two input/output (I/O) 
modules include MODII/SRC for the 
Model II and MODIII/SRC for the 
Model III. 

The ALDS editor, assembler, and 
linker work only on the Model n. If you 
have a Model in and want to use these 
programs exactly as written, you must 
first write, assemble, and link them on a 
Model II and then, using the ALTRAN 
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Listing J continued 






Hill 


no* 


u> 


A.) 


fOlMl) pieiicil 9o A- 3 


Hill 




pop 


K 




••21* 




in 






Mai 

MUl 










1 






IIIHAIT 


••212 

•1221 
















mil far char froa larboard 


■mm 








mill Ilia Hoaal II OMAIT 


MR 


ISKMT 


rota 


M 




••22* 




LB 


■•• 




•■227 




LD 


A, '■" 




N22I 




u> 


(BUM), A 


llaltlallia to ao braak 


M22* 


(■M 


SVC 


• 




Hat 




POSI 


AT 




MUl 




u> 


A.IIMAI) 




•■at 




cp 


•T' 


i<braal> petal aoT 


Nl)l 




n 


I r IWi 


lip ka braak potrbeala^ aactlaa 


••2)4 




pop 


AT 




Hill 




JR 


H.UW4 


I loop until lay pcea««d 


HM 




LD 


A, I 


jaova antarad lay to A reg 


••2)7 




pop 


K 




Hat 




xn 






••21* 


OH 


POP 


AT 




••24* 




u> 


A, 3 


I braak lay antarad 


••24) 




POP 


»C 




•1242 




RET 






•124) 
••244 
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jword procaaalna KBHAIT routlna 


••247 








ion tha Nodal II this li baaleally 


••141 
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••24t 


wnmrr 


rusi 


■c 




MM* 




LD 


0.1 


ibllnllng eurior on 


ttttl 




«vc 


$ 




•I2S1 




LD 


■»• 




HM) 


mhmn 


CALL 


UHAIT 




M2S4 




II 


C.A 


jaava kayad In char 


MM) 




LD 


■ >2 


icurior off 


HIM 




SVC 


• 




M2S7 




LD 


A.C 


iraatora kayad la char 


MM* 




POP 


K 




HHt 




irr 






Hill 
••2*1 
















iOfo 


MM2 
MM) 
















lopan Ilia 


••2(4 
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MM) 








1 DE->DCB 
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MM7 
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••241 
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LD 


(■OTAM) ,11 




M2if 




LD 


BL r KJ7ADI 




••271 




SVC 


41 


loean Mia SVC 


M271 




PUSH 


AT 




M272 




LD 


A>l 




••27) 




LD 


(RM.A 


Hit racord length to 2M bytaal 


■•274 




POP 


AT 




••27) 




ACT 






M27I 


i 








••277 


aurnua 


DEPM 


I 


i but far addraaa (paaaad by ID 


••271 


item 


DBF* 


■ 


I racord addraaa (not naodad for M* byta rac) 


••27* 


tOO AC 


DET» 


I 




M2M 


ACCU5 


Deri 


■»■ 


iraad only aceaaa 


••2(1 


M 


DBPI 


I 


I racord lanqtn (aat to I) 


••2(2 


vow 


DETB 


•P- 


) variable or flzad laa racord 


•121) 


CIIATt 


Deri 


* 




••2*4 

HHt 

M2M 


ATT* IB 


Dtrs 


• 








jiair 


••217 

Hill 
















ilnltlallia (craata) a flla 


MM* 








lantryi lL->racord buffar 


M2M 








I 0E->DC» 


••2*1 








laalti A-naooa arror ■*? 


••1*2 








ire* altaradi Ar.iL 


MM) 


hit 


LD 


(BUPADAI) ,HL 




••2*4 




LD 


IL, BUP ADR I 




HHt 




SVC 


*• 




M2M 




POSI 


AT 




••2*7 




ID 


A,* 




M2*l 




LD 


in.) .a 


I racord lenqht - 2M 


Hat 




POP 


AT 




(•)*• 




«ET 






••Ml 


1 








M)(2 


MJPkDKI 


Dm 


f 


i addraaa of aactor baffar 


••)■) 


ucao*i 


Dm 


■ 


■addraaa of racord battar 


H)*4 


■CDADI 


om 


* 




HHt 


ACCESS 


out 


•W 


i aceaaa • l "Hit* 


HIM 


■LI 


Deri 


■ 


I racord length - 1H bytea 


H)«7 


VOIPI 


Deri 


•r 1 


fflaad laafth record* 


••)•• 


CIEATII 


Deri 


2 




MM 


Arnui 


Dtri 


f 




HM* 


, 








Hill 








i or hit 


••112 










Mil) 








iapaa a flla bat do not raaat It 


M)14 








laatryi *L-> aactor raad baffar 


HSU 








I Dl->DCI 


Hat 








laalti A*nt*DO* arror rn 


ma 








ira* altaradi Ar,DK,lt. 


Mill 


opikit 


LD 


A,* 




H)l* 




LD 


latum ,a 


lopan aaly do not raaat 


**)2* 




LD 


K.OOTd* 


i racord baffar 


H)21 




LD 


(■•camjoi.k: 




HHt 




LD 


(B07ADI0) ,1L 


i aactor baffar addtaaa 


tap 




LD 


■X.MTAMO 




•1)24 




POSI 


Dl 


laava Dl a B la caaa opan talla 


•1)2) 




POSI 


■L 




•1)2* 




LD 


A, IAWII) 




H)27 




CP 


'■' 




•t)2« 




Jl 


I.0PIR3 




HlH 




sve 


•• 


lopan 


•*))• 




JP 


I.OPIR4 




H))l 


oriu 


LD 


A, 2 


i craata and raaat 


HM) 




LD 


(CUATBO) ,A 




••))) 




POP 


IL 




M))4 




POP 


DC 




••315 




SVC 


41 


lopan 


••))• 




irr 






HM7 


on «4 


POP 


IL 


l raatora atack 


H))i 




POP 


Dl 




••))• 




IET 






•l)4( 


I 








H)41 


■uraoao Dm 


g 




H)42 


■■CAWO Dim 


f 




M)4) 


CCO ADO 


DETW 


| 




MM4 


ACCtMO Dir ■ 


■ H > 




MM) 


■to 


Deri 


1 




M)M 


VOAfO 


DtPB 


'r' 




H)47 


cuatro Deri 


• 




HMt 


ATTIIK) 


oen 


1 




MM* 


0OTCHI 


Dert 


• 


1 racord baffar 


••)»• 
















rCMH 


MM2 
••))) 
















icloaa fUa 


H))4 








laatryi Da»DCB 


••))) 








■ ailti A-TRJDO* arror »•? 


MM* 


CLOSE 


SVC 


42 


icloaa flla 


M))7 




in 






HM* 
MM* 
















|HHH 


HMt 

MM) 
















i 

nat hap laat racord to troa la at rac 


HMt 








ithla routlna la nacaaaary to aaka proaraaa 


MM) 








i compatible with nodal III 


nui 


•MUL* 


LD 


m.,<RDC*LI) 




HM) 




LD 


IRAPLUt) ,BL 


■no need to dec IL on Rod II 


HMt 




in 




Listing } continued 



DISCOUNT 



TRS 80™ Model I & III 

External Mini Disk Drives 





Single Chassis 

With Power Supply 

Fully assembled silver chassis with external card edge connector 
for easy cable installation. Chassis includes power supply and one 
Tandon drive. 



TM 100-1 

With Chassis . 

TM 100-2 

With Chassis . 



S235 
S295 



Tandon Bare Drives: 

• TM 100-1 

Single Sided 40 Track 

• TM 100-2 

Double Sided 40 Track 

CDC Bare Drives 

• 9409 

5V<" Double Sided 40 Track 



5179 
$239 

$239 



Printers 



Epson: 

RXBO 

100 CPS PAR 10"' 

FX80 

160 CPS PAR 10 

FX 100 

160 CPS. PAR 15" 

Star Mlcronics: 
GeminMOX 

120CPS PAR-10" 

Gemlnl-15X 
15X 

120 CPS. PAR-10' 



Call 
Call 
Call 

S299 

«439 



Okidata: 

ML82A <5QOK 

120 CPS. SER« PAR-10 "0*3D 

ML92 $AftQ 

160 CPS. PAR-10" **M)af 

ML83A SCCO 

120 CPS. SER« PAR-10" "039 

160CPSPAR-15" '849 

ML84P $QQn 

200CPS.PAR-15" y 9l1U 



Free Shipping! 

Order Now - Toll Free 

1-800-531-5475 (If Outside Of Texas) 

(512) 250-1523 (In Texas) 



VISA * MasterCard * Money Order * Cashier's Check 
Add W» Sales Tax If Texas Resident 

TRS It It A Tndmtrt Of Tandy Corp 




CompuP.dc) 



Corp 



13010 Research Brvd 

Suite 101 

Austin TX 78750 



*> S— Utt olAdmUdtn on flap* »T 
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programs supplied in the ALDS pack- 
age, transfer them to the Model III. 

Alternatively, you can write and as- 
semble the programs using a simple edi- 
tor/assembler such as Radio Shack's 
Series I Editor/Assembler (EDTASM). 
EDTASM does not contain a linker so 
it's necessary to combine the modules 
into one program for Mindex and 
Search. 

I first developed Mindex and Search 
(version 1.1) on a Model III using 
EDTASM. However, the editor's 
memory was limited and the program 
comments were restricted. 

When I switched to the Model II, I 
started using ALDS. Much to my cha- 
grin, the operating systems of the two 
machines are quite different. For exam- 



ple, to display a character on the Model 
III, you load the character into the ac- 
cumulator and make a call to location 
33 hexadecimal (hex). The routine alters 
the contents of the DE register pair. 

On the Model II, you load the char- 
acter into register B, load the supervisor 
call code 8 into the accumulator, and 
execute an RST 8 operation. The DE 
register pair isn't altered. 

Rather than rewrite the program for 
the Model II, I developed separate I/O 
routines for the Models II and III. Since 
I wrote the original programs for the 
Model III, the parameters pass to the 
I/O routines in Model III format. 

For example, the program stores the 
character you want displayed on the 
screen in the accumulator. A few of the 



Model II routines (SVCs) aren't present 
in Model III TRSDOS so I added them 
(such as routines to position the cursor 
at coordinates stored in the BC register 
pair). 

If you're using Radio Shack's ALDS, 
type in the program modules in Pro- 
gram Listings 1-3 and 7-12 for the Model 
II, and Listings 4-12 for the Model III. 
After the ALDS writes each module, 
you must assemble them to relocatable 
code by using ALASM, the ALDS 
assembler. 

After ALASM assembles all mod- 
ules, you're ready to link them. For the 
Model II, type ALLINK MINDEX2 
MINDEX $ = 4000 to link the Mindex 
program and ALLINK SEARCH2 
SEARCH $ = 4000 to link the Search 



Listing 3 continued 



1*341 

Il!«t 
Hilt 
1*371 

••971 
M372 

Itm 
1*174 
••175 

• •374 

• •177 
»»376 
1(379 
1(36* 



1*3*8 
••3)9 
»*39* 
1*391 

• •392 

• 1393 
1*39« 
1*195 
1*3 96 
1*397 
Hit'. 
11399 
*)4*t 
(*«*1 

• •4(2 
•*4*3 
t«4*4 
1(4(5 
1*4*« 

• *4*7 

• •4*8 

• 14*9 

• •41* 

• •411 

• (412 
•1413 
M414 
((415 
Hill 
••417 
1)418 

• (419 

• •42) 
••421 
••422 

• •423 
■•424 

• •425 
30426 
••427 

• •42« 

• •429 

• •43t 
•1431 
••432 

• •433 

• •434 

• •435 

• •434 

• •437 

• •43) 



setilr lo 



• •4 



• (441 
(•444 
11445 
**44t 
**447 
**44* 

• •449 

• (451 
((451 
••452 
1*453 

• •454 

• •455 

• •454 
»*457 

• •456 



• •461 

• •462 

• •463 

• •464 

• •465 

• •466 
••467 
••468 

• 1469 



POSEOF LD 



CBLIN3 LO 



mi. (5 CALL 



INC 

INC 
CALL 



CALL. 

DIC 

DEC 



l SETILR 

list input ia*t etc to IM laat rac 



BC,*prrfH 

35 

DE.OUTDCB 

33 

BC 

DE.OUTDCB 

IS 



' 




15 


iREADDR 


BEADDR 


irtad dlract 

lantryi DE->DCB,BC»rac no. 


READNX 


(vc 

HI 


31 


iREADKX 

iraad n«it racord 
lantryi OE->DCB 




IK 


14 


i WRITE 


WIT! 


iwrlta dlract 

lDE->OCB, BC-t*c r.o. 




SVC 

?ET 


43 


iWRITaB 


*s:ts* 


iwrlta naat racord 
lantryi DE-KDCB 



A, 3 

XBLI1 
A,*DH 

(EORCHR) ,A 

A,l 

VDCHAR 

C,« 

KBWAIT 

D,A 

•DU 

I,IBL*DH 

at 

I.RBLBSP 

BRJtKEY 

Z.KBBR* 

2*H 

K,«BL*5 



Z,KBL(5 

1HL1 ,A 



ilBLINt and RBLIN1 

iRBLINEl EOR-1DH, RBLIN3i EOR-1 

it • as* length 

lEOR-IDH or 13 

iraturna with laat char entered In A 

I EOR-3 



■blinking cursor 

■ <wt*t> ««y7 

I (backspace > kay? 
Kbraak> k»y7 



KBLIDH LD 



KBL(5 

A, (EORCHR) 

(BX).A 

VDCHAR 

A.BRRKEY 

I EORCHR) ,» 

«BL*DI 

A, (EORCHR) 

(HL) ,A 

VDCHAR 

HL 

A, 2 



idlaplay EO* 
/return with A-break 

;plac« EOR (13 or IDH) 

idlaplay EOR 
iHL->byta past EOR 



**47( LO A, [EORCHR) lA returne altn las 

• •471 LD t,C ichsr .-;.--. 
•1472 MT 

••473 EORCHR DEfB (DM i EOR charscter 

1(47 4 , 

••475 iPRINIT 

(•47( ,— _.. 

•1477 PRINIT PUSH BC [Initialise prlntar 

••47* PL'SI DI 

M47» SVC 17 iprintar lnlt 

HIM POP Dt 

••411 POP BC 

••••2 RET 

•14(3 i 

••4(4 SCRPRO PUSH BC iseroll protact 

•1485 LO B,A |A contalna Una no 

06186 SVC 27 

••417 POP BC 

1*4*8 RET 

(14 89 | 

• MM I ERASES 

• •491 I 

•14*2 ERASES LO A,1*H israss to and or ac 

• •4*3 CALL VDCHAR 

• •494 RET 

••495 l 

••494 ERASEL LD A.17H israae to and of ll 

11497 CALL VDCHAR 

••491 RET 

•1499 i 

•ISM /VDCHAR 

U511 | 

•*5I2 idlaplay char 

••5(3 VDCHAR PUSH BC 

••5(4 PUSH AT 



15*5 



1563 



1*566 

• 1567 

• •568 

• •5(9 
1*57* 
••571 



co 



B.A 





LT 
SVC 
POP 
RET 


BC 
»C 

BC 


15- 


[VDIHIT 






fDIKIT 




and lnltlallia 





••5*6 SVC 

•15(7 POP 

••5*« POP 

••5(9 RET 

1*511 
1*512 
••513 
••514 

• •515 

• •516 

• •517 

• •518 
••519 IVDLINE 

IS 521 I—- 

••521 lantryi HL-^atrlna 

••522 l*DK or *1 atop dlaplay 

11523 isilti hi. ->nait char 

•1524 VDLINE PUSH BC 

•1525 VDL*5 LO B,(HL) 

••526 SVC • ivdchsr 

••527 INC HL 

11528 LO A,B 

••529 CP IDH 

10 531 JP I,VDL12 

••531 CP 13 

••532 JP 2,VDL12 

••533 JP VDL15 

••534 VDL12 LD A, 2 icursor off 

••535 CALL VDCHAR 

••536 POP BC 

••537 RET 

••53 8 i 

••519 iVDLIHl 

Hill I 

• •541 idlaplay Una but no carriage 
■■542 lantry: HL->etrln9 

••541 i IDH or (3 atop display 

8(5 4.4 I DOES NOT PRINT IDH I I 

•1545 iaalt! HL ->n««t char 

••546 VDLIS3 PUSH BC 

1)547 VDLK5 LD B.IHL) 

••54* LD A, CM 

••549 

• •55) 
••551 
••552 

• •551 

• ■554 

• 1555 
•*55« 

• •557 

• •558 
••559 

• •561 
••561 
11562 



Z.VDL3I 



vdcha 



VDLlt) INC 



VDL112 



JP 


Z.VDL112 


CP 


•) 


JR 


I.VDL312 


CP 


VDL3I5 


LD 


A. 2 


CALL 


VDCHAR 


PCP 


BC 



iVDCLS 
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PUT PRICES IN CHECK 



RADIO SHACK * 

ZIP BOX RELOADS FOR 

LINE PRINTER 
I, II. & IV 



INNOVATIVE 
CONCEPTS 

FLIP'NFILE 

DISC STORAGE BOX 
HOLDS UP TO 60 DISKETTES 

8" 



NEW ITEM 

CARTRIDGE RIBBONS FOR 

RADIO SHACK" 

INE PRINTE 
VI & VIII 



99 



EA 



86. 



29 



DOZ 



5V4" 



CARTRIDGE RIBBONS FOR 

RADIO SHACK* 

DAISYWHEEL 
& DAISY WHEEL 

MULTI-STRIKES. NYLON 



WV «29.«- 



CARTRIDGE RIBBONS FOR 



APPLE PRINTERS 

NEC 8023A 

C. ITOH PROWRITER 

s 9. 95 fA s 107. 46 oo 



CARTRIDGE RIBBONS FOR 

EPSON 

MX-80 MX-100 



CARTRIDGE RIBBONS FOR 

RADIO SHACK" 

LINE PRINTER 
& V 

NEWLY DESIGNED CARTRIDGE 



PROTECTALL 
LINE VOLTAGE 

SURGE 
SUPPRESSOR 

(SIX OUTLET) 



$3995 



EA 



MEMOREX 
DISKETTES 

5V« SINGLE-SIDE DUAL DENSITY 



#3481 



$04 



99 



10 PACK 



RIBBONS FOR 



*6."ea 

*75. 4 W 



*1 1 . 95 EA 
*129. 06 DOZ 



IDS PRINTERS 

EA DOZ 

440 *2. 75 $ 29. 70 

PAPER TIGER 6. 95 75. 06 
MICROPRISM 7." 86. 29 

PRISM 10. 95 118. 25 



MAXELL 
DISKETTES 

5V 4 " SINGLE SIDE 

DUAL DENSITY 

MD-1 



I 



10 PACK 



LABEL 
SPECIAL 

$2 b 99 



/k 



(5K MIN) 



1 ACROSS 3 , i 15/16 CONTINUOUS LABELS 




TOLL FREE 800-343-7706 

IN MASS 617-963-7694 



MOST RIBBONS AVAILABLE IN COLORS TOO! 

CALL OR WRITE FOR OUR SUPPLIES CATALOGUE 

ON ORDERS UNDER «14.» PLEASE ADD *3.°° FOR SHIPPING 

MINIMUM RIBBON ORDER »30°° OR 1 DOZEN 

- Check-Mate — 




51 DIAUTO DR 



PO BOX 103 



PHONES OPEN 9AM-6PM EASTERN TIME RANDOLPH. MA 02368 

•RADIO SHACK IS A REGISTERED TRADEMARK OF THE TANDY CORP 



MASS RESIDENTS 
ADD 5% SALES TAX 
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MAP INDEX PROGRAM Version 1 .2 



© 1983 Softshell 



File Name: 



Enter name of Tile to be indexed, or ? for help 



Figure 7. The Mindex screen. 



program. Do the same for the Model 
III, but use the file names MINDEX3 
and SEARCH3 and set $ = 5200 (the 
program's starting location). 

To transfer the programs from the 
Model II to a Model III, you must use 
the ALTRAN transfer programs sup- 
plied with ALDS. On the Model III, 
Mindex and Search must have the ex- 



tension CMD; on the Model II, no ex- 
tension is necessary. 

Using Mindex and Search 

After you assemble and link both 
programs, you're ready to begin index- 
ing and searching. The first requirement 
is an ASCII text file. You can create the 
text with Scripsit and convert it to 



ASCII file format by using the Scripsit 
convert utility. 

If you don't have Scripsit or some 
other word processor/text editor, you 
can create text files by using the editor 
that comes with Basic. Instead of typing 
in a line of code, type in a record. You 
must save text files created with the Ba- 
sic editor in ASCII format. 

Mindex indexes text or data source 
files. It stores the index in the separate 
MAP index file. The program segments 
records longer than 255 characters into 
blocks of 255 characters and indexes 
them until it finds a block of characters 
less than 255 characters long terminat- 
ing in an end-of-record (EOR) message. 
The index file that Mindex creates has 
the same name as your source file 
(unless you specify otherwise) and the 
extension MAP. 

To run Mindex, type MINDEX and 
press the enter key. Mindex displays the 
screen in Fig. 7 and waits for you to en- 
ter the file specifications of the source 
and index files. The syntax is: SOURCE 



Listing 3 continued 








11(51 


LD 


A.C 














•Mt( 


CP 


• 


llf xaro cannot backapaca 


• •572 








; routine to input March keye 


• ■((1 


JP 


Z, OETCHB 




••57 3 








lentry: HL -> input buflct 


•••(2 


DEC 


C 


idac countar 


••574 








IB • max no. of char 


••((3 


DEC 


HL 


idac buffar pointer 


••575 








l*lltl BL ->EOR 


•M(4 


LO 


A. 98 




•«57» 








iB-no. chat. A- BOB 


• •465 


CALL 


VDCHAR 


leraae one char 


••577 


mn 


to 


A,l 




•M(( 


JP 


GETCHR 




• •578 




CALL 


VDCRAJI 


/turn cursor on 


• M67 


KBEND LO 


B,C 




••571 




Li> 


A, 17 




•«(■ 


PUSH 


AP 




• *5*< 




CALL 


VDCHAR 


leraae to and of Una 


lift) 


LD 


A, 2 




• •5(1 




LO 


Cil 


linlt char count to • 


•M7I 


CALL 




iturn off curaor 


• •5*2 


GETCHR 


NOP 






•M71 


POP 


AT 




• 15(3 




CALL 


KBWAIT 




•M72 








• •514 

• •5*5 




CP 

JP 


1 

Z , ENTAND 


ivaa ri preeaed? 

llf ao Jp to ■♦■ char antry 


••(73 
••(74 












IRON 


•*5B( 
••5(7 




CP 
JP 


2 
l.ENTOR 


l»aa Tl preaaad? 

llf ao jp to ■ 1' char antry 


• •(75 
•M7( 


HON LO 


A 1AH 




1 ravaraa vidao 


••5M 




CP 


2*N 


ichar or control? 


•M77 


CALL 


VDCHAR 




••51* 




JP 


N.CTRL 


■control if laaa 2(H 


•M7B 


RET 






•I5M 

Hill 


EHTAND 


JP 

LI1 


ALPHA 
A,C 


(alphanumeric entered 

lantar '»' char In aearch kay 


• •(71 

•Met 












IHOPP 


••5*2 




CP 


B 




• •(81 








• •513 




JP 


I.GETCRR 




•MB2 


Horr ld 


A.19R 


l ravaraa video off 


••5t4 




inc 


c 




••(83 


CALL 


VDCHAR 




••5>5 




LO 


A, '• ' 




• •(84 


RET 






MSN 
M5S7 


CITTOII 


JP 
1.0 


ALPHAS 
A.C 


lantar ■■»' char in aaarch kay 


•MI5 

■MM 












j PRSCN 


MSM 
8*599 




CP 

JP 


Z, GETCHR 




(M*7 
••(•8 


PRSCN NOP 






iprlnt acreen 


••••• 




INC 


c 




••4 89 


LO 


BC,I 




••••1 




LO 


A, 124 




•MM 


LD 


E.( 




••••2 




JP 


ALPHA5 




**(*1 




3C 




•MCI 


CRDAKD 


LO 


A, 253 


jand oparation coda 


••(92 


PRSCNLP NOP 






• •(•4 




to 


IK.) .A 


latora and cad 


••(•3 


LO 


HL PRTBUP 




IM)5 




TALI 


MOM 


r ravaraa vidao on 


••••4 


LD 


D.8I 




•MM 




LD 


»•"♦■ 




•M»5 


POP 


BC 




mil 




CALL 


VDCHAR 




•MM 


PUSH 


BC 




•MM 




CALL 


HOTP 


: ravaraa vidao off 


• •(•7 


sve 


11 


.-rove line to PRTBUP 


MM 




ISC 


■L 




•1(98 


?r? 


BC 




•Ml* 




JF 


GETCHR 




*M99 


Pat 


B 




•Mil 


CKDOR 


LD 


A, 254 


lor coda 


••7*1 


PUSB 


BC 




•Ml 2 




LO 


(HL) ,A 




••7(1 


LD 


HL.PRTBuT 




•Ml 3 




CALL 


HON 




••7(2 


LD 


».*» 




•Ml 4 




LO 


A, 124 




• »7»3 


LD 


C,*DH 




•Ml 5 




CALL 


VDCHAR 




1*7*4 


«vc 


1* 


I PRLINE 


if 6 14 




CALL 


HO»P 




••7(5 


UK 






••617 




:»: 


HL 




••7*4 


LD 


*,:« 




•Ml* 




jp 


CETCHI1 




••717 


CP 


■ 




(Mil 


1 








H7I a 


n 


SZ , PRSCNLP 




*M2( 








i alpha nuserlc char 


••7*9 


POP 


K 




•M21 


ALPHA 


LO 


i.A 


;te»p atora A 


•«71« 


?ET 






•M22 




LD 


A.C 


lA now --■ char count 


• •711 


1 ...... 






•M21 




a 


1 


icp to sax char 


••712 


PRTBUP DtfS 


it 


iprlnter buffer 


••(24 




n 


Z. GETCHR 


l loop until CIB or CUD 


11711 


DEFB 


8DH 




(M2S 
•M2( 




IMC 


e 


ichar ok ao procasa 
;bj»p counter 


M714 
••715 












; HOVELS 


•M27 




LD 


A,D 


ireatore A 


••714 








III2I 




CP 


•♦■ 




• 1717 


NCVELN NOP 




jaove char froa-acreen to buffer 


•M29 




JP 


Z, CRD AND 




•rju 






;HL->buf far,D-no. char 


•M3* 




CP 


124 




••719 






iBC-curaor coordinataa 


•Mil 




jp 


X.CRDOR 




••72* 


JVC 


11 




(Ml 2 


ALPHAS 


u 


(ID .A 




••721 


PET 






MM) 
• •434 


ALPNA7 


:*c 

CALL 


HL 
VDCRAR 


rbuap HL 
idlaplay char 


••722 
M723 












l PRLINE 


• M35 




J* 


crrCH» 




••724 








• •434 


CTHL 


v-p 




icontrol char antarad 


••725 






iprlnt Una 


••437 




C» 


•DH 


I? CH 


M7M 






,HL->buffer 


•MM 




JP 


Z,CTRL»D 




••727 






jB-r.o. char. C-endlno. char 


urn 




CP 


M 


i? backapaca 


••728 


PRLINE SVC 


:9 




• M4* 




JP 


I.CTILII 




••72* 


RET 






(M41 
(M42 




c» 

JP 


BRXIEV 

z,ctrl»i 


ibreat? 


8I73( 

M731 












1 PRTBLN 


•M4) 




JP 


gitcrr 


lothar CTRL not allovad 


••732 








•M44 


cnu.il 


NOP 




ibraak kay routlM 


•(7)1 






iprlnt panultiaata Una 


*M45 




LD 


A.C 




••7 34 


PRTBLN PUSH 


K 




•MM 




CP 


1 


ivaa braak hit on ct - •? 


••7 35 


POSB 


SE 




••447 




JP 


NJ.CTRLI2 




••7 3( 


PUSH 


HL 




•M4( 




LO 


A,*n 




••737 


LO 


(.FENULN 




(M4* 




CALL 


VDCHAJI 


iturn off curaor 


••7 38 


LD 


C>( 




•Ml* 




LO 


A.BRRIEY 




••7)9 


LD 


D,8B 




• M51 




LO 


».» 




• •7 4( 


LO 


HL, PRTBUP 




• M52 




BET 






MTU 


CALL 


NOVELS 


laove nest to laat line to PRTBUP 


MCS3 


CTRL* 2 


u 


A.BMIEY 




• •742 


■ 






•M54 


CTRL«D 


NOP 




lEOB 


• •743 


LD 


HL, PRTBUP 




(M55 




I.D 


(HL) .A 




••744 


LD 


B,M 




• MM 




JP 


(BEND 




••745 




C9DH 




•M57 


CTRL* I 


NOP 




i backapaca routine 


•17 44 


CALL 


PRLINE 




•HSI 




LD 




itaap aave A in D 
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After 2 years of extensive research and development 
XYZT Computer Dimensions, Inc is proud to announce 



nicE 



TM 



the NEW INTERACTIVE COMPUTING ENVIRONMENT 



NICE is nothing less than a comprehensive integration of all computing facilities - 
including DOS, numerous utilities, application programs, even games combined with 
menus, database, screens, libraries, reports - an interactive environment friendly 
to the first time user and the sophisticated systems intergrater alike. If you know 
what a turbo-charger can do for an auto engine, that is what NICE does for a 
computer. Clearly, it is the most exciting news to come along in software for the 
microcomputer 

DO YOU KNOW HOW TO BOOT YOUR SYSTEM? 

THEN YOU KNOW HOW TO TURN YOUR COMPUTER 

INTO THE MOST POWERFUL USER FRIENDLY BUSINESS MACHINE!! 

NICE makes development and using software - EASY. Based on a new concept this 
state-of-the-art software gives you the interactive power until now found only on 
mainframes, but at micro prices. Put a powerful menu-driven command structure 
at your fingertips! Run word-processors, spell-checkers, spread-sheet programs, 
utilities, application programs without remembering command sequence or 
constantly checking the manuals. Everything you need is on the screen. Create 
your own applications and add them to the system - use menus, relational files, 
customized screens, special forms. In a matter of hours, you zip through the 
programming projects you usually expected to take months. All thanks to a 
modular, consistently designed system. 

IS YOUR WORDPROCESSOR WORKING? 

THEN THOSE SCREENS OUGHT TO BE IN YOUR SYSTEM ! 

Using a computer should not be difficult - no more complicated than driving a car. 
With NICE you are no longer required to know all of the intricate internal 
operations of the computer. Creation of all types of screens, menus, inquires and 
reports or customized forms is as simple as writing a letter - type it on your 
word-processor, save it to disk, and it is ready for use. You don't have to be a 
programmer - just a computer user. 

It's NICE for youi 

NICE system consists of: 

Interactive Control & Programming Language (ICPL) $150. 

Menu and Screen management facilities (MSF) $75. 

Database facility (DBF) $75. 

Forms and Report Writer (FRW) $75. 

Library Support Option (LSO) $75. 

Minimal NICE configuration — ICPL+ MSF + LSO. 

Minimal hardware requirements — 2 disk TRS-80® mod l/lll. System is compatible 
with NEWDOS/80®-LDOS®-DOSPLUS®-MULTIDOS® floppy or hard disk. 

Check, M.O.. COD., VISA, XYZT Computer Dimensions, Inc. -im 

MC plus $4.00 s/h. 2 Pen n Plaza, Suite 1500 

Foreign orders — extra $10.00 New York, N.Y. 10121 

(212)244-3100 
Order by Mail or Check Your Local Dealer 




nicE 
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DEALER INQUIRIES WELCOME! 



* S*0 Ust of AOmrtlsars on Page 291 



80 Micro, December 1983 • 191 



iiViva el Scripsit espanol!! 
Vive la difference! 

Turn your TRS-80* into a bil- 
ingual word processor! English/ 
Spanish or English/ French with 
our hard/ soft kit. 

Use your Scripsit* or Super- 
Scripsit* program in Spanish 
or French: 

• Full foreign keyboard 

• All accented characters on 
screen and printer 

• All program/ user interaction 
in Spanish or French 

Our bilingual hardware kit main- 
tains full compatibility with all 
existing software. Comes with 
complete instructions. Software 
adds on to your regular prog- 
ram. 

Models II, 12, 16 $350.00 

Models III, 4 $250.00 



SDCflTRfl 



SOCATRA Inc. 

4255 avenue de Court r* 
Montreal, Quebec 
Canada H3S1B8 

(514)735-7079 



' Trademarks or Radio- Snack 
A division of Tandy Corp 




JtTENTlc^ 



FOREIGN COMPUTER 

STORES 
MAGAZINE DEALERS 

You have a large technical 
audience that speaks English 
and is in need of the land of 
microcomputer information 
the Wayne Green Publica- 
tions group provides. 

Provide your audience with 
the magazines they need and 
make money at the same time. 
For details on selling Micro- 
computing, 80 Micro, Desk- 
top Computing, mCider, HOT 
CoCo, RUN and Wayne 
Green Books contact: 

SANDRA JOSEPH 

WORLD WIDE MEDIA 

386 PARK AVE. SOUTH 

NEW YORK, N.Y. 10016 

PHONE-(212) 686-1520 

TELEX-620430 



MAP SEARCH PROGRAM Version 1 .2 



©1983SoftshcU 



Fik Name: 



Enter file names, or ? for help 



Figure 8. Initial Search screen. 



FILE,INDEX FILEjOPTIONS. 

You can also enter the file specifi- 
cations and options on the TRSDOS 
command line (MINDEX REF:0,:1;P). 
Only the source file specification is nec- 
essary; the program assigns the index 
file the same name, password, and disk 
drive as the source file unless you 
specify otherwise. 

For example, typing REF/TXT. SE- 
CRET: 1 and pressing the enter key 
opens the source file "REF/TXT.SE- 
CRET:1" and creates the index file 
*'REF/MAP.SECRET:1", while typ- 
ing REF/TXT.SECRET:1,. CODE- 
WORDS and pressing the enter key 
opens the source file "FTLE1/TXT.SE- 
CRET:1" and creates the index file 
"FTLEl/MAP.CODEWORD:2" . 

In this case the index file has a differ- 
ent password from the source file and is 
on drive 2 rather than drive 1. You 
don't need to specify the disk drive for 
your source file unless you have two 
files with the same specification on two 
separate drives. The program places the 
index file on the same disk as the source 
file unless you specify another drive. 

Indicate the paragraph format option 
by appending a semicolon and the letter 
P to the file specifications. In the para- 
graph format, the program treats each 
sentence as a string. You should use the 
paragraph format for text files com- 
posed of sentences arranged in para- 
graphs and that don't have an EOR at 
the end of each line or sentence. 

MAP uses the period as a pseudo 
EOR and treats each sentence as a rec- 
ord. If you don't specify the indexing 
format, the program defaults to the rec- 
ord format. Typing TEXTFILE,:1;P 
and pressing the enter key opens the 
source file TEXlMLE from whatever 
drive it's on, creates the index file 
TEXTFILE/MAP on drive 1, and in- 
dexes the source file in paragraph format. 

Mindex displays the name, extension, 
password, and drive of the source and 



data files, indicates that it's opened each 
file successfully (or gives a self-explana- 
tory error message), and begins index- 
ing. The program displays the number 
of the source file sector it indexes. 

When the program finishes indexing, 
it saves the index file on disk and returns 
you to TRSDOS. You don't need to re- 
index the source file unless you modify 
the file or you delete the index file from 
the disk. 

To run Search, type SEARCH and 
press the enter key. The screen in Fig. 8 
appears. Type in the name of the file 
you want to search. Alternatively, you 
can enter the file specifications on the 
TRSDOS command line (SEARCH 
REF:1). The complete syntax is 
SOURCE FILE, INDEX FILE, OUT- 
PUT FILE. 

It's only necessary to type in the 
name of the source file. The program 
assigns the same specification to the in- 
dex file (except for the extension MAP) 
and output file (except for the extension 
OUT) unless you specify otherwise. 

For example, typing TESTFILE/ 
TXT assigns the specification TEST- 
FILE/MAP to the index file and TEST- 
FTLE/OUT to the output file. The 
MAP index file contains the source file 
name, extension, and password so you 
don't have to type in that information. 

The appropriate files will open, the 
index will load into memory, and you 
can begin your search. If an error oc- 
curs in opening the files, the program 
informs you of the type of error so you 
can correct it. 

After Search opens the MAP index 
file and its associated source file, the 
name of the source file appears at the 
top of the screen. The blinking cursor 
on the second line under the letter E 
is a prompt for you to enter the key 
or keys you want to locate. Type the 
key(s) you're searching for and tap the 
enter key. 

Each key must be three or more char- 
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Listing 3 continued 








• •7«7 


, 








•17 48 




LO 


B.PENULN 




••749 




LO 


C,6 




• •751 




CALL 


POSCUR 


1 reposition cursor to n«»c to last line 


• •751 




POP 


■L 




• •752 




POP 


DE 




• •753 




POP 


BC 




• •754 

• •755 




RET 






• *75< 








1 PRTRBC 


• •757 










• •75B 








■ print record from screen 


• •759 


PRTREC 


LD 


c,» 




■17 tf 




LD 


A, (SO PL I.'] 




• •761 




CP 


4 




• •762 




JP 


J.PRTR2 




• •763 




LD 


A,(SORLK) 




••744 




DEC 


A 




• •765 


PRTR2 


LD 


a, a 




• •766 


PRTRLP 


LD 


HL.PRTB'Jf 




• •767 




LD 


D,86 




• •768 




PUSH 


BC 




• •769 




SVC 


11 


laove ecreen lint to buffer 


• •771 




LC 


HL.PRTBUF 




• •771 




LD 


8,66 




• •772 




LD 


C.6DH 




• •77} 




SVC 


19 


iPRLINE 


• •774 




POP 


BC 




• •775 




LD 


A, 22 




••776 




CP 


B 


|h*8 lilt line been reached? 


• •777 




JP 


2.PRTR5 




• •77( 




JP 


K.PRTH5 




••779 




INC 


B 




■f7M 




JP 


PRTRLP 




• •7(1 


PUTS 5 


RET 






• •782 










••78) 








IJP2DOS 


••714 










••7»S 








r JP to TRSDOS without cad 


• •7(6 


JP2DOS 


SVC 


36 




••787 
lllll 
















I DOSCHD 


••789 










••7 9* 








Op to TRSDOS with cad 


••7 91 








[execute CHD file then DOS 


••792 








>BL->naae of chd (11* 


••7 9) 


DOSCHD 


PUSH 


HL 




••794 




LD 


B,t 




••795 


DOSLP 


LD 


A,(BL) 




• •796 




CP 


•DB 




••797 




JP 


I, DOSEXC 




••798 




ISC 


BL 




81799 




INC 


• 




11881 




JP 


DOSLP 




••Ml 


DOSEXC 


POP 


HL 




••••2 




SVC 


37 


IMC pro-;, then DOS 


• •••3 


DOSLLP 


NOP 






• •••4 




JP 


DOSLLP 


ljuat in caee 


• •••5 

• •••6 
















iDISMK 


• •••7 
••••8 


DISBRK 


LD 


HL,1 




.•disable Creak 


88819 




SVC 


3 




• MM 




LD 


HL, DSBRK 




• •811 




SVC 


] 


[Whenever break la preised 


•••12 








ipro9raa will jp to DSBRK 


• •813 




RET 






88814 
8*815 
















IDSBRX 


••816 










68817 


DSBRK 


PUSH 


AT 


(break routine 


••118 




LD 


A, 'Y' 




86819 




LD 


(BREAK) ,A 




96828 




POP 


AT 




88621 




RET 






6*622 

66823 


BREAK 


DEFB 


'»' 


ibreak ■ 1, no break ■ N 


66624 








.DIVIDE 


66625 










66626 


DIVIDE 


PUSH 


BC 


[divide A into BL 


86827 




LD 


B,l 




88828 




LD 


C,A 




66629 




SVC 


23 




66836 




LD 


A.C 




6(831 




POP 


BC 




•••32 

66833 




RET 






11834 








■HOLT 


••835 










•••36 


HULT 


PUSH 


BC 


IBtllt BL I A 


1(837 




LD 


B,l 




68638 




LD 


C,A 




• ••39 




SVC 


23 




•••*• 




LD 


A.C 




• •841 




POP 


BC 




•••42 

• IS43 




RET 






••844 








IPTTS 


••845 










•••46 








[point to til* spec 


66847 


PTFS 


INC 


BL 


ibypaaa char count 


•••48 




CALL 


EATNBNK 


[bypaaa cad 


8*149 




CALL 


EATBKR 


Ibypaaa trailing blanks 


M*5( 

OB 8 51 




RET 




■BL -> firat char of file apac 


88 852 








1 ERRDSP 


6*853 
6**54 










larror dap for Hod II TRSDOS 


66 855 


ERRDSP 


NOP 






8*856 




PUSH 


BC 




6*857 




I.D 


B,A 




66856 




LD 


BL.MSGAREA 




86859 




SVC 


52 


lERRMSC 


)*868 




LD 


HL.HSCAREA 




6*861 




CALL 


VDLINE 




B*M2 




POP 


BC 




•(•63 




RET 






((8*4 


HSCAREA DEPS 


•1 


larror aeaaage arta 


66865 

86866 




DEFB 


•3 




86867 








1 STMEND 


• •868 










6*869 


STMEND 


LD 


(MENENDI ,DE 


[store and of aaaory 


6*87* 




RET 




IBUat be called before DE changed 1 11] 


6**71 

• •872 
•••73 


KENEMD 


DEPW 


* 


latoraa top addraaa of aaa available 


INDCB 


DEPB 


• 


I Input (aoorca) file DCB 


• ••74 


IDCB1 


DEFB 


• 




• 1875 




DEPB 


1 




•••76 




DEFB 


■ 




6*877 


IDCBRL 


DEFB 


1 


l record length 


6*678 




DEFB 


1 




66879 




DEFB 


• 




6*88* 


IDCBCR 


DEPB 


1 


■current record 


66681 




DEFB 


1 




66882 




DEFB 






6*863 


IDCBLK 


DEFB 


1 


ilaat record 


86884 




DEFB 


8 




66885 


I DC BOS 


DEFB 


1 




66686 




DEFS 


51 




86887 

6*686 


IN LLP 


DEFW 


1 


itrue laat aector 


66889 


MAPDCB 


DEFB 


I 


lHAP file DCB 


86898 


NDCB1 


DEFB 


I 




11891 




DEFB 


• 




6*892 




DErB 






••893 


KDCBRL 


DErB 


• 


; record length 


6(894 




DEFB 


1 




66895 




DEFB 


• 


Listing 3 continued 



*& 



A 



COLOR COMPUTER 
1 SOFTWARE 



DISK C0L0RC0M/E 



The Intelligent Communications Package 

COLORCOM/E, the most popular smart terminal program for the Color Com- 
puter, has just gotten smarter. In fact, from now on, we're going to call it The 
Intelligent Terminal program. 

The new DISK COLORCOM/E contains a unique COMMAND MODE that 
allows you to set up complete communications sessions in advance. Anything 
you normally do from the keyboard DISK COLORCOM/E can do all by itself. 
Log-on, log-off, read and store messages, disconnect, transmit and receive 
files, dial auto-dial modems, - anything! DISK COLORCOM/E will even make 
decisions based upon how the host responds. 

Here are some examples of how YOU might want to use the new DISK 
COLORCOM/E 

• Call your favorite bulletin board, download all messages addressed to 
you, log off, and write the messages toadisk file. ANDdo all of this with 
one keystroke! 

• Call Dow Jones, log on and get the latest prices on your favorite stocks, 
and then log off. Again all with ONE keystroke. 

• With an Autodial modem let COLORCOM/E Make your calls for you at 
3:00 A.M. when rates are cheap. Then read the results with your morn- 
ing coffee. 

In addition we've added 64K support and your choice of number of characters 
per line. Of course you still get the regular COLORCOM/E features such as 
upload/download, graphics, easy storing and printing of data, and much more. 
For 16, 32 or 64K disk systems. 

COLORCOM/E Disk $49.95 



COMPLETE YOUR WORD PROCESSOR 

SPELL- RITE 

THE Cassette Spelling Verifier 

You've got the best word processor. Now complete your system with the best 
spelling verifier. Spell-Rite is a convenient, fast way to insure that all of your 
documents are letter perfect Spell-Rite was designed specifically for 
cassette-based word processors. Like Yours! 

Spell-Rite is EASY to use, completely menu driven. 

Spell-Rite is FAST! You can verify a 1000 word document in under 9 minutes 
- including cassette I/O. 

Spell-Rite is COMPLETE. It comes with its own 10,000 + word dictionary 
which you can expand. Also included is a superb manual. 

Spell-Rite works with any word processor that generates ASCII tape files, such 
as Color Scripsit, Super Color Writer and Telewriter 64. 32K of RAM and 
Extended Basic are required. 

Cassettes and manual $59.95 



Sendcheck or money order for total purchase price, plus $1.50 S&H. Charge 
cards: Include all embossed information. 



D Spell-Rite 

□ Disk Colorcom/E 

SEND to 



G Send Free Catalog 



Eigen 
Systems 



RO. Box 180006 

Austin, Texas 78718 

(512) 837-4665 



Name 



Address 



y See List of Advertisers on Page 291 
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acters long, and no key or combination 
of keys can be longer than 60 charac- 
ters. Search ignores capitalized letters 
and lets you search for partial keys. For 
example, the key "cdonal" locates rec- 
ords containing the names McDonald 
and MacDonald. 

You can search for combinations of 
keys within records or sentences. You 
find combinations by using the logical 
operators AND or OR. AND is repre- 
sented by the + symbol (hold the shift 
key and press + ). OR is represented by 
the ! symbol (hold the control key and 
press zero on the Model II; hold the 
shift key and press @ on the Model III). 

On the Model II the operators + and 
! appear in inverse video to distinguish 
them from characters in a key. On the 
Model III a small, solid white rectangle 
appears under the operator to indicate 
that it isn't a character in a key. For ex- 
ample, the search key Jack + Jill | Jack + 



"You can search for 

combinations of keys within 

records or sentences. " 



nimble finds records that contain the 
names Jack and Jill or records contain- 
ing the name Jack and the word nimble. 

On the Model II, enter the + charac- 
ter as part of a key by pressing Fl and 
enter the \ character as part of a key by 
pressing F2. On the Model III the @ 
key enters special characters from the 
keyboard. 

If the key you're searching for has the 
symbol + or J, you can enter it in the 
following manner: press the @ key (un- 
shifted) and the cursor becomes larger. 
Then enter either + or |. You enter 



the @ character into a key in the same 
manner. 

After you enter a valid key, the pro- 
gram starts its search and the message 
"Searching" appears in the upper left 
corner of the screen. The number of 
each sector searched appears next to the 
word Searching. 

When the program locates the first 
record in the file with the appropriate 
key (or keys), it displays the record at 
the bottom of the screen. One record 
appears at a time and the program waits 
for your instructions to continue the 
search, abort the search, or display text 
around the located record. 

To continue the search, press the 
down-arrow key after each line of text 
appears. Pressing and holding the 
down-arrow key (and the repeat key on 
the Model II) lets you continuously 
scroll through records as the program 
finds them. When the program has 



Listing 3 continued 








MM* 


HOCBCR 


Dtps 


1 


[current record 


MM7 




CEFB 


• 




•••»• 




dees 


f 




•••*• 


NDCBLR 


defb 


• 


[laat record 


■till 




DEED 


1 




••Ml 


"DC DOS 


DEEP, 


• 




IIM1 




Dtrs 


M 




MM) 


[1APLL.R 


DEfW 


1 




MM4 


1 








••9)5 








(output fit* DCB 


MM( 










MMT 


SOUL* 




• 




MM* 








Ifor each Una of rac dlaplayed 


MM* 
•••I* 
Mill 








Msom.w la decremented 


STHAP 


DBPB 


• 




•••12 




in 







Ln t 


Source Line 




••••1 


1HIHOCX3/SKC 


.2 




••••2 
• •••I 
•■••4 


iHar »5, 1*13 






|H INDEX INDEXING PROGRAM rX>l 


MODEL III 


MMi 


1 RASTER SECTION 


llnka um 


program with Nodal III I/O routlnoa 


•MM 




land generi 


1 purpoaa routlnaa 


MM7 
MM 
HIN 


1 COPy RIGHT 1983 


SOPTSHELL CORPORATION ALL RIGHTS RESERVED 


P HOC 1 1 PSECT 




ibegin ralocatabla program aaetlon 


•Ml( 


EXTERN 


BEGIN 


(BEGIN - atart of N3 


•••11 


START JP 


BEGIN 




•••12 


um 


•H3/RBL' 




•Ml] 








•••14 






ivaa originally developed on Nodal III 


•MIS 






da its currant ton It will wort with 


Mill 






(Nodal II or III given tba propar I/O 


•••17 






(Bodula 


Mnt 


LIN* 


•CR/REL' 


(general program* 
(Modal III I/O routlnaa 


MM* 


LIRE 


'NODIII/REL 


•••}• 


r-n; 


START 
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Ln • 




Sourca 


Lin. 




MM1 


[SEARCH3/SRC... 


1.2 




MM 2 
••Ml 

MM4 


(Mar 15 


. 1M) 






/SEARCH 


PROGRAM 


POR MODEL III 




••MS 


INASTEJ 


SECTIOt 


■ link* S3, gr. 


S30PEN, SIMP, (30PT and NOOIII 


•MM 
••••7 
••••• 


/COPYRIGHT 1*1] 


SOPTSNELL CORPORATION ALL RIGHTS RESERVED 


PROG I : 


PSECT 






MM* 
•Ml* 












fxrtm 


BEGIN 




•Mil 
(Ml 2 










START 


n 


BEGIN 




M(ll 




line 


'Sl/REL' 


(SEARCH program propar 


•Ml 4 








inota: tba program la callad 


•••IS 








(S3 because It >■■ originally 


MM 








(davalopad on tba Modal III 


Mil 








(In lta currant form It will 


mil 








(*ork with Modal II or III 


•Ml* 








[given tha propar I/O nodula 


•MM 




LI MR 


' CR/REL' 


(ganaral routlnaa 


•••21 




LINK 


'S30PEN/REL' 


(SEARCH opan fllaa routlna 


•••22 




LIME 


'S3DSP/REL' 


(SEARCH diaplay 


•M21 




Lin 


'E30PT/REL' 




•••24 




LIM> 


'NODIII/REL' 


(Modal III I/O routlnaa 


•M2S 




END 


START 
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Program Listing 6. Assembly-language listing of MODII1/SRC. 


Ui • 


Source 


Una 




••••1 


(MODI I I/SRC VERSION 1.2 




MM2 
••Ml 
•••■4 


(Jun 2«, 1M) 






(MAP MODEL III 


I/O ROUTINES 


DUFFERS AND PARAMETERS 


■MIS 


(COPVRIGBT 1*13 


SOPTSHELL 


CORPORATION ALL RIGHTS RESERVED 


• MM 
••••7 








NODI II PSECT 




(begin relocetable program eection 


• MM 

MM* 












(public routlnea 


•Mil 










•Mil 


PUBLIC 


BOTTOM 


(poeitlon curaor to laat line of screen 


•••12 


PUBLIC 


CLOSE 


(cloae file IDE->DCB) 


•Mil 


PUBLIC 


CURPOS 


[determine curaor poa IcooriBC) 


•••14 


PUBLIC 


DISBRE 


(dlaabla break (for -Model II) 


•MIS 


PUBLIC 


DIVIDE 


(divide A Into BL 


•••14 


PUBLIC 


DOSCMD 


j )p to TRSDOS and execute command 


• ••17 


PUBLIC 


ERASEL 


(eraae to end of line 


um 


PUBLIC 


ERASES 


(erase to end of acreen 


••ti* 


PUBLIC 


CRRCSP 


(MAP error diaplay routine 


• ••2* 


PUBLIC 


HOME 


(poeitlon curaor to top line of acreen 


• ••21 


PUBLIC 


INI? 


(inltlallie file (create/open, poa to let rac) 


• ••22 






1 (DE->DCS. NL->rec buf) 


• ••2} 


PUBLIC 


JP2DOS 


l)p to TRSDOS 


•••24 


PUBLIC 


ESCHAR 


(get char (or null) from keyboard 


•M2S 


PUBLIC 


EBINIT 


(initialise keyboard (Hod II) 


•••24 


PUBLIC 


EBLIN3 


iget line from keyboard and and with 13 


• ••27 


PUBLIC 


EBLINE 


(gat line from keyboard and end with IDA 


III2I 


PUBLIC 


EBHAIT 


(wait for char from keyboard 


•M2* 


PUBLIC 


EEYIN 


(get aaarch keyla) form keyboard 


•MM 


PUBLIC 


HOVELN 


imove line from screen to buffer 


•M31 






: ni.---L.uf . D-no. char, BOcuraor cooi 


•M12 


PUBLIC 


MULT 


(multiply routlna 


•M33 


PUBLIC 


NEKLN 


(role acreen and poa cur to neat to laat line 


•••34 


PUBLIC 


OPEN 


(Open file (DE->DCB, HL->record buffer) 


• MIS 


PUBLIC 


OPINIT 


[open and Initialise file 


■MM 






1 (de->dcb, lL->record buffer) 


• ••37 


PUBLIC 


POSCUR 


(poeitlon curaor (coordlnatea in BC) 


Hill 


PUBLIC 


POSEOP 


(poeitlon to end of file 


• ••3* 


PUBLIC 


POSH 


(poeitlon to record ln file 


• ••«• 


PUBLIC 


PRINIT 


(Initialise printer 


•H41 


PUBLIC 


PRLINE 


(print Una (HL-Xraf, B-no. char, C-end char) 


•••42 


PUBLIC 


PRSCN 


(print entire acreen 


•••43 


PUBLIC 


PRTBLM 


(print laat line of test 


•••44 


PUBLIC 


PRTREC 


(print current record 


•M4S 


PUBLIC 


ITPB 


(point to file apec in cad line 


•M44 


PUBLIC 


READOR 


(reed fllei direct ecceaa 


•1147 


PUBLIC 


README 


(read nest record in file 


•••41 


PUBLIC 


SCRPRO 


laat acroll protect line (A-llne no.) 


•M4i 


PUBLIC 


SETILR 


iaet INLM to true laat record 


•MS* 


PUBLIC 


SETRLR 


(let NAPLLR to um laat record 


• ••SI 


PUBLIC 


STMEMD 


(•tore top of memory In memehd 


MIS2 


PUBLIC 


VDCBAR 


(diaplay char in A reglater 


•MS) 


PUBLIC 


VDCLS 


(clear acreen 


•MS4 


PUBLIC 


VDINIT 


(initialise video I/O (for Model 11) 


IMSS 


PUBLIC 


VDLIN3 


(dleplay Una (HL->msg( don't print •OH) 


•MS4 


PUBLIC 


VDLINE 


(display Una (HL->aag) 

(word proceaaor kbwait routine 


• MS7 


PUBLIC 


WPEBWT 


•MSI 


PUBLIC 


WRITE 


(direct write routine 


•MS* 
•MSI 
• ••41 


PUBLIC 


WRITHE 


I write nest record to file 


' 




(NOOIII buffera 


IIM2 








f __ 


MM3 


PUBLIC 


ACCESS 


(dummy tor HOOII compatabll lty 


••••4 


PUBLIC 


INDCB 


1 input (aource) file DCB 


••MS 


PUBLIC 


IDCBRL 


(Input file DCB Record Length 


MM4 


PUBLIC 


IDCBCR 


(Input file DCB Current Record 


•M47 


PUBLIC 


IDCBLR 


(Input file DCB Last Record 


MM I 


PUBLIC 


INLLR 


l true laat record of aourca file 


MM* 


PUBLIC 


IDCBOS 


[Input file DCS sssssss 


•117 • 


PUBLIC 


HAPDCB 


(NAP (Index) file DO 


M»71 


PUBLIC 


NDCBRL 


[Map file DCS Record Length 


•••72 


PUBLIC 


NDC8CR 


[Hap file DCS Currant Record 


•M7) 


PUBLIC 


MDCBLR 


[Map file DCB Laat Record 


•••74 


PUBLIC 


NAPLLR 


[true laat record of lodes file 


MI7S 


PUBLIC 


NDCBOS 


[Map file DCB ssssssss 


• ••74 


PUBLIC 


NEMEHE 


[contents ->top of memory 


M»77 


PUBLIC 


OUTCHR 


[record buffer (1 byte) tor output file 


•••71 


PUBLIC 


OUTDCB 


[output file DCB 


•M7* 


PUBLIC 


PRTBUP 


[printer butter (M char) 


• MM 


PUBLIC 


SORLN 


(•tart of record Una no. 


••••1 


PUBLIC 


STHAP 


[atart of MAP lndes file (alwaya laat byte 


••••2 
••••) 
•MM 






[Of SEARCH program) 


' 




[HODIII I/O para 


••MS 






1 -..,.■»———■■ ....——— 


• MM 


PUBLIC 


ARROWD 


[arrow down 


••••7 


PUBLIC 


ARROW. 


(arrow left 


■MM 


PUBLIC 


ARROMR 


[arrow right 


•MM 


PUBLIC 


ARROW 


[arrow up 
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Every Z80 assembly-language 
programmer needs this book. 




Programming in assembly language requires good 
tools. TRS-807Z8O Assembly Language Library, a com- 
plete reference book on TRS-80 Model I assembly 
language, is the best tool you can find. In over 
300-pages, 45 figures, and 75 program listings, author 
Craig A. Lindley explains the details of Model I hard- 
ware and software and shows you how to write pro- 
grams that squeeze every bit of performance out of your 
computer. This book will teach you: 

• how to use ROM and DOS routines in your own 
programs 

• how to perform disk input/output 

• how to access the video display and keyboard 

• how to write easy-to-use programs 

• how to perform arithmetic operations 

• how to use the undocumented Z80 instructions 
You'll also learn about disk operating systems, device 
handling, base conversion, parameter passing, and 
more. 

TRS-80IZ80 Assembly Language Library contains a li- 
brary of ready-to-run utility programs that are worth 
many times the book's cost. Included with the book are 
two Model I TRSDOS-compatible disks* containing 
utilities for printer formatting and spooling, single-key 
entry of strings, disk editing, base conversion, 
password encoding and decoding, and more. You get 
more than 15 valuable utilities, and the source code 
files are included, so you can examine, modify, and 
learn from every program. 

Many of the programs also run on the Model III, and 
those that do not require only minor modification. One 



TRS-80IZ60 Assembly Language Library is a Wayne Green publication 

TRS-80. TRSDOS. Model I. Model III are registered trademarks of the Radio Shack 

Division of Tandy Corp. 

Z80 « a registered trademark of Zilog Que tQ ^^ efrof unayaj , 

able until November 1, 1983. 
We apologize for any incon- 
venience. 



of the book's four sections is dedicated to routines and 
programs that run on any Z80-based system. Nc matter 
what Z80 computer you program, this book has 
something for you. 

It's a book that's designed to be used. The text is set in 
large type, and the book is bound in an 8V2-X 11-inch 
easel-backed binder that stands up next to your com- 
puter. So there's no squinting at tiny type and fighting 
to keep the book open. 

The whole package — book, disks, and binder — is 
yours by mail for the special holiday price of only 
$29.97. And if you charge it, you can even call toll-free 
to order. Reserve your copy now, because after 
December 31, the price will be $34.97. 

TBS-80IZ80 Assembly Language Library. It's the 
assembly-language book for the '80s. 

•Disks do not contain a disk operating system: two disk drives or a 
disk copy utility are required to transfer the files. 

Call Toll-Free 1-800-258-5473 for credit card orders or send 
$29.97 plus $4.50 shipping and handling to Wayne Green Books. 
Retail Sales, Peterborough NH 03458. Dealer inquiries invited. 



I need TRS80/Z80 33DB8L 
Assembly Language Library. 

_ copies of TRS-60/Z80 Assembly 




Send me 



Language Library (BK7395-01) @ $29.97 each. I have 
enclosed $4.50 per system for shipping and handling. 

D MasterCard D VISA □ Am Ex □ payment enclosed 

Card i Expires 

InterBankf Signature 

Name . 



Address . 



City. 



State Zip_ 



| Wayne Green Books, Retail Sales, Peterborough, NH 03458 



* Stf Ual of At/mtiMra on Pag* 291 
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(Qhange FOe, (M)AP, (Options or (T)RSDOS 



xxxxxxxxx Format 

Inset from Left Margin: x 

Search Display Mode: (C/R/L) x 

Print Mode: (C/M) x 
Output File Name: xxxxxxx/OUT 

Output File Status: (C/R/A) x 

Output Mode: (C/M) x 



Figure 9. Search options screen. 



searched the entire file, the message 
"Enter Key" appears again. You can 
now search for another key or combina- 
tion of keys. 

Search Options and Commands 

While the "Enter Key" message is 
present and the cursor is in column 1, 



you can jump to the Search minimenu 
by pressing the break key. The follow- 
ing message appears on the top line: 
"(Qhange File, (M)AP, (Captions or 
CDRSDOS". 

Typing O gives you the Options 
screen shown in Fig. 9. You can bypass 
any question in the options menu by 



pressing the enter key. The program dis- 
plays the meaning of abbreviations used 
in the current prompt at the bottom of 
the screen. 

The first line informs you of the for- 
mat used to index the file and you can't 
change it while searching a file. 

The inset number (X) ranges from 
zero to 9. Insetting is similar to indent- 
ing except that the first line of a record 
is flush with the left margin, and subse- 
quent lines are inset from the left mar- 
gin. The number displayed across from 
the word inset is the value currently 
used to inset records. You can change it 
by typing any number from zero to nine 
and then pressing the enter key. The 
default inset is two. 

While searching for a key or combi- 
nation of keys, you can display the in- 
formation continuously, or a record or 
line at a time. Type C and press the en- 
ter key to have records continuously 
displayed as the program finds them. 
Type R and press the enter key for 
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M177 




PUSH 


D£ 


icuraor to na«t to laat lln» 




MM 




PUBLIC 


RRXIEY 


ibraak kay 


M17* 




PUSB 


BL 






••111 




PUBLIC 


BSPKEY 


l back apaca kay 


M17I 




CALL 


BOTTOM 


ipoatlon to bottoa Una 




•••12 




PUBLIC 


CPYPOS 


(copyright nag poaltlon 


M1M 




LD 


A, IDS 






•Ml) 




PUBLIC 


DELEEY 


i delete kay 


Hill 




CALL 


VDCHAA 


iron acraan 




••••4 




PUBLIC 


DPTTS 


idafault (111 llll 


Ml 12 




LD 


BC, 256-14 






•••IS 




PUBLIC 


INSKEY 


, Insert key 


II1U 




CALL 


POSCUR 


ipoaltlon to next to laat Una 




■MM 




PUBLIC 


LSBYTE 


icol of last byta In 2S5 byta tac 


M1M 




LD 


A, (SORLN) 






••••7 




PUBLIC 


PENULN 


ipanultluta Una (next to bottoa) 


Mil) 




CP 


2 


lhaa first Una reached top of 


craan? 


Mill 




PUBLIC 


SMIDTI 


■acraan width 


M1M 




JP 


I.NEWLNS 


i If It has do not dac (SORLN) 




•Mil 




PUBLIC 


ls*U 


isccaan width alnua 1 


•11(7 




LD 


A, (SORLN) 






HIM 

••1(1 
■Mil 




PUBLIC 


toplb 


itop lln» of adltor screen 


••!•• 

Milt 
M1M 




DEC 


A 


idac (SORLN) 




' 






ltmrr.il routines and buffer. 


MEVLN5 


LD 
POP 


(SORLN) ,A 
■L 






Mill 








1 referenced by BOO 1 1 


Mill 




POP 








• •1*4 










Ml 12 




POP 


BC 








Nlll 




EXTERN 


ANSWER 


tganacal purpose 1 byta buffer 


Mil) 




RET 








M1M 

••1(7 




EXTERN 

extern 


APPEND 
EATBBR 


lappand ona it ring to anotbar 
ibypaaa leading blanka 


Ml 14 
M1IS 




















I CURPOS 




M1M 
• •1*1 
••111 




EXTERN 


EATNBNB 


ibypaaa leading non-blank char 


M1M 
M1I7 
Mill 




















tgat cursor poaltlon 

laatt s-rov-1, c-col-1 










■Nodal III aquataa 


• •111 










Mill 








irag altaradi AT.BC 






••111 


ARROWD 


ECU 


IAI 


I arrow down 


M2M 


CURPOS 


■Ml 


DE 






Mil) 


ARROWL 


ECU 


• lb 


i at row left 


•12(1 




PUSI 


BL 






••114 


arrowr 


no 


• M 


larrow right 


• •2*2 




LC 


BC,( 






M11S 


ASROWJ 


ECU 


5B« 


i arrow up 


M2M 




LD 


■L, (CURSOR) 






••lit 


BURET 


EOU 


1 


l BREAK 


••2(4 




LD 


Dl, VIDEO 






M117 


SWIDTR 


EQU 


44 


lacraan width 


1(211 




OR 


A 






••111 


•Mil 


EQU 


f) 


jacraan vldth alnua 1 


M2M 




SBC 


IL.DE 






Mill 


TOIUI 


EOU 


11 


Itop Una of adit dlaplay 


•12(7 




JP 


I, CURB 






Mill 


LSBYTE 


EOU 


12 


llaat col of racoid byta 2SS 


Hill 


CURLP 


PUSH 


■L 






M121 


PENULN 


EOU 


14 


tpanultlaata Una (nut to laat Una) 


M2II 




LD 


DE.I4 






M122 


DPTTS 


EQU 


4M 


idofault )byS data (11a alia 


11211 




01 


A 






Ml 23 


DELIEY 


EQU 


4 


idalata kay (shift, down arrow, D) 


M211 




SBC 


HL.DE 






Ml 24 


I MEET 


EQU 


lfH 


ilnsert kay (CLEAR) 


1*212 




JP 


J, CUR 5 






M12S 


BSPKEY 


EOU 


2 


ibackap kay [shift, down arrow, B) 


M21) 




JP 


CCUM 






••12* 


cpybos 


EQU 


M 


l tab poa for copyright notlca 


M21I 




IK 


• 






••127 


f 








• 4215 




POP 


DE 






• •121 


«BW*IT 


EOU 


M4IH 




•1211 




JP 


CURL* 






•112* 


EBCKAjt 


EQU 


II2DH 




■•217 


CU»5 


POP 


DE 






Mil) 


VBCSAR 


EQU 


• •))■ 




M21I 




IRC 


■ 






•11)1 


VDCLS 


EQU 


• 1CIB 




M21I 




JP 


CUR* 






11112 


INITIO 


ECU 


•Mil 




41224 


CM 


POP 


■ 






Mill 


PRCHAR 


■go 


M)BB 


iprlnt char 


•1221 




LD 


C,L 






Ml 14 


prtscr 


EOV 


I1DIB 


iprlnt acraan 


M222 


CUR* 


POP 


■L 






Nlll 


DIBIT 


EQU 


44211- 


llnltlallia flla 


•122) 




POP 


DE 






•lilt 


DOPES 


EQU 


4424H 


lopaa flla 


••224 




PUSB 


BC 






Ml 37 


DPOSH 


EQU 


44421 


ipealtton to rac In flla 


M22S 




POP 


HL 






Ml)* 


DREAD 


EOU 


4436H 


idlract raad 


• 1224 




BIT 








Mill 
M1M 


WRITE 
OMSK 


EOU 
EQU 


44)M 
444SB 


idlract wrlta 

iTRSDOB backapaca routine 


•1227 
M22I 


















1 POSCUR 




••141 
■•142 


DPEOT 
DC LOSE 


EQU 
EQU 


444*1 
442IB 


ipoaltlon to EOT 
icloaa flla 


M22I 
M23I 


















ipoaltlon curaor 




••14) 


JP2DOS 


EOU 


412DH 




••2)1 








lantryi B-row-1, c-col-1 




••144 


COHDOS 


EOU 


429CH 




••2)2 


POSCUR 


PUSB 


DE 






M14S 


CHDTXI 


EOU 


4225H 




M2)) 




PUSH 


BL 






•114* 


1 








•12)4 




LD 


A, IS 


t bottoa Una 




M147 


DELAY 


EQU 


MtlH 




M2)S 




CP 


■ 






■114* 


CURSOR 


EQU 


442111 


icuraor la at thla poaltlon 


14236 




JP 


CPOS8 


laalt If B > bottom Una 




M14I 


CURCUfi 


EQU 


4«21H 


icuraor charactar 


■12)7 




LD 


A, 4) 


tlaat col on acraan 




MIS* 


CURBLR 


EQU 


441CH 


■• • blink, noni • no blink 


■12)1 




CP 


C 






M1S1 


VIDEO 


EQU 


1CIII 


latart of vldao memory aap 


•12)1 




JP 


CPOSI 


lailt If C > last col 




M1S2 


DSCXPR 


EQU 


42141 


■acroll protact 


H2M 




LD 


BL, VIDEO 


iBL->atatt of vldao aap 




••IS) 


DERDSP 


EQU 


44MB 


ITRSOOS arror dlaplay routlna 


M241 


POSLP 


LD 


A, I 


lBL-»L«*4 (rapaat aa naadad) 




M1S4 


DIVIDE 


EQU 


44S1H 


iTRSDOS divide routlna 


• 1242 




CP 


• 






MISS 


DHULT 


EQU 


444EB 


iTRSOOS aultlpla routlna 


•124) 




JP 


I.POS5 






M1S< 

M1S7 
MIS) 


EORUOI 


EQU 


44111 


land of aaanry 


•1244 
M24S 

• 1246 




LD 

ADD 

DEC 


DE.I4 
IL.DE 

■ 






' 






l BONE 








••IS* 










•1247 




JP 


POILP 


iloop until B-l 






Mil* 








ipoa cursor to rlicl 


M24I 


POS5 


IX 


*,c 


mow aat col valua 




Mltl 








irag altarad: BL 


M24I 




LD 


D,* 






••If] 


HONE 


LD 


■L, VIDEO 




M2M 




ADS 


HL.DE 






Mltl 




LD 


(CUUOk) ,BL 




M2S1 




LD 


; CURSOR) ,BL 


latora now valua In CURSOR 




Mill 

••its 

••lit 




BIT 






M2S2 
M2S) 

M2S4 


POS1 


POP 

POP 

RET 


BL 

CE 












iBOTTOH 








••1*7 
Mltl 










M23S 
M2SI 


















ipoa cursor to bottoa Una, col 1 


' 






lEBINIT 




••It* 








irag altered: HI. 


M2S7 

41258 












• 1171 


■OTTO* 


LD 


■L, VIDEO* Kll 


KBIBIT 


RET 




ino NODI 1 1 equivalent 




M171 
••172 
••17) 
11174 




LD 
■IT 


(CURSOR) ,RL 




11259 
•12*1 
• 1241 

1126 2 


















lOPEN 










IREWLN 








1 

lopan flla 




••17) 










M2<) 








lantryi BL-> buffar 






lint 


HEWLN 


PUSH 


BC 


irolla acraan and poaltlona 


• •26 4 








1 DI->DCB 
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TH€ PfiOGRflfll /TORE 



NOW SAVE 20% TO 50% ON THESE HOLIDAY SPECIALS 
SALE ENDS JAN. 10, 1984 

I.IMITW lOSTOt K ON HAM>K>R MOD! I I AND III 






- 


* » 


- f 


•■•[_ 


_]•-• 



ALIEN TAXI 

br John Oner }$ 

from Fontastic Software 

You pilot the Allen Taxi against gravity lo picK up and deh- 

ver passengers to an underground resort hotel On the first 

level you pick up a (are at each of the 12 taxi stands 

Complete that and 12 more are on the second level This 

sKiilful game lor 1 or 2 players has sound effects Joystick 

compatible . 

#27188 16K Tape SJ*$5 $12.76 2° JJ 

#36515 32K Disk S19<95 S15.96 0* 



DESERT 
PERIL 

Or JOhn O'sen Jr 
from Fantastic Software 
Your people s only chance to survive is (or you to cross the 
Great Desert or they will die Irom the Zagon s deadly virus 
Aicade game with sound and graphics (or 1 or 2 players 
has top ten scores and pause features Use Keys or joy- 
stick to dodge killer satellites, drone bomber balloons and 
(lying dragons Your skill and daring determine the future 1 
#29270 16K Tape $15^S $12.76 a o°° 
#29337 32K Disk S19<^ S15.96 Q** 



DEVIL'S 
TOWER 

by John Olien Jr 

from fantastic Software 

It's up to you to save your planet from the aliens. They ve 

reached the other side o( DEVIL'S TOWER Robot Scouts 

come at you from the mountain, their war machines fire 

from the valley and their protector ships put up lorce tleids 

to protect them Your skill and reflexes may protect you 

Machine language good graphics and sound effects Fori 

or 2 players 

#43366 16K Tape $15.9$ $12.76 7.0' 

#43377 32K Disk $1.9.9$ $15.96 



' 



PENETRATOR 

from Melbourne House 
Armed with missiles and bombs, you must fly your fighter 
to the enemy s cache of neutron bombs and destroy them 
Your mission cs in lour stages involving rugged terrain 
caverns and manmade obstacles— not to mention enemy 
radar missiles and paratroopers This new departure in 
arcade gaming allows you to set up your own terrain and 
enemy emplacements then save them (or luture use 
Make your mission as hard or easy as you like Joystick 




compatible 

#21160 16K Tape $2>^5 $19.96 

#21182 32K Disk $2*95 S19.96 



STRIKE 



9 



FORCE 






%« 



from Melbourne House 

You are the warrior-savior o( cities under relentless alien 

attack You re armed with rapid-fire missiles, radar and 

incendiary star-shens. but you " need your fastest thinning 

and instantaneous response to protect yourself and your 

people Great real-time graphics' 

#38809 16K Tape $15<9$ $11.16 $f"> 

#38618 32K Disk S19<9$ $13.96 C* V 

MARTIAN 
PATROL 

by Pic* Maurice 
from Melbourne House 
Prepare tor the mission only the toughest survive! Control 
your patrol craft across security perimeter into hostile mai- 
tian terrain riddled with craters and outcrops to lump over 
Negotiate with extreme caution to avoid a devastating col- 
lision Take the oHensive against savage attacks by mutat- 
ing ahen crafts The dreaded MARTIAN PATROL — the 
most leared mission on the planet Mars can be yours! 
#34759 16K Tape $1>9$ $12.76 ?P°!° 
#34760 32K Disk $19*9£ $15.96 0* r 




VENTURE 











* 


* 
* 

1 


*• 






INVADERS 
FROM SPACE 



by Can Mine' 
from Acorn 

A fast machine language approach to this classic (and 
addictive) space game The aliens drop bombs and move 
(rom side to side trying to overrun your bases You choose 
the speed enemy bomb frequency and accuracy, your 
number ol shots on screen and oases Unlike most such 
games, you can move your base and simultaneously lire at 
the invaders Full sound effects add even more excitement 
to the incredible action Fun to* an ages and skii; ieve.3 
#16591 16K Tape $1.4*95 $1 1.96 tffjt 
#16603 32K Disk $2Jfc$5 $16.76 0* Y 

KING OF 
THE JUNGLE 

by Vanaewoiie 
from Acorn 

An unusual combination of fast ptnbaii action plus the chal- 
lenges and dangers of an arcade game Keep the ball in 
play, scoring points as it caroms Irom obstacle to obstacle 
while wandering through the |ungle searching tor the hid- 
den crown And try to avoid the deadly Cobra Lots ol 
action, sound and funi Choice of 3 screens Can be used 
with Tnsstick |oystick 

#39080 16K Tape $19-35' $9.96 S0°.t 
#39114 16K Disk $1>9$ $9.96 O* 

BASKET 
BALL 

by John Allen 

from Acorn 

You have to be last to keep up with the action as you ti y to 

outscore your opponent in five minutes ol one-on-one 

basketball Compete against a friend or your computer. 

Steal the ball, duck around your opponent and slant 
toward the basket lor a lay up! T he graphics are based on a 
3-dimensional depiction ol a basketball court, and ball 
dribbling sounds add to the realism 

#16614 16K Tape $14*35 $7.46 <&°J<L 
#16625 32K Disk ttftH $10.46 C* r 




b, Philip Case 

from Horizons 

Set off on a journey into the stronghold of an ancient 
wizard Danger is everywhere, and the penalty lor a mis- 
take may be complete destruction! The ultimate challenge 
lies m the forbidden Riddle Room — are you ready for the 
VENTURE 1 With sound eflects. joystick compatible 

#36111 16K Tape $14<95 $10.46 ^O ' 
#36122 16K Disk $19<95 S13.96 0* V 



WEERD 

by Arthur GlecKier 
irom Big Five 

Maybe you think you ve seen some prett> atra-ice Nnga 
on your computer screen already, but you haven't seen 
ANYTHING until you ve tried WEERD It s you against the 
WEERDEST set ol space craft ever Bui don't Hist stare at 
them, get your shields up before they wipe out your planet 
Disk version has voice sound effects and permanent high 
scores Both are tnsstick compatible 

#43388 16K Tape or $19<9l> $13.96 ^0°'^ 
#43399 32K Disk $19*55" $13.96 0* Y 




SUPER NOVA 

by Hogoe * Konyu 
from Big Five 

Asteroids surround your ship You must shoot the as- 
teroids, as well as any of the five types ol alien spaceships. 
Use your thrusters for lull movemenl and rotation ol your 
ship — It you are overwhelmed, you can even jump to 
hyperspaoe' Written in last machine code with superb 
graphics, this game is GREAT 1 Joystick compatible 

#18043 16K Tape $15^5 $11.16 3O? 
#18111 32K Disk $13*9$ $13.96 
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Over 2500 Programs for TRS-80, ATARI 400/800, APPLE, IBM, VIC 20 & C64 



VISIT OUR STORES 

Southwest Plaia. 8501 Wesl Bowles Ave Littleton. CO 
Tenley Mall 4200 Wisconsin Ave NW Washington. OC 
Harvard Square. 13 Dunsler SI Cambridge MA 
W Bell Plaza. 6600 Security Blvd Baltimore MD 
White Flint Mall Rockville Pike. Rockville. MD 
Cherry Hill Mall. Rt 38 & Haddontieid Rd Cherry Hill. NJ 
Monmouth Mall Rl 35 & Wyckofl Rd Eatonlown NJ 



Willoworook Mall, 1400 Willowbrook. Wayne NJ 
Nanuet Mall. Rl 59 4 Middletown Rd. Nanuet NY 
Olentangy Plaza 829 Bethel Rd, Columbus OH 
Westmoreland Mall. Rt. 30 East. Greensburg PA 
Montgomery Mall. 230 Montgomery Mall North Wales PA 
Plymouth Meeting Mall, 500 Germanlown Pike, Plymouth Meeting PA 
Cenluty III Mall. SR 51 4 SR 885 Wesl Mifflin Borough PA 
Seven Corners Center Falls Church VA 



COMING SOON TO: 

Chicago FRANCHISE 

OKLAHOMA CrrY *»nrijii»i#»e itJ 

ST PETERSBURG OPCNIN05 IN 

jjgj SELECTED CITIES 



To Order Call Toll Free 800-424-2738 For Information Call (703) 556-9778 



Mailorders Lis! computer item item # qty tape disk rom book price shipping lax 4 totai 
Send check or M O lor total purchase plus $2 00 shipping and handling VA add 4% sales ta» 
Charge cards — include all embossed information List name address, city, state r<p & phone 

SEND 25C FOR OUR COMPLETE COLOR COMPUTER CATALOG 



3** TH€ 



/^R\ 



^ 80 



THE PROGRAM STORE Dept. 14-12-3 Box 9582 4200 Wisconsin Avenue. NW 



PfiOGRAm/TORE 

c 1983 THE PROGRAM STORE 

Washington, DC. 20016 



Listing 6 continued 



• 1265 

■ •266 

• •267 

• •248 

• (26i 

• »27» 

• •271 
••272 

• •27} 
••27 4 

• •275 
M27< 
••277 
••271 

• •279 

■ 1281 
••281 

• •2B2 

• •283 

• •284 

• •285 

• •286 
••287 

• •288 

• •289 
II29i 
••291 
••292 
••293 

• •294 
••295 
••29t 
••297 
••298 

• •299 
l«3l» 
••3(1 
•13(2 

• •3(3 

• •3(4 
••3*5 
•■3*6 
••3(7 

• •3*8 

• •319 

• ■3H 
•1311 
•1312 
••313 
••314 
•1315 
••316 
■•317 
••318 
••319 

• •32> 
1(321 

• •322 
••323 

• •324 
•1325 
••326 
••327 
•1328 
••329 

• •331 

• •331 
••332 
•■333 
••334 



a,i 

( IDCBRL) ,A 
A, 32 
(IDCB1) ,A 



lUit: A-TRSOOS 



:RL-256 
lRL-256?? 



OPINIT PUSH 
PUSH 

rosi 

CALL 

JP 
MM 

POP 
?CF 
CALL 
RET 

OP1T4 POP 

POP 
POP 
RET 

OUTCHR DETB 



lopen file If peasant, alaa init fila 

■entry: BL->buffer 

I DE->DCB 

■exit: A-TRSDOS artor code 



nets last cec no. - • 
topan attempt successful 



utput record buffer for Mod II 



SETMLR LD 



HL, (MDCBLR) 

HL 

(MAPLLR) ,HL 



I SETMLR 

iset MAPLLR to true last 

INODIII adjustment 



SETILR LO 



et INLLR to true la 



■ file ends at end of sector 

■therefore on Hod III, must dec (IDCBLR) 

l for true last record no. 



••335 








iposlti 


» to rec in file 


• •336 












••337 












• •338 








leslts 


A-TRSDOS error code 


• •339 












M34( 




RET 








■ •341 






















11342 












■•343 
• 1344 




















in to end of fll* 


••345 












■•346 










TRSDOS error coda 


■ ■347 


POSEOP 


CALL 








■ •348 












• •349 

• •358 
8B351 
■ •352 
8B353 




RET 














! READDR 










idlrect 


read 


• •354 












80355 












BB356 








■exiti 


A-TRSDOS error nag 


• •357 


READDR 


PUSH 


BC 






■1358 




CALL 


DPOSN 


iposlti 


an to tec BC 


■ ■359 




JP 


NZ.RDDR5 




■rror 


■■361 




CALL 


DREAD 


idlrect 


read 


M361 




POP 


BC 






•■362 




PUSH 


AP 




ore any error sag code 






CALL 


DPOSN 


f reposi 


ion to rec-BC 


• •364 








l needed 


for Model II compatibility 


• •365 












• •366 




RET 








• •367 












• •368 




RET 








• •369 
■ •371 
(•371 
((372 


















iREADNX 










tread n 


Bit record 


((373 










DE->DCB 










■exit: 


A-TRSDOS error code 














• ■376 




RET 








88378 








■WRITE 




8B38B 








idlrect 


write 


■ B381 












8)382 










BC-rec. no. 


■ 0383 


WRITE 


PUSH 


BC 






88384 




PUSH 


DE 






00385 




CALL 


DPOSN 




on to record 






POP 


DE 






0)387 




PUSH 


DE 






00388 




CALL 


DWRITE 


iwrlte 




01389 




POP 


DE 






00399 




PC- 








••391 




CALL 






••392 
••393 

• •394 

• 1395 

• •396 




RET 














■WRITNX 












tial write 










tentry: 


DE->DCB 










leslts 


A-TRSDOS error code 


••399 






DWRITE 






• •4)1 

• •411 

• •412 




RET 


















• 0403 
■■4(4 


















■ word processing 1BWAIT routine 


■ (4(5 








■cursor 


alternatea with character 

Listing 6 continued 



COOSOL COMPUTER PRODUCTS 



COLUMBIA DATA MPC 



MONITORS 





PRINTERS 

EPSON FX Ser.es CALL 

EPSON RX-80 w/GRAFTRAX ♦ CALL 

EPSON MX-100. 80. & F/T 

w/GRAFTRAX ♦ CALL 

OKIDATA 82A $420 

OKIDATA 83A. 84A CALL 

OKIDATA 92. 93. 2350. & 2410 CALL 

NEC 3550 CALL 

NEC 3510. 3515. 3520. 3525. & 3530. . CALL 
NEC 7710. 7715. 7720. 7725. & 7730. . CALL 
NEC PC8023A-C $449 

NEC PRINTERS 



COLUMBIA System Includes: IBM COMPAT- 
IBLE Dual Floppies. 128K RAM, Two RS-232 
Serial ports, Centromc Printer port. IBM Com- 
patible Keyboard. Hi-Res Color Graphics 
Card, Green or Amber Monitor and more with 
$3,000 Software bundle 
COLUMBIA LOW TOTAL PRICE .... CALL 

OTHER COMPUTERS 

EAGLE II Business Computer CALL 

EAGLE III Business Computer CALL 

EAGLE IV Business Computer CALL 

EAGLE 1630 Computer CALL 

All EAGLE CPUs Includes Software Bundles 
NEC PC-8001A. PC-8012A. PC-8031A. 
JB-1201. PC-8023 w/Software . 

(NEC SYSTEM) $1995 

NEC PC-8800 8-BIT or 16-BIT 

w/Software CALL 

NEC APC SYSTEM 16 bit CALL 

SANYO MBC-1000 with Bundled 

Software $1595 

SANYO MPC-3000 with Bundled 

Software CALL 

SANYO-NEW PC CALL 

SOFTWARE 

STONEWARE CALL 

SUB LOGIC-FLIGHT SIMULATOR ... $33 

VISI CORP-VISICALC $239 

ASTON-TATE D BASE II $465 

CONTINENTAL ACCOUNTING CALL 

I U S EASY WRITER $89 

LOTUS CALL 

MICRO PRO WORD STAR $372 



COLOR RGB * OTHER MONITORS 

• NEC JB-1205MA AMBER CALL 

• NEC JC-1203DH(A) Hi-Res RGB $599 

• NEC JB-1201 Green CALL 

• AMDEK Hi-Res RGC and others CALL 

• PRINCTON GRAPHICS Hi-Res RGB . CALL 

• TAXAN Hi-Res RGB and others CALL 



MODEMS 

HAYES SMARTMODEM (300 BAUD). . $227 
HAYES SMARTMODEM (300 & 1200) CALL 

HAYES CHRONOGRAPH $199 

NOVATION J-CAT $120 

NOVATION 212 AUTO-CAT CALL 

SIGNALMAN MARK I and others .... CALL 
U.D.S. Series Modems CALL 



CARDS 

AMDEK RGB COLOR II INTERFACE . $169 
M&R ENTERPRISES RGB INTERFACE $69 

VIDWX VIDEOTERM CARD $285 

B P O 16K EPSON. OKIDATA. NEC. . . $159 

WIZARD IPL $85 

OTHER APPLE CARDS CALL 




OTHER PRINTERS 

BROTHERS HR-1 Serial or Parallel . . . $799 

COMREX CR-1 Serial or Parallel CALL 

DAISYWRITER 2000 w/48K Buffer . . . CALL 

TOSHIBA P1350-P or P1350-S $1649 

SILVER-REED EXP550-P 

or EXP550-S CALL 

SMITH-CORONA TP-1 and others . CALL 

GEMINI 10X $355. GEMINI 15 $499 

C ITOH 8510 Parallel or Serial CALL 

C.ITOH 1550 Parallel or Serial CALL 

C ITOH F10-40 and F10-55 Parallel 

or Serial CALL 



CALL 7 DAYS (800) 854-8498 Calif. (714) 54S-2216 

COOSOL, INC., P.O. Box 2642, Costa Mesa, CA 92626-2642 

Computer Baron 3017 Harbor Blvd., Costa Mesa. CA 92626 (714) 979-2488 



record scroll. 

As it locates and displays each record 
containing the keys, the program waits 
for your instruction to continue, abort 
the search, print the record, or output 
the record to another disk file. Type L 
and press the enter key for tine scroll to 
have Search pause after displaying each 
line. The default search display mode is 
record scroll. 

You can print records found during a 
search continuously or manually. Type 
C and press the enter key to have each 
line printed as it appears on the screen. 
Type M and press the enter key to let 
you selectively print records or lines of 
text as they appear on the screen. The 
Search Display Mode determines 
whether a line or the entire record is 
printed. The default print mode is 
manual. 

The output fUe name is the name of 
the file to which you want to transfer 
records. Enter the file name using stan- 
dard TRSDOS notation to designate the 
name, extension, disk drive, and pass- 
word. If you don't specify an output file 
name, the output file has the same spec- 
ifications as the source file except for 
the extension OUT. 

You can dose, reset, or open the out- 



put file. Type C and press the enter key 
to close an output file. Type R and press 
the enter key to reset the output file to 
the first sector. If the file is closed, 
this opens the file and sets it to the first 
sector. 

Type A and press the enter key to ap- 
pend additional records to a file. The 
program retains previously written rec- 
ords. If the program finds the file dosed, 
it opens it and sets the file pointer to the 
end-of-file marker. Using append on a 
newly created file is equivalent to reset- 
ting the file. The default output file 
status is closed. 

You can write records found during a 
search to the output file continuously or 
manually. Type C and press the enter 
key to have each record written to the 
file as it's found. Type M and press the 
enter key to manually select records to 
be written to the output file. The default 
output file mode is manual. 

While searching you might wish to 
display the text around a particular rec- 
ord. Tap L to call the list routine. A 
dotted line indicates that you changed 
from the search to the list mode. The 
message on the top tine reads "Listing 
XXXXX", where XXXXX is the sector 
number. In the list mode, the program 



sets the inset to zero while word wrap- 
around remains in effect. 

Press the down-arrow key to display 
a line at a time. If you hold the down- 
arrow key (and the repeat key on the 
Model II), the file scrolls forward. 

To backspace through the source file, 
press the up-arrow key and the text 
jumps back three sectors. The message 
"•Backspace Three Sectors*" appears. 
You can backspace to the beginning of 
the file in this manner. 

While listing, you can continue your 
search where you left off by pressing the 
S key. A dotted line indicates that 
you've changed from listing to search- 
ing the source file. The message on the 
top tine of the screen reads "Searching 
XXXXX". 

You can write records found during 
searching or listing to a separate output 
file. Three of the options deal with the 
output file. 

The default output file specification 
is the same as the index file but has the 
extension OUT. If you don't want to 
change the name, tap the enter key in re- 
sponse to the Output File Name 
prompt. 

Typing R and pressing the enter key 
opens the output file and sets the output 



TRS-80 "CAN YOU BUY DIRECT? 



WARRANTY: 

the RADIO SHACK warranty 
accompanies all R. S. 
merchandise sold by us. 



Available: All hard (& soft) ware 



Ask About Our 

"30 DAYS 

Buy- Back- Policy" 




80 Micro, December 1983 • 199 



file pointer to the first record. Typing A 
and pressing the enter key opens the 
output file and sets the file pointer to 
the end of the file so that you can ap- 
pend records to the file. 

To close an open file, type C and 
press the enter key in response to the 
prompt. If the file is already closed, the 
program ignores the command. To by- 
pass the output file status prompt, press 
the enter key and the status won't 
change. 

You can write records to the output 
file as they appear by typing C and 



pressing the enter key in response to the 
output mode prompt. Alternatively, 
you can select which records you want 
to copy to the output file by typing M 
and pressing the enter key in response to 
the output mode prompt. 

As each record appears, you can copy 
it to the output file by pressing O before 
going on to the next record. Records are 
written to the output file in the same 
format they have in the source file. 

With MAP, you can edit or index and 
search the output file. At the end of the 
search, either close the file (using the 



options menu) or exit from the search 
program (the output file is closed when- 
ever you exit Search). 

You can print the entire contents of 
the screen by pressing W any time the 
program searches or lists lines of the 
source file on the screen. If the Search 
Display mode is set for record display, 
you can print the last record displayed 
any time while searching by pressing P. 

If the Search Display mode is set for 
line display, you can print the display's 
bottom line at any time while searching 
by pressing the P key. If you do so and 



Listing 6 continued 
















■MM 


■prist PUSH 


BC 


:EC used u counter 


M321 




CALL 


VDCBAB 




IIU7 
••41 1 


LD 


A.l 

(CDMBLE) ,A 


■ non blinking cursor 


MS22 
••523 




SET 






U 










Mill 


LD 


A, 143 


il«c9« cursor over chsract.tr 


••524 
■•525 








l EBASEL 


■■410 


LD 


(CURCSR) , A 










• •411 


splli LD 


BC.4M 




■1524 








isrsss to snd of lins 


•1412 


LD 


A,(n 


■cursor on 


••527 


EBASBL 


LD 


A.1EB 




••41) 


CALL 


VDCSAA 




• •52) 




CALL 


VDCHAB 




•■414 
•Ml 5 
••411 


WPKM CALL 
CP 

JP 


men AS 
NZ,WPEB2( 


l)p If chst entered 


11529 
•■53* 
B«5)l 
••5)2 




RET 












1 VDIRIT 


••417 


DEC 


■C 












••411 


LD 


A.l 




MS) 3 


VDIRIT 


LO 


A.l 


■elsar serssn sad lnitiallts 


M41I 


0* 


c 




••5)4 




CALL 


SCR PRO 




••421 


C? 


• 




M5)5 




CALL 


ERAS Is 




••421 

■•422 
•1423 


a 


Ml, VMM 




M534 
MS37 
••S)* 
••5)f 




RET 






LD 


A,»PI 


■cursor off 








IVDLIMC 


■•424 


CALL 


VDCNAA 












••42 J 


LD 


aC,5M 




••54* 








■display lins 


••424 


WPKB12 CALL 


ISCIAR 




••541 


VDLINE 


NOP 




isntryi Hl->string 


••427 


C? 


f 




••54 2 








■ •DM or •) stop dlsplsy 


•I42I 


J? 


H1.KPR.B2I 


i]p if cbsr entered 


••543 








isslti BL ->nsst chsr 


M42S 


DEC 


BC 




• •544 


VDU5 


LO 


A, (ML) 


■ get char 


HUI 


LD 


A.l 




•••45 




CP 


•DB 


|EOB? 


■Mil 


0« 


C 




■1544 




Jl 


I.VSL12 




r,. 


cp 


• 




M547 




CP 


•) 


■ BOB? 


JP 


K!,MHI12 




MS4B 




JR 


I.VDL12 




••414 


n 


mi) 




••54* 




CALL 


VDCHAB 


idlsplsy chsr 


HI1S 








MSM 




ISC 


ML 




••4)4 


mm km 


AP 




M5S1 




JS 


VDLIS 


■loop until EOS 


HUI 


LD 


a, era 




••552 


VDL12 


CALL 


VDCHAA 


idlsplsy EOB chsr 


M43I 


CALL 


VDCHAA 




••553 




INC 


BL 


i-> nsit char 


• M3f 


LD 


A, I 




••554 
••555 
•1554 
MSS7 




BET 






M4M 
• •441 


LD 
LD 


(CUBBLK) , A 
A, 174 


■blinking cursor 


' 






iVDLIir) 


••442 


LO 


(CURCIA) .A 












M443 


pop 


AP 




M55I 








■display lins, but not IDE 




POP 


sc 




M5SS 


VDLIM) 


NOP 




■sstryi IL->strlng 


M44S 


BET 






■•54* 








ISM or 13 stop display 


••44* 

M447 








■•541 

14562 








I DOES MOT PBIMT SDMI 
isslti BL ->aext cbsr 


' 




iHLIin sod IILIXE 


M44I 

M44* 








MM) 
MM4 


YDL3IS 




A, (HL) 




EMM) HOP 




,IOS-S3 


CP 


IDS 




IIISI 


LD 


A, 13 




••MS 




JR 


I.VDD12 




M4S1 


J» 


nill 




MM 4 




CP 


•) 




••452 


IlLIHt BOP 




isntryi BL->buf.s- MS 1 snath 

■ssLtt B-length not including BOB chsr 


MM7 




JR 


I.VDL312 




••453 






••MS 




CALL 


VDCBAB 




•MM 






jeob-idh or (1 


MM* 




IHC 


BL 




•MS* 






irsturns with lsst char sntsrsd in A 


••571 




JR 


VDL3I5 




•Mil 


LO 


a, ion 




••571 


VDL312 


ISC 


BL 


■-> nest ehar 


••457 


DU1 LB 


IEOMCSR) ,A 




■•572 
••57) 
MS74 
M575 




RET 






MM 
•MM 


CALL 


A, IE3 
VDCSAA 


.cursor on 








■ BETIB 


• •444 


LD 


c*i 












■Nil 


■Mil CALL 


(MA IT 




••574 








■ get search ksy (includes »/ 1 op) 


••Ml 


IS 


DfA 




■•577 








■entry! BL -> input buffer 


••443 






iksy sntsrsd 


■•571 








I B - asi no. of char 


••4*4 


CP 


KM 


■enter? 


••57* 


IEYIB 


LO 


A.IE9 




M4«S 


jp 


Z.RBLID.H 




MSM 




CALL 


VDCBAB 


■turn euraor on 


M444 


CP 


• • 


ibsckspscs? 


11581 




CALL 


EBASEL 


■ srass to snd of lins 


MM7 


JP 


Z.RDLD5P 




••512 




LO 


c,« 


■char countsr 


M444 


CP 


inner 


ibrsakT 


MSI) 


GETCIB 


NOP 






HMI 


JP 


i.wbsk 




MSM 




CALL 


IBMAIT 


lost char frost ksyboard 


■•471 


CP 


2M 


i ' '7 


MSIS 




CP 


Ml 


■char or control? 


■•471 


JP 


R.RBL15 


i jp if control char 


MSM 




JP 


M.cnu. 


■control if lsss 211 


■•472 


LD 


A.l 




MSI7 




CP 


■•' 




■•473 


CP 


C 


ihsvs ass char's been sntsrsd? 


MSM 




JP 


I.RBCMD 


ijp EK3SD if cad (l.s. '•* pressed) 


••474 


JP 


Z.ISLSS 




MSM 




JP 


ALMA 


■ alpoaauaerlc sntcred 


••475 
••474 


LD 

LD 


A.D 

1BL) ,A 


■reload sines A ussd for cslc 
istors in buf 


MSM 










••5*1 


EMTAJSD 


LD 


A.C 




••477 


INC 


C 


line chsr count 


•15*2 




CP 


B 




••47a 


ipx: 


■L 




MS*) 




JP 


1, GETCHR 




•1471 


CALL 


VDCHAB 


■dlsplsy chsr 


••5*4 




INC 


C 




• MM 


JP 


KBLB5 


i loop until BOB 


•■5*5 




LO 


A,"*' 




••4(1 


K»L»SP BOP 




j bock spscs rout ins 


MSM 




JP 


ALPHAS 




••412 


LD 


A.l 




M5I7 


EMTOR 


LD 


A.C 




■•4(3 


CP 


c 




MSM 




CP 


B 




••4(4 


JP 


1.SILI5 


ido nothing if stsrt of buf 


MS** 




JP 


i.getcmr 




••415 


LD 


A,« 




•MM 




ISC 


c 




••414 


CALL 


VDCHAA 


ibsckspscs 


Mill 




LD 


A, 124 




M4t7 


DEC 


■L 


idsc buf polntsr 


■Ml 2 




JP 


ALMAS 




Hill 


□ EC 


C 


idsc chsr count 


•Ml) 


CSDAMD 


LO 


A, 25) 


■ snd cods 


•MM 


JP 


(BUS 




•MM 




LD 


(BL) ,A 


■store snd cad 


•MM 


IIIM LD 


A.(EORCBR) 


■break ksy sntsrsd 


■ M)S 




LD 


A.'*' 


■ sad char 


■MM 


LD 


1"L) ,A 




•MM 




CALL 


VDCRAR 




• M*2 


CALL 


VDCMAF 




••••7 




CALL 


HABI 


■asrk as operstor 


••4*3 


LD 


A.BRIXEt 




••••I 




IMC 


BL 




M4M 


LD 


(EORCHR) ,A 




•MM 




JP 


GETCHR 




••415 


JP 


ULIDI 




•Mil 


CMDOR 


LD 


A, 254 


ioc cods 


M4M 


(■LID! MOP 




iplscs BOB ((3 or (DB) 


•Mil 




LO 


(ID, A 




Hill 


LD 


A,(EOBCMB) 




• 1412 




LD 


A," 1 " 


■ or char 


MSM 


LO 


(U.I.A 




•Ml) 




CALL 


VDCIAR 




M4H 


1 CALL 


VDCBAB 


idlsplsy BOB VOID VOID VOID VOID VOID 


•M14 




CALL 


MAM 


■asrk as operstor 


M5M 


num ipc 


EL 


|BL-X>yte past BOB 


•MIS 




IMC 


BL 




••5(1 


IS 


A,»P1 




M414 




JP 


GETCHR 


■ loop 


••512 


CALL 


VDCBAB 


■cursor off 


■M17 


l 








•mm 


LD 


A, (EORCHR) 




•Ml) 








■alpha nuasrlc chsr 


IIHI 


LD 


■ ■C 




•Ml* 


ALMA 


LD 


D.A 


itsac stors A 


HM) 


BET 






•M2I 




LD 


A,C 


■A now ■ chsr count 


MSM 
••5(7 
MSM 


EORCHB DfPl 


IDE 


■ BOB chsr sets r 


•M21 
• M22 
•M2) 




CP 

JP 


■ 
J.CETCHR 


■cp to ass char 

(loop until CTB or CUD 

■char ok so process 


' 




IPSIHIT 




MS** 








•M24 




IMC 


C 


Ibuap countsr 




■•51* 


PR I MIT RET 




linltlallss prlntar (HOD II only) 


•M2S 




LD 


A.D 


■rsstocs A 


••511 








• 16 26 




CP 


*♦* 






•1512 






itCRPBO 


MC27 




JP 


I. CUD AMD 




••513 








M424 




CP 


IM 


l reverse ' 




■1514 


(CIPRO LD 


(DSC»P»),A 


i scroll protset 


•Mil 




JP 


i.chdor 




M515 
••514 

M517 


BET 






•MS* 

■Mil 
•M32 


ALPBAS 

ALPSA7 


LD 

IK 

CALL 


(■L) ,A 

BL 

VDCMAR 


ibuap IL 
■dlsplsy chsr 


' 




1 [RASES 


MSI* 








•M)) 




JP 


GETCMB 


■ loop 




•1519 
••52* 


ERASES LD 


A.1PH 


rsrsss to snd of serssn 


•M)4 
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Tired of swapping Disks from Inventory to Accounts Receivable 
to Accounts Payable etc.? Now, one system does it all. 

Introducing 

The M.B.S. 
Business Management System 

At last a completely Integrated, Menu driven System for: 



INVOICING 
Opens Customer Files 
Opens A/R Accounts 
Updates Inventory 
Stores Mail List Files 
Stores Sales Records 
Computes Sales Tax 

CUSTOMER FILES 
Maintains Order Status 
Prints Labels 

Prints Customer Balances 
Stores Order Amounts 
Stores Order Payments 
Prints Statements 



MAIL LABELS 

Stores by Variable File Names 
Sorts by Zip Code 
Sorts by Name 

• INVENTORY 

Sets Upper and Lower Limits 
Generates Purchase Orders 
Lists Inventory by Vendor 

• ACCOUNTS RECEIVABLE 

Open A/R Accounts 
Generates Monthly Statements 
Interest and Non-Interest Accounts 
Listing of Accounts Balances 
Manually Enter Charges and Payments 



ACCOUNTS PAYABLE 

Enter Charges to Accounts 
Enter Payments to Accounts 
List Payable Balances 

1 CHECK WRITING 
Print or Record Checks 
Maintains Bank Balance 
Credit Accounts Payable 
Stores Expense Totals 

FINANCIAL STATEMENTS 

Prints Sales Reports 

Prints Operating Statements 

Prints Receipts Reports 

Modifies Expense and Sales Totals 



Yes, now there is a complete business system for the small business man. With our Business Management System, you can increase sales with our mail label function. 
Complete your Schedule C in as little as 15 minutes. Know what your business is doing, and maintain other important business functions. 

/• 
This easy to use system comes complete with instruction manual, and diskette on Dosplus mini TDOS operating system with extended Basic, and one year support. All 

programs are in Basic, and require two disk drives and 48K RAM. If you have waited for the right business software for your business, your wait is over. Our current 

users love our system and you will too. 



Special Introductory Price $249. 95 



GAMEMASTER 

Do you get complaints from your spouse, family and friends that you isolate yourself from them while "playing" with your computer? Do you wish there was a game 
that could get everyone involved? Do you enjoy creative expressions as well as playing games? If so, we have a unique Program/Game wich could be the answer. It's 
colled GAMEMASTER. 

This program lets you easily develop and play your own adventure games. It does not create a game which you play against the computer, but creates a game which 
you the game creator, direct the game play while your computer maintains the game conditions and resolves combat. 

GAMEMASTER package includes routines for creating player characters, creatures, items (weapons, armour, implements, or treasures), and environment (time. 
location etc.). Comes on diskette with sample scenerio. Requires one disk drive and 48k ram. 

Price $ 39. 95 



Specify Model I, Model HI, Model IV, or LNW 
Dealer Inquiries Invited 



PRINTERS 

Prowriter $ 379 

Prowriter2 $ 699 

StarwrlterFlO $1299 

Okldata82A $ 409 

Okidata83A $ 649 

Okldata92 $ 509 

Okldata93 $ 899 

Silver Reed $ 499 

Mannesmann Tally Call 

NEC Call 

Transtar Call 



PERIPHERALS 

Hayes Smartmodem $ 219 

Hayes30Q/1200 $539 

Holmes VID 80 $259 

HolmesCPW2.2 $109 

64KRam $114 

Holmes DX3DC $ 157 

Holmes DX4DC $ 157 

Holmes High Speed Ram . . $ 29 

Holmes Sprinter I $ 89 

Holmes Sprinter III $ 89 

Holmes Sprinter KX $ 129 

Diskettes Call 



LN.W. 

LNW80II $1495 

LNDouWerw/DOS $ 199 

System Expansion $ 399 

MONITORS 

Amdek300G $ 149 

Amdek300A $ 159 

AmdekColorl $ 339 

Amdek Color II $ 469 

Taxan Amber » 149 

Taxan Green $ 139 

Taxan RGBI $ 319 

Taxan RGB III $ 599 



SOFTWARE 

DOSPLUS 3.5 $119 

DOSPLUS IV $119 

MTERM $ 69 

TRSDOS 6.0 Plus Enhance $ 45 

Super Utility Plus $ 69 

Newscrlpt7.1 $ 99 

Newscrlpt w/labels $ 109 

FileConverter $ 20 

Trashman $ 35 

Faster $ 27 

Tallymaster $ 69 

Electric Webster $129 



01 1 111 T* 1 c/i 



*.. $<* 



Microcomputer Business Systems 
14030 South Springfield Road 
Brandy wine, Maryland 20613 
1-800-638-1857 

in Maryland 1 (301) 372-8SS5 — Washington, D.C. Local Call 




s See Ust of A<M*tis»rs on Page 291 
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the printer isn't ready, the program 
pauses until you press the break key. 

You can exit from the Search pro- 
gram by pressing the break key while it 
lists or searches text, or by pressing the 
break key in response to the "Enter 
Key" message. The minimenu appears 
again on the top line. Press T to return 
to TRSDOS. 

Possible Applications 

Entering reference collections in disk 
Mies and searching with Search elimi- 
nates extensive cross-indexed card files 



or specially coded computer files. You 
can enter titles, authors, or journal 
names in any order. You can also add 
key words to the record. 

Search's output option is helpful 
when composing the reference section 
of any research or technical paper. 
Search your reference files for the ap- 
propriate references and copy them to 
an output file. You can incorporate the 
output file into a manuscript or edit it as 
an independent file. 

You can keep information about 
clients or club members in text format 



and retrieve it rapidly with Search. A 
realtor could keep a record of each 
client, type of property required, geo- 
graphic location, and price range. 
When a new property becomes avail- 
able, he could search for the ap- 
propriate keys and locate the clients 
who might be interested. He could also 
use the program to select properties a 
new client might want to purchase. 

You can search parts listings rapidly. 
Each record of a file could store infor- 
mation on automobile parts, and con- 
tain a description of part, stock num- 
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• M3S 


CTIL 


NOP 




IMntruI Char «U»d 


••74* 




POP 


■C 




•M)i 




CP 


•M 


i? c* 


••7 SI 




CALL 


roscui 


[reposition cursor 


MMT 




JP 


I,CTRL*I> 




■•7 SI 




IET 






■MM 




CP 


• • 


1? b*ckep«ce 


M7S2 


i 








Milt 




JP 


I. CTRL* 8 




M7S3 


coop. 


new 


i 


■coordinate atoraae 


■MM 

MMI 




CP 

JP 


1 

I.CTSLI1 


ivaa braak bit? 


M7S4 
M7SS 


















ill IM 


Mi 42 
•••43 




JP 

HOP 


ctrou 


I other CT1U. not kllowad 
lDt««i ley routine 


MTM 

••757 










CTUIl 


ru.in 


■OP 




■ print Una 


•M44 




LO 


»,c 




••75* 








IIL-XMif far 


Nttl 




CP 


■ 


IMS tree. Bit oa ct - 17 


M7S* 








■*>no. char, c*«ndlna control char 


MM 




JP 


"I ,CTHLI2 


]»t.It o.er 


M7t( 


PKLLP 


LD 


A, (ID 




MMI 




LD 


A, in 




••7(1 




CALL 


FKSAI 


1 print char 


Mill 




CALL 


VDCBAI 


itarn off c.tiot 


• 17 6 2 




CALL 


raciAi 


laaa If braak praaaad 


MMI 




LD 


a, must 


lA-l •> boa* bit 


••7tl 




CP 


•1 




•MS* 




LD 


».• 




••7(4 




«rr 


i 




Mill 




ITT 






• •765 




IPJC 


■X 


ipt to nait char 


MM] 


CTILI2 


LD 


a, wirt 




• •"66 




LD 


A, I 




•MS3 


CTRLiD 


»0P 




lEOa 


Nil? 




CP 


• 




•MS4 




LO 


(■L) .A 




••7(1 




JP 


I, nunc 




IMS! 




JP 


IMMD 




••7(1 




DEC 


■ 


idac char count 


•MM 


CTILII 


hop 




ibackapacs routine 


••77( 




JP 


PRLLF 




•MS7 




LD 


D,A 


it.ap aava A In D 


••771 


FILMED 


LD 


A.C 




MMI 




LO 


A,C 




••77 2 




CALL 


PBCHAIl 




MMI 




CP 


I 


1 If saro cannot backapaca 


••77 3 




MT 






•Nil 
MMI 




JP 

DEC 


l.crrcn 

c 


idac counter 


•1774 
••775 
















i risen 


MMI 
MMI 




DEC 


KL 
A,U 


idac buffar pointer 


••771 
••777 












LD 








iprlnt scraon 


MM* 




CALL 


vucmAi 


laraas ona char 


••771 


risen 


CALL 


PBTSCB 




MMS 


) 








• 17-9 




«ET 






•Mil 
MMI 




PCSS 


■L 

il. (cuisoi) 




••7M 

••711 










PITBUf 


DEPS 


•■ 


jp.'ir.ter buffar 


MMI 




LD 


Dt,<4 




••712 




DEr* 


(Da 




•M7I 




en 

ADO 


A 
■L.DI 




••713 
••714 
















lltTtU 


MMI 
•MT] 




LD 


A, ■- ' 




• •7 85 
M7M 












LC 


(BL) ,A 




imu 


MM 


BC 


l print neit to bottoa Una 


•MT] 




POP 


■L 




•1717 




POM 


DE 




•M74 




JP 


crrau 




M7M 




run 


«L 




••17 5 










••71* 
M7M 




LO 


B.PEXULN 

e.i 




MMI 


■Km 


NOP 




ikayboard couaend routine 






M«77 




LD 


A, 143 




•(7*1 




LD 


D.SU1DTH 




mil 




LD 


(CUBCHR) ,A 


ilarga cursor 


• •7*2 




LD 


HL.rmur 




•M7» 




CALL 


« IMA IT 


laat char 


■17 >3 




CALL 


NOVELN 




•MM 




CP 


■M 




MTM 




IJ> 


HL.rirreor 




MMI 




JP 


l.ISTCUI 




••7*5 




LD 


B.SWIDTH 




• Mil 




LD 


D.A 




M7M 




LO 


c,»na 




• Mil 




LD 


A,C 




••7f7 




CALL 


ruin 




•MM 




CP 


■ 




Hill 




LD 


B.rnruLM 




• MM 




JP 


I , MTCUl 




MTM 




LD 


e»i 




•MM 




LD 


A,D 


iraatora A 


• •8«l 




CALL 


roaeni 


irapoaitlon cursor to nait to laat lin* 


•Mr? 




CP 


•♦ • 




MMI 




POP 


BX 




•MM 




JP 


J, IP-ABC 




MM2 




POP 


DE 




MM* 




CP 


•M 


I reverie ' 


MM3 




POP 


K 




•MM 




JP 


I ,«BCR 




MM4 




IET 






MIM 
MtM 




C? 

JP 


I, OBCM 




MMS 
MM* 
















iPITMC 


■MM 


OBCM 


■OP 






Hill 










■MM 




LD 


<IL) .A 




MM( 


rrruc 


■OP 




iprlnt racord froa acraan 


(MM 




CALL 


VDCIAI 




MM* 




LD 


C,* 




•MM 




JP 


OOCC 




•111* 




LD 


A. (SOILS! 




MMI 


• Bjjro 


LD 


A, '♦ ' 




• •en 




CP 


3 




•MM 




LD 


(ID ,A 




••■12 




JP 


I.PRTR2 




•Ml* 




CALL 


VDCIAI 




•••13 




LD 


A, (SOIL*! 




II7II 




JP 


CHDOI 




MI14 




DEC 


A 




((7*1 


«BOB 


LD 


A, ' 1 " 




MI1S 


PRTP2 


in 


».A 




• (7*2 




LD 


(IL).A 




•••11 


PBTBLP 


LD 


HL.PRTBUK 




MTM 




CALL 


VDCIAI 




Mil? 




LD 


D.SWIDTK 




• •7*4 


CHDOK 


■or 






••IK 




PUSH 


■C 




• •7)5 




IIIC 


C 




•111* 




CALL 


MOVELN 




M7M 




INC 


«L 




• 1921 




LO 


■L.riraur 




•17(7 


BSTCUR 


LD 


A, 174 




•••21 




LD 


B.SWIDTH 




Hill 




LO 


(CUBCHR) ,A 




•••22 




LD 


CIDa 




■mi 




JP 


CETCHR 




•••23 




CALL 


PRUNE 




iiDi 


| 








•••2 4 




POP 


K 




••71 J 


istac 


LD 


•>c 




■■•25 




LD 


A.rrauui 




M712 




push 


AT 




M*2( 




CP 


■ 


ihaa laat Una baan raacbad7 


• •711 




to 


A.IPH 




• •627 




JP 


»,rms 




M714 




CALL 


VDCBAI 


iturn off cucaoc 


• •128 




JP 


a, rms 




M71S 




POP 


AP 


lA • BOB character 


■•12* 




I»C 


■ 




MTM 




BET 






•••3( 




JI 


rSTILT 




••717 










•1131 


rms 


in 






••711 
••71» 


HAH 


PUSI 
LD 


■L 
DI,t3 


1 piece nark on lino under chac 


•••32 
•••33 
















■ BOLT 


M72» 

M7 21 




OP 
ADO 


A 

■ L,D* 




•1*14 
(••35 




















■aatryi IL-eailt lpl lcand 


W722 




LD 


A, 131 




MI3( 








1 »-»ult lpllet 


• r?2j 




LO 


(ID, A 




•1117 








ie.lt; IL-produet, ^-overflow byte 


• •724 




POP 


■L 




• •93 6 


■ULT 


CALL 


DetULT 




MT2S 




AIT 






•I 13* 




push 


BL 




••7 2* 










MM* 




LD 


b,L 












• •727 
••7 21 








iMIeU 


•••41 
•••42 




LD 


L,A 


lA now has ovar flow byta 








1 — — — . . . . . ■ ■■ 




POP 


AP 


• »72» 








move chat frCsj screen to buffer 


•••43 




in 






MTM 
••711 








laatryi hi.-. buffer, d- no. chat 

I BC*curaoc coordinate* 


•••44 
•1145 
















iHT* 


•1732 
MTM 


HOVEL! 


LD 
CP 


A,D 




•114* 

••147 












PTTS 


LD 


HL.CMDTXT 


■ point iHLi to cad Una 


••734 




ATT 


1 


ino tcaaafac If char count ■ • 


MMI 




CALL 


EATWal 


■ bypass cad 


MTM 




LO 


(COO«) ,»c 


latoxa cursor coordlaataa 


MM* 




CALL 


lATtam 


ibypaas trailing blanu 


MTM 




CALL 


a; ipcs 


,poaltloa cursor 


MIS* 




MT 




iBL-> flrat char of file apac 


M737 
MTM 




PUS* 


K 
■C.ICOOB) 




M1S1 
• •452 




















iDOSCMD 


M73» 

M7M 




CALL 


roscui 




• •953 

• •954 












LD 








• 




lasacuta OB file than DOS 


M74J. 




LD 


C,D 




MISS 








|t»MH Of CJH file 


•T74J 




PCSI 


•C 




• ••54 


DO SCUD 


PL'S! 


■X 




S744 




LD 


D,« 




MM7 




LB 


DC.CKSTXT 


lDI->T*SDO* cad Ham buffar 




LD 


I.L 




• •958 




CALL 


AprnD 


move cad to cad Una buffer 


M74J 




LD 


■L, I CO MO*) 




• •959 








; needed to paas psraastsrs to pr corks 


M1M 




POP 


K 




••Ml 




POP 


■X 




••747 




LD 


DE.PRTBUf 




••Ml 




JP 


COMDOS 




MTM 




LDII 




itranafer to PRTVUP 
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PACKAGES 
AVAILABLE FOR 



TRS-80 MODEL 16 



$500. 

per package 



Available for TRS-80 
Model 12 A Model 1 1 
Single user 




• General Ledger 
° Accounts Payable 

• Accounts Receivable 
' Payroll 

• Inventory / Invoicing 
' Job Costing 

(Modifications Availablo) , 



1-214-341-9874 




m-m DAISY WHEEL 

oaitJ New Smith Corona jp.2 

True letter quality printer for less than the cost of an 
office typewriter! Priced $500 less than other popular 
daisy wheel printers! 

SALE PRICE: 
$449 



FEATURES: 

^ Friction feed 

ir 15 cps, 120 wpm 

if Changeable daisy wheels' 

if Parallel or serial interface 

if Compatible with R/S. Apple, etc 

HSUNLOCK SYSTEMS 
4217 Carolina Ave 
Richmond. Va 23222 
AWITIONAL PRINTER SPECIALS 
Hpoon Okidcuta Gemou. cTltoh 

RX&O $329 &2A $399 10 $299 SblOAP $369 
SOFT 429 S3A 639 10S 3*9 IbbOV 629 
FX&0 5S9 92 499 lb 439 ¥10-40 1149 
FX100 739 93 U9 IbS b29 FlO-bb 149b 
mmil MEET AhlV AVVERT1SEV COST IN-STOCK 




• 456 



TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-321-9191 

We accept MasterCard. Visa and CODs 



MICRO DESIGN INTRODUCES 

REMOVABLE 

WINCHESTER HARD DISK SYSTEM 

For the TRS-80, IBM & Apple Computer 




FEATURES 

• Approximately nine times faster than standard floppy disk drives 

• Mix & Match Fixed & Removable drives for a custom system 
Up to 45 megabyte on-line storage • Built-in error detection & correction. 



Starting 
At 



$179995 



Tex. Res. Call 512-441-7890 



MICRO DESIGN 

6301 Manchaca RA Suite B • Austin, TX 78745 



1-800-531-5002 



Sm our other ads on pgs. 127, 289 



•429 



»- SeeUstot Advertisers on Page 291 
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ber, manufacturer, model number, and 
equivalent products from other manu- 
facturers. A customer needs a water 
pump for a 1970, 250-cubic-inch Chev- 
rolet. Type in Chevro+ 1970+250ci 
and the appropriate records appear with 
the model number, your stock number, 
and price. 

Limitations 

The Mindex and Search programs 
have several limitations. First, you must 
reindex the source file whenever you 
modify it, and you can't modify the 
source file directly from the search 
program. 

The major limitation on modifying a 
record-compressed text file is that if the 
modified record is longer than the origi- 
nal, you can't modify it in place. You 
can overcome this problem by deleting 
the old record (overwriting it with O's 
or some other character) and appending 
the modification to the end of the file. 

One disadvantage of this method is 
that with extensive use the file size 
quickly becomes too large and you must 
use a reformatting utility to reorganize 
the file (eliminating the deleted 
records). A minor disadvantage is that 
the position of a record within a file 
changes every time you modify it. 

My solution to this problem (a pro- 
gram called 3by5) is to assign one record 
per sector. Although this method 
doesn't optimize disk space, it's simple 
to implement and doesn't require pe- 



riodic file maintenance with a reformat- 
ting utility. 

Another problem with Mindex and 
Search is that they are designed for sys- 
tems with disk drives. Random access is 
slow on disk drives, and Search by- 
passes this problem by storing as much 
of the index file in RAM as possible. 
Large hard disk files can have indexes 
one or two orders of magnitude greater 
than available memory. 

The solution is simple: 251 random 
access records are set aside for the index 
file. The n 01 bits of all the signature 
strings are stored in the n* logical record 
of the file. Only the index records cor- 
responding to the hash values of the 
search key are read from the disk. You 
don't need to sequentially read the en- 
tire index file. 

This file access method, however, re- 
quires multiple, nonsequential disk 
reads from the index file, and a floppy 
disk based system is too slow. I am in 
the process of modifying Mindex and 
Search for TRSDOS, TRS-XENIX, 
and LDOS hard-disk systems. 

Future of Text Storage 

Several publishing companies have 
plans to distribute textual material on 
laser video discs. These discs hold large 
amounts of information (text, numeri- 
cal, program, and pictorial), can be in- 
terfaced to microcomputers, and can be 
mass produced. 

The tremendous amount of informa- 
tion stored on the video disc creates a 



problem. How can you rapidly search 
large text files (reference works such as 
encyclopedias, thesauruses, and so on)? 
Sequential access methods are too slow 
for these huge files. Tree-searching al- 
gorithms aren't appropriate for text. 

Signature screening is a partial 
answer to this problem. You must make 
substantial modifications to apply this 
method to extremely large files stored 
on machines with relatively slow direct 
access times. The goal is to devise 
hashing algorithms that maximize the 
specificity of the screening test (reduce 
collisions). 

The application of signature screen- 
ing isn't limited to text files. With modi- 
fication, you can apply it to records 
with fixed fields. Indexed sequential 
and signature screening methods can 
access a data file. You can extend the 
concept of signature screening in 
Mindex and Search to include many 
sophisticated applications. ■ 

Joseph E. Trojak is the president of 
Softshell Corporation, P.O. Box 18522, 
Baltimore, MD 21237. Softshell sells 
3by5, an enhanced information re- 
trieval system that incorporates Mindex 
and Search. 

Mindex and Search are available from 
the author at $12.50 for a TRSDOS 1.3 
Model IU/4 disk and $14 for a TRSDOS 
2. A Model 11/ 12/ 16 disk. Specify source 
code or the assembled version. The price 
includes U.S. postage; Maryland resi- 
dents must add 5 percent sales tax. 
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• •862 




jp 


DO SCUD 


i }ust In ceae 


• 18(3 
•MM 

• •865 
















1 ERRDSP 








1 — — — — — 


• •866 








lector display 


• •867 


ERRDSP 


US 


«C*H 


net bit 6 (detailed actor mag) and 


••868 








.set bit 7 (raturn to caller) 


••869 




CALL 


DERDSP 


icall atcoc dsplay message 


M87( 
••871 




RLT 














••872 
••873 
••874 


DISBM 


BR 




ifoc Hod II compatibility 


STHENB 


LD 


DE,(EOMH) 




••875 




LB 


(HEHEHO) ,0E 


.store and of memory 


• •876 




SET 




laaiat be called before DE chanomdllll 


••877 

• •878 
••87* 

86681 

• •681 


-.-."'.■- 


DEPW 


• 


land of Hieaocy storage 








iHODIII buffere 


1NDCB 


DEPB 


1 


■Input file DCB 


1(882 


IDCB1 


MR 


i 




•1883 




MR 


I 




••884 




DETB 


1 




• •885 




DEFB 


• 




••886 




DEFB 


i 




• •887 




DEPB 


1 




• •881 




■an 


• 




•■889 


IOCBOS 


DEPB 


• 


■EOF offaet 


■MM 


I DC BR L 


DEFB 


• 


1 logical cecord length 


• •891 


IDC8CR 


defw 


1 


(current record (actually nest record) 


88892 


IDCBLR 


DEPH 


• 


ilaat cacotd 


11893 




DEPS 


41 


1 eaten ta 


••894 


I HI. LB 


DEPH 


• 


itrue laat sector 


1(195 


| 








••894 


KAFOCB 


DEPB 


« 


IHAP file DCB 


••897 




DEPB 


• 




1*898 




DEFB 


• 




•1899 




DEPB 


• 




Htll 




DEPB 


• 




••9(1 




DEPB 


■ 




••9(2 




DEFB 


• 




HN) 




DEPB 


1 




• •9(4 


HOC BOS 


DEPB 


i 


lEOF offaet 


••9*5 


HDCBRL 


DEPB 


i 


1 logical record length 


• 19(6 


KOCBCB 


1 if'.' 


I 


.-current record (actually neit record) 


MM7 


KDCBLR 


DEPH 


1 


;last record 


• •9*( 




MM 


• 1 


leatenta 


MM* 


HAPLIJ 


DEPH 


1 


itrue laat sector 


• •91* 


OUTDCB 


::efs 


61 


■output file DC! 


■•911 


souls 


DEPB 


• 


■ atart of record Una number 


M912 








ifoc each line of tec displayed 


•1911 








i(SORLN) is decremented 


••914 
••915 
M916 

••917 






t 


[dummy foe Hod II compataci 1 ity 


ACCESS 


DEPB 


smiir 


DEPB 


• 




• 1918 




tm 







Program Listing 7. Assembly-language listing ofS30PT/SRC:I. 


••Ml 


IS30PT/SRC.1.2 






•••■2 
•MM 


lJun 21 


, 1983 






■SEARCH 


QPTIOHS 


ROUTINE 




••••5 

• •••6 

••■•7 
••••8 

• •••9 


iCOPyRICHT 1983 


SOFTSHELL CORPORATION ALL RIGHTS RESERVED 


S30PT 


fSECT 




.start of relocatable program section 


' 


PUBLIC 


OFT 




•■•1* 










•Mil 




EXTERN 


KBLINE,IEBLIH3 


KBCHAB.RBHAIT 


• •■12 




EXTERN 


IBBRI 




•••13 




EXTERN 


VDCLS. VDLIHE, VDCHAR 


•••14 




EXTERN 


BOBE , BOTTOH . HEWIH 


M»15 




EXTERN 


CURFOS, POSCUR 




•M16 




EXTERN 


ERASEL, ERASES 




• ••17 




EXTERN 


OPEN , CLOSE , POS EOF , POSH 


Ml It 




EXTERN 


OUTDCB 




• ••19 




EXTERN 


ARROWD, ARROHL 


ARROHR,ARROWU,BRRXE»,SHIDTH,PENULN 


M(2( 


1 








•••21 




EXTERN 


HINSET.SINSET 


SDHODE , PRNOD E , OHODE , ANSWER 


• •122 




EXTERN 


PSEOR,OPSTAT.OrCO*!D,OPHOCT 


•M23 




EXTERN 


OPNAHE . EEYBUP 




•••24 
•••25 
• ••26 

•••27 
•••28 




EXTERN 


APPEND 




OfTCOt 


tOQ 


43 


■Column for option ineascm 


1 






lOPT 


•••29 










■mi 








■optiona routine 


• ■•31 








■entryi no paraatera passed 


•1132 








■exit: no parameters returned 


••133 








1 one eslt point i OPTEMD 


•••34 








.calls. CPTPCB.OPTPC 


•■•35 








■teg altetad: af.bc.de.bl 


•••36 


.v~. 


LL 


cm 


ItSsCl 


•••37 




CALL 


POSCUR 




•••38 




CALL 


ERASES 


letase to end of screen 


••(39 


OPT8 


LD 


A,(PSEOR) 


I get paeudo EOR chat 


• •(41 




CP 


•Da 


lis it atandatd eor (*dh)7 


(((41 




JS 


:,0PT(R 


ijp OPTM if racotd format 


(((42 




LD 


HL.MSGPP 


■ 'Paragraph Pormat'*3 


((•43 




CALL 


VDLIHE 




•••44 




■ 


OPTM 




■ •145 


OPTM 


LS 


HL.HSSHP 


1 'Record Format ' (3 


••146 




.ALL 


VDLIHE 




•M47 


OPT*E 


s;p 




■end of OPT* section 


•••48 


1 ..... 








•••49 




LD 


' K '. 5*256 


■r6:ci 


• •151 




CALL 


POSCUR 




•••51 




LD 


BL.0PHSG1 


I'Inaet from Left Hergln'i3 


•••52 




CALL 


VDLIHI 




• ((53 




LB 


A,(NIHSET] 


iqet inset value 


(••54 




■tj 


A, 48 


.convert to ASCII 


• ••55 




CALL 


VDCHAR 


■display inaet value 


•••56 


> 
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Listing 7 continued 






MM1 




LD 


BC,i*25i 


IfTlCl 


•MM 




CALL 


POSCUP. 




• ••5* 




LI) 


HL,0PHSC2 


)• starch Display Hodai C/R/L'13 


•lilt 




CALL 


VDLIHE 




MM1 




LD 


A, (SDMOOE) 


»qat aaarch display soda 


•••42 




CALL 


VDCMAII 


idlaplay aaarch dlaplay aoda 


•••43 


| 








••••• 




LD 


BC, 7*254 


1 rltcl 


■MCI 




CALL 


POSC'JR 




•Hit 




LD 


1L.0PRSG) 


I "Print nods: C/M'13 


MWl 




CALL 


VDL1NE 




••Ml 




LD 


A, 1PHH0DE) 


ifat print aodt 


■MM 




CALL 


VDCHAP. 


idap print aodt 


■MH 










•••71 




LD 


ac,c2St 


irlicl 


•••72 




CALL 


POSCUR 




•••7 3 




LD 


HL.0PMSG4 


I 'Output rilt: n/A/c'4) 


•••74 




CALL 


VDLIHE 




•••7» 




LD 


HL.OPNAME 


i!L->output (lit naaa 


mi 




CALL 


VDLIHE 


idsp output (lit naaa 


•••77 


1 








•■171 




LD 


K,l<25< 


irMicl 


•••71 




CALL 


POSCUR 




••••• 




LD 


HL.OPNSCS 


■ ■Output Pllai H/A/C'O 


••••1 




CALL 


VDLIHE 




••••] 




LO 


A, (OPCORO) 


Hat output (lit atatua 


••••) 




CALL 


VDCHAP. 


idap output (11a atatua 


• •••4 










• •••J 




LD 


EC, 14-256 


irllicl 


■MM 




CALL 


POSCUR 




••••7 




LD 


HL.OPHSGt 


I 'Output Hedti C/x'(j 


••••• 




CALL 


VDLIHE 




Milt 




LD 


A.(OKODE) 


7 gee output aoda 


••••• 




CALL 


VDCKAR 


j dip output aodt 


••••1 










• Mil 


OPT 11 


CALL 


OPTPCB 


ilnaat Iroa la(t attain 


• III! 




LD 


• .5 




••••4 




CALL 


OPTPC 


irt>C(OPTCOL>l) 


■MM 




LD 


XL. AM SUED 




••••4 




LD 


1.1 




•••(7 




CALL 


EBLIH1 




■••II 




LD 


A, I 




•Mil 




CP 


■ 




• Ilia 




JR 


Z,0PT«1E 


OP 0PT«1E l( null antry 


• •ill 




LD 


A, ( ANSWER) 




• •112 




CP 


H 




Jill) 




JP 


P.OPTH 


floop 1( not no. 


MM 




CP 


41 




•111; 




JP 


H.0PTI1 


(loop 11 not no. 


••1(4 




SU1 


41 


iconvart to binary no. 


••1*7 




LD 


IHIHSET) ,A 


Itavt In lnaat buffer 


•111! 


0PT41E 


LD 


■ .5 


idlaplay lnaat valua 


Hill 




CALL 


OPTPC 


ir*:c(OPTCOL»l) 


••11) 




LD 


A, (HIHSET) 




••111 




ADD 


A, 41 


■contact to ASCII 


••112 




CALL 


VDCBAB 


idap lnaat 


••11] 
•■114 
















IOPTI2 


• •IIS 

• •114 










I aaarch dlaplay soda IC/R/L) 


• •117 


OPT* 2 


CALL 


OPTPCB 


ir(PEHULN) icl 


• •Hi 




LD 


■ L,0PNG2A 


i'(C)ontlnuoua, (R)tcordor (L)lnt'«3 


■1111 




CALL 


VDLIHE 




••111 




LD 


tvi 




••121 




CALL 


OPTPC 


l(7ic(OPTCOL*l) 


••122 




LB 


RL. ANSWER 




••121 




LD 


• .1 




••124 




CALL 


HLIK1 




M12S 




LD 


A.I 




•1121 




CP 


• 




••127 




JR 


I.0PTI2E 


>)p OPTI2E 1( null tntry 


••121 




LD 


A, (AHSWEP.) 




••121 




RES 


5. A 


i convert to upper cast 


••111 




CP 


'C 




••131 




JP 


I, OPT! 2D 




••1)2 




CP 


'H' 




• •1)} 




JP 


I.0PT12D 




••114 




CP 


'L' 




11115 




JR 


hi,opt*2 


lloop until valid Input 


••1)4 


OPT! 20 


LD 


(SDHODE1 ,A 


nave new aaarch display aodt 


••1)7 


0PTI2C 


LD 


a.* 


rdap aaarch dlaplay aodt 


••1)1 




CALL 


OPTPC 


ir7rc(OPTCOL-l) 


••1)1 




LD 


A, (SDMOOE) 




•1141 




CALL 


VDCHAP. 




••141 
1(142 
















|0PT») 


••14) 
••144 










1 print aoda (C/H) 


••145 


OBI! 


CALL 


OPTPCB 


ir(PEHULH) icl 


••144 




LD 


HL.OPMGJA 


iMClontlnuoua or <H)anual'*3 


••147 




CALL 


VDLIHE 




••141 




LD 


B.7 




■•141 




CALL 


OPTPC 


irliCIOPTCOL'l) 


••15* 




LD 


KL.AMSHEI 




••151 




LO 


■ •1 




••152 




CALL 


KBLIH) 




••15) 




L3 


A.t 




••154 




CP 


B 




••155 




JR 


I.0PTI3E 


UP OPTOE It null antry 


••154 




LD 


A, (ANSWER) 




••157 




«ES 


5, A 


iconvart to uppar caaa 


••151 




CP 


■c 




••151 




JP 


1.0PTI3D 




Mill 




CP 


•H' 




••111 




JR 


HI.0PTI1 


lloop until valid annac 


••143 


OPTOO 


LD 


(PRHOOE) ,A 


latora n.w print aoda 


•114) 


0PT«1E 


LD 


B.7 




••144 




CALL 


OPTPC 


irlic(OPTCOL«l) 


••115 




LD 


A.lPPJtOOE) 




•Hit 




CALL 


VDCHAR 


idlaplay print aodt 


Hill 










••141 








1OPTI4 


• Hi! 










••171 








1 output flit naaa 


••171 


OPT* 4 


CALL 


OPTPCB 


ir(PEHULH) icl 


• •172 


OPT! 4 A 


LD 


B.8 




• •17) 




LD 


C42 




• •174 




CALL 


POSCUR 


ir»ic43 


■ 1175 




CALL 


EHAJtL 


■ araaa to and of Una 


••171 




LD 


NL.OTHAJIE 


Itaap atora file naaa In IETB0B 


••177 




LD 


DE.EEYBUP 




Hill 


OPTUS 


CALL 


APPEND 


laova OPHAME to KETBUP 


11171 




LD 


KL.OPHAHE 




Hill 




LD 


B,24 




••111 




CALL 


IBLIH) 


;qet ntv (lit naat 


••1(2 




DEC 


■ L 




••11) 




LD 


(HL) ,IDH 


iIdh ntadad (or fila optn 


•11(4 




LD 


A, I 




M1IS 




CP 


■ 




• •Hi 




JP 


Z.OPTIIN 


i)P 0PTI4N l( null tntry 


•1117 




LD 


DI.OUTDCB 


lDE->Output (lit DCB 


•111! 




CALL 


CLOSE 


icloaa output (11a 


•Ill* 




LD 


A.'C" 




HIM 




LD 


(OP STAT) , A 


1 output (11a atatua • (C) loaad 


••1*1 




LD 


BL, OPHAME 


iBL->output (11a naaa 


HI 12 




LD 


OE.OUTDCB 


iDC->output (lit DCB 


Mil) 


0PTI4L 


CALL 


APPEHO 


laova output (ila naat to OOTDCB 


• •114 




CALL 


QPHOUT 


lopan output (Ho 


•1115 




LO 


A, (Of STAT) 




HIM 




CP 


•c 




11117 




JP 


Z.0PTI4A 




Hill 




JP 


0PTB4I 




nm 


1 








Hill 


0PTI4K 


LD 


KL.EEYBUP 


, default naaa 


••2*1 




LO 


DE, OP NAME 




••212 


0PT«4Q 


CALL 


APPEND 


laova output (lit naaa (tea KBTBOT to OPHAME 


no 




LD 


IILI.I) 


i avoid nt« Una (tad 


••2*4 




LO 


• ■• 




• •2*5 




LO 


C.42 




•I2M 




CALL 


POSCUR 


irlicl) 

Lining 7 continued 




THE MOST POWCRnM. WORD PROCESSOR AND All PUR- 
POSE COMPUTER PROGRAM AVAI1ABLE FOR THE TRS-80. 

LOOK AT AU THESE FEATURES 

1 . INSERT characters , wonts , lines, paragraphs or othe r II les . 

2. DELETE characttrs, words, Unas, paragraphs. 

3. COLUMNS. CopyArt II can be instructed to print your text trom one to 
six columns. Super easy to use! No complicated commands. Great lor 
doing newsletters, magazine layouts etc. NO MORE CUT AND PASTE! 

4. SORTING. Sort lines of text by any field. Sorts up to 650 items in less 
then 7 seconds. Sort indices, table of contents, names, words or whatever 
in descending or ascending order. Used with CopyArt' s math function it is 
great for small Inventories, Receivables, Payables etc. 

5. Screen widths trom 32-255 characters wide. Screen widths can be 
chanoed to allow formatting your text as you want. 

6. MATH. Built in MATH function for doing calculations on columns or 
rows. Used with the SORT command, CopyArt II can do a small inventory 
of 200-300 items, or keep track of small receivables or payables, general 
ledgers or home financial reports. Super floating point precision up to 32 
digital 

7. 'GRAPHICS. CopyArt has a built in graphics program thai allows in- 
serting graphics within your text. Drawings, graphs, illustrations, car- 
toons etc. may be used within newsletters or company reports. Graphics 
commands include: Plot between points. Circles, Squares, Fill, Erase, 
Draw, Move, Pixel cursor controls and more. 

I. 'GRAPHIC CHARACTERS. CopyArt has a built in graphics character 
generator. Used for typesetting large letters from 3 to 25 times normal 
size! Yes, you can even print characters down the page as well as across. 
Black on white or while on black. 

9. JUSTIFICATION is fully supported. 'Proportional spaced justify is sup- 
ported. 
10. 'SUPER or SUB-SCRIPT. 

II. UNDERLINING. 

12. B0LDF ACTING 

13. 'CHANGE CHARACTER SIZE or PITCH within your document. Charac- 
ter size changes for dot matrix printers with capability. Pitch change lor 
daisy wheel printers with capability. 

14. HELP. Help is available for all the commands at the touch of a key 
while using the word processor. Super for training inexperienced sec- 
retaries. Great reminder for experienced people as well. MENU DRIVEN 
Help for over 45 commands. 



Continues on 
the next page . . . 




COO and Crtdtt Cards 
DUJ. TOU FME to ortJer 

1 -800-528-1 14i 




SIMUTEK 

„« Computer Products Inc. 

c oir- u n a nweecTS inc., aaar i. spcebmt aura., recsea. « asm. Hjtq szs-esti 
DEMin. MSTMUTon. a pmuun/aMuuFACTunin moumns iuviteo 

TnS-W •■■ Script It «ri TM ol ".id* Stuck • Im** carp. 
*lB4)lcat«s prlatar mitt hava capability la ■• liictm 



80 Micro, December 1983 • 205 



Listing 7 continued 






18288 




CALL 


VDCHAR idlsplay output file status 










• B281 






















|0PT»6 


••2(7 
MM 


LD 
CALL 


HL.XEYBUP 
VDLINE 


(display output file nut 


• 8283 








1 output mode (C/M) 










• •285 


OPT)6 


CALL 


OPTPCB I r ( PENULN) : c 1 




c» 














• •211 


JP 


HI,OPT)4E 




• 6287 








••212 


LD 


HL.OFMAHE 




••288 




LD 


B,16 


••213 


LD 


DE.OUTDCB 




••289 






OPTPC irlllC(OPTCOL»l) 


••214 


CALL 


APPEND 


■ move file spec to OUTDCB 


••29* 








M21S 


0PT(4E HOP 






••291 






B,l 










••292 




CALL 


KBLIN3 


1)217 






lOPTM 












• 1294 




CP 


B 


••219 






■output flic status (R/A/C) 




















••221 


LD 


BL.OPMC5A 


I'Olmt, (A)ppend ot (C)loss'*3 










••222 


CALL 


VDLINE 














SB 


B.9 


























a H' 


• •225 


LD 


HL, ANSWER 




• 8381 




JP 


sUMN 










•13(2 


0PT«6D 














••3(3 


0PT«6E 


LD 












••3)4 




CALL 


OPTPC irllic(OPTCOL*l) 










•13(5 
























••231 


LD 


A, (ANSWER) 












••232 


m 


5, A 


■ convert to upper case 










• •233 


:.d 


(ANSWER) ,A 




• •319 
















8)318 








• •236 


CP 


'R' 




• •311 








' 














• •313 

• •314 








• •238 


CP 


•A' 










• •239 


jp 


Z.OPT85A 




••315 














j loop until valid entry 


88316 
























• •242 


CP 


■C" 












• •244 


jp 

LD 


Z.OPT85D 
DE.OUTDCB 


(file already closed 
)DE->output file DBC 


88319 
80328 






























• •246 


JP 


OPT)5D 




88322 
















88323 
88324 






IB-line number 
COPTCOL ;B passed as parameter 


• •248 






)OPT«5R 


OPTPC 


LD 










88325 
• •326 


OPTPC3 


CALL 


POSCUR 


M2M 






lopen output file and reset 
iflle cursor to start of file 
















••252 
• •253 


0PT(5R CALL 
LD 


OPNOUT 
A,(OPSTAT) 


■ open output file 


••328 
••329 






















88336 








• •255 


JP 


Z.0PT6S 


■ loop if error in opening file 






■Inset from Left margin ■ 
















• •258 


CALL 


POSH 


ipositlon file cursor to first record 


••333 


OPHSG2 


DEPB 
DEFB 
DEFH 

•an 
cm 

DEFB 

DEFK 
DEPB 
DEFB 
DEFB 
DEPM 
DEFB 

DF.rn 


■Search Display Node: C/R/L 

'Print Node: C/N 
•3 

'Output Pile Ism: ■ 

• 3 

■Output File: R/A/C 

)3 

■Output Node: C/N ■ 

•3 

•(C)ontinuous. (R)ecord or (L)ine' 

•(Oontinuous or (Manual - 


• •2«( 
••261 

mu 

• •2(3 
WM 
••265 
••266 
••267 

• •268 


JP 

0PTO5A CALL 
LD 
C? 
JP 


0PT)5D 

OPNOUT 

A, (OPSTAT) 

•C" 

URH 


'"loptisA 

■open output file and set file 
iflle cursor to EOF 
■ open output file 

iloop if error in opening file 


••335 
••336 

••337 

■•33a 

••339 
• •34* 

••341 
••342 
••343 


OPNSG3 
OPHSC4 
OPHSC5 
OPHSG6 
OPHC2A 


• •27* 

••271 

• •272 
••273 


CALL 


POSBOP 


iposltion to end of file 


••345 

••346 


OPHG3A 






iOPT>5D 


• •347 
••34> 

6)349 

88)58 
89351 
88352 


OPHG5A 
NSGPF 


Dtn 

DEFB 

DEPH 


"(Rleset, (A)ppend or (C)lose' 

•3 

'Paragraph Format' 


















• 1276 

• •277 


LD 
0PT«5E LD 


(OPCOND) ,A 

•VI 






DEPB 


■Record Format' 
• 3 


89279 


LD 


A, (OPCOND) 




89354 




END 







Program Listing 8. Assembly-language listing ofM3/SRC. 


• 8865 


EXTERN 


PENULN 


■ next to last line on screen (23 or 15) 








• ••66 








• •••1 
••••2 


IH3/SRC VERSION 1.2 




•••67 i 










•••6 9 






icalls to GR (general routines) 


• •••1 

• •••4 






•••71 

•••71 


EXTERN 


BXDEC 




1NINDEX INDEXING PROGRAM 




Ibinary to decimal conversion 


••••5 








EXTERN 


DECXB 


■decimal to binary conversion 


••••6 


iCOPYRIGHT 1983, SOFTSHELL 




•••73 


EXTERN 


DLINE 




• •••7 








EXTERN 


DSPNBR 


idlsplay 5-digit decimal no. (right Justified) 






• •••8 

• •••9 
ami 


N INDEX PSECT 


■begin relocatable program section 




EXTERN 


DSPNBRL 


idlsplay 5-dlglt decimal no. (left Justified) 

i remove leading blanks 

imove cad line file psec to XEYBUF 






•••77 


EXTERN 


FSPEC 






i _______ _ _ 




EXTERN 


GETNPN 


iget HAP file names 


•••12 


PUBLIC ANSWER 




•••79 


EXTERN 


LINE 


■display line (from char in A reg) 


•••13 


PUBLIC BEGIN 


jstart of MINDEX program 






PAC-PS 


■pack (coapress) file spec in fixed table 


•••14 


PUBLIC CHDLFS 


■ cad line file spec (Y/N) 








■parse one file spec 


•■•15 




I indicates whether file spec slso entered 






REC» 


■zero-out 256-byte record 


•M16 




;along »ith NINDEX cad 




EXTERN 


RECBL 


■blank-out 256-byte record 


•••17 
• ••16 
■••19 


PUBLIC KEYBUF 


jKeybuf used to enter NINDEX file spec 




EXTERN 


TAPEHT 


■ "Tap enter to continue' 




icalls to NODII or HODIII 


• ••86 






■GR buffers 


•••21 


EXTERN BOTTON 


iposltion cursor to last line of screen 


••■•8 


EXTERN 


SNAN.SEXT.SPSW 


SDDR isource file table 




EXTERN CLOSE 


1 close file (DB->DCB) 


• ••89 


EXTERN 


INAK.IEXT.IPSW 


IDDR ilndei file table 


• ••24 
•••25 
•••26 


EXTERN CURPOS 
EXTERN DISBRK 
EXTERN DIVIDE 
EXTERN DOSCND 


.•determine cursor pos (coor:BC) 
l disable break (for Nodal II) 
[divide A into HL 
UP to TRSDOS and eiecute command 












•••93 








• •121 


EXTERN ERASEL 


terase to end of line 








■syntax for loading program: 




EXTERN ERASES 


lersse to end of screen 








■NINDEX source file, index flleioptlons 


• ••29 


EXTERN ERRDSP 


iNAP error display routine 


•••96 






■options: 




EXTERN ERROR 


i TRSDOS error msg routine 










89831 


EXTERN HOME 


iposltion cursor to top line of screen 

1 Initialize file (create/open, pos to 1st tec) 

1 (DE->DCB, HL->rec buf) 

UP to TRSDOS 


• 8898 








•1(32 


EXTERN INIT 


88)99 






1 R and N are default values 


88834 


EXTERN JP2DOS 


88181 BEGIN PUSH 


HL 






EXTERN RBCHAR 


iget char (or null) from keyboard 


88182 












idlsplay line pointed to by HL 


8)183 










EXTERN EBWAIT 


iwalt for char from keyboard 


8)1)4 










EXTERN OPEN 


lopen file (DE->DCB, HL->record buffer) 


88185 


CALL 






66839 


EXTERN POSCUR 


iposltion cursor (coordinates in BC) 


HIM 


CALL 








EXTERN READDR 


iread file: direct access 


• 8187 








• ••41 


EXTERN READNX 


■read next record in file 


••1(8 


CALL 






• ••42 


EXTERN VDCHAR 


idlsplay char in A register 


••119 


LD 


BC.CPYPOS 


■copyright notice coordinates (Nod II/III) 








•ma 












.-Initialize video I/O (for Nodel II) 


Mill 










EXTERN VDLINE 


■display line (HL->msg) 


••112 


CALL 










iwrlte next record to file 


••113 


LD 


A,'-" 


■•elect '-• char for LINE routine 










CALL 


LINE 


Idrav dashed line under title 


• 8648 




iHODII/III buffers and I/O parameters 




•1116 
••117 
••118 FN 






■ PNIl 






lINput (source) file DCS 

l Input file DCB Record Length 






■■•51 


EXTERN IDCBRL 


1 LD 








EXTERN IDCBCR 


1 Input file DCB Current Record 


•1119 












ilnput file DCB Last Record 


••12* 










EXTERN IHLLR 


■true last record of source file 


••121 










EXTERN IDCBOS 


l Input file DCB inuii 


••122 












iHAP (Index) file DCB 


••123 












»■— p file DCB Record Length 












EXTERN HDCBCR 


.-Nap file DCB Current Record 


■•125 














• •126 












itrue last record of index file 








■point to next to last line 




EXTERN BDCBOS 


■ Hap file DCB imiui 


M12S 










il/o parameters: 


••129 


CALL 












M1M 












■copyright notice position (52 or 36) 


••131 






l 'Enter name of File to be Indexed or 
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Radio Shack TRS-80™ 
Computers 

At Guaranteed Savings 




from 

Pan 

American 

Electronics 



1117 Conway Ave. 

Dept. EM 

Mission, Texas 78572 

Ph. 512/581-2766 



Telex 767339 

TO ORDER 
CALL TOLL FREE 

800-531-7466 



"AUTHOR 
. AUTHOR'" 

The call for authors is out! 

Wayne Green Books announces a De- 
cember 31, 1983 deadline for submit- 
ting manuscript proposals for the up- 
coming publication list. Ideas for book- 
length manuscripts about any micro- 
computer system or area of electronics 
will be considered. In addition to pay- 
ment and royalties, we offer our distri- 
bution channels and the marketing 
support your book deserves. 

Send proposals or requests for a copy 
of our Writer's Guide to: 

Editor, Wayne Green Books 

Peterborough, NH 03458. 

Or call toll-free 1-800-343-0788. 




MORE REASONS YOU SHOULD CONSIDER 
MOVING UP TO OUR COMPREHENSIVE PROGRAM. . . 

15 SUPER EASY TO LEARN editing features. Logical key choices. 

16. Hyphenation 

17. SPELLING checkers like the 74.000 word Scripsit Dictionary work 

great with CopyArtll. 

18. CHAINING. Chain files together to make books or manuals hundreds 

of pages long. 

19 CENTERING. 

20. HEADERS and FOOTERS. You can even put graphics within headers 
for super page layouts. 

21. PAGE NUMBERING. Page numbers can appear at the top or bottom 
of the page. 

22. DOS COMMANDS from within the editor. Kill files, check free space 
or get directories easily. 

23. CUSTOMIZED PRINTER driver. Since your printer has features that 
other printers don't. CopyArt II will be supplied with the printer driver of 
your choice below. Each printer driver is custom made to provide you 
with commands for each of your printer's tine capabilities. If you have 
more than one printer, order other printer drivers for only $19.95 each. 
Printer drivers are available for: 



Smith Corona Daisy Wheel TP-1 
Brother Daisy Wheel 
C-itoh Starwriters and 
Prowriters all 85 10A, 1550 
PMC Printer 
Centronics 737. 739 
Diablo 620 



•Radb Shack LP IV,V,VL 
VII. VIII and Daisy Wheel II 

• Epson MX-80. MX-80/FT, MX-100 
with or without graftrax. 

• Okidata Microline 80, 82a. 
83a and 84 

• NEC 8023 

OTHERS COMING SOON. Call if you don't see your printer! 
24. Unprotected diskette. Unlimited backups can be made. 
25.MAILIST/MAILMERGE INCLUDED CopyArt II comes with a mailist 
program that stores over 2.000 names on a MOD III diskette These 
names can be sorted by any field and have a special field for your code. 
You can make PERSONALIZED FORM LETTERS that will take the follow- 
ing codes from the mailist and insert them in your text. FIELDS IN- 
CLUDE: Mr. or Ms.. Last name. First name, Business name. City. State, 
up to 9 digit ZIP code and your own special 2 character code. ANY OF 
THESE fields can be inserted within your form letter wherever you want. 
You can print form letters or mailing labels to all the people on your list 
or to specific codes only. CopyArt makes it easy. 



^opydrfl 



Continues on 
the next page . 




COD and Credit Cards 
CALL TOLL FREE to order: 
1-800-528-1149 



■BIMUTEK 

,m Computer Products Inc. 

smmt computer products wc. 4en i. sruewar aura., rucsoa, u asm. laati us-uti 

DEALER. DISTRIBUTOR, i PRINTER/MANUFACTURER INQUIRIES INVITED 

TRS-M and Scrips!) art TM ol R Jdio Shack a Tandy cera. 

"indicates printer mil have capability lo to lunction 



Continued on page 211 
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88282 


PREIN8 LD 


A. 9 




B8132 






I? foe help' 


90283 


LD 


(IDCBRL) .A 


[set record len - 2S6 


90133 


CALL 


VDLINE 


[display message 


00264 


LD 


BC, 7*256*37 


>r Steal 


• •134 








BB285 


CALL 


POSCUR 




II135 


LD 


A, (CMDLPS) 


■•CMDLFS Indicates whether file spec 


00286 


LD 


HL.OOKMSG 


l 'Opened' msg 


• •136 

• B137 
88138 






/was entered after MINDEX on TRSDOS cmd line 
iwas file spec entered on TRSDOS end line? 
lip If file name not entered 


09287 
90288 
00289 


CALL 


VDLINE 




CP 
JR 


NZ,PN»2 


. 




1 PREMAP 


• •139 


j 






00290 










imm 






;file spec entered on cmd line so dsp 


99291 






[prepare HAP index file 


• •141 


LD 


BC, 3*256. 11 




•9292 


PREHAP LD 


HL.KAPBUF 


[HL->index file buffer 


• •142 


CALL 


POSCUR 


ir4:cl2 


99293 


LD 


DE.MAPDCB 


lDE->lndex file DCB 


• •143 


LD 


«,'■' 


.■reset CMDLPS 


90294 


a 


B,( 


[record length - 256 


• •144 


LO 


(CMDLPS) ,A 




00295 


can. 


INIT 


[intialize (create or open) file 


• •145 


U) 


BL.KEYBUP 


.•point to cad line file spec 


• (296 


n 


Z, CMSGOP 


[jp to CMSGOP If index file lr.lt OK 


• •146 


CALL 


VDLINE 


(display file spec 


((297 


MM 


AP 


isave error code 


••147 


LD 


A,(DH 




((298 


HI 


BC, 12*256 


,-rl3:cl 


MM 


CP 


A 


ll (set) 


((299 


BU L 


POSCUR 




••149 


LO 


B,l 


I (so len > •) 


((3(( 


LD 


BL.HSCMER 


['Error in opening index file' 


MIS* 


JP. 


FN(4 




((3(1 


CALL 


VDLINE 


[dsp error osg 


1(151 
••152 








((3(2 
((3(3 


LD 

CALL 


BC, 13*256 
POSCUR 


;tl4:cl 


FNI2 LO 


BC. 3*256*11 


[get file spec 


•1153 


CALL 


POSCUR 


ir4:cl2 


(0384 


M* 


AP 


.-restore error code 


••154 


CALL 


ERASEL 


lerase to end of line 


00305 


CALL 


ERRDSP 


,-dsp TRSDOS error msg 


••155 


LD 


HL.KEYBUF 


ipoint to KEYBUF to hold tile spec 


00306 


LD 


BC, 14*256 


[rlS:cl 


• •156 


LD 


B,51 


i max file spec • 51 characters 


BB307 


CALL 


POSCUR 




• •157 


CALL 


KBL1NE 


(enter file spec 


88108 


CALL 


TAPENT 


[Tap enter key to continue 


••158 
B0159 








B83B9 
00310 


JP 

CMSGOP LD 


FN(1 

BC, 8*256*37 


[loop back and get file spec 
[index file open OK 


PN04 PUSH 


AF 


;now process file spec 


••161 


PUSH 


BL 




08311 


CALL 


POSCUR 


ir9:C38 


• •161 


LD 


BC, 5*256 




08312 


LD 


HL.OOKMSG 


1 'Opened ' msg 


••162 

88163 
• •164 


CALL 
CALL 
POP 


POSCUR 
ERASES 
HL 


, r6icl 

(erase to end of screen 


09313 
99314 
88315 


CALL 


VDLINE 








.•add header to MAP Index file 


••165 


N ? 


AP 




00316 






.-header format: 


••166 








0(317 






[ bytes (-19: MINDEX1.2.. 


• •167 


CP 


BRXKEY 


(was <break> entered? 


88318 






[ bytes 48-41: file spec. 


••168 


JF 


Z.HNEMUl 


(if so jp to mini-menu 1 


((319 










81169 


LD 


A.(KEYBUF) 


iget first char entered 


(B320 


LD 


A.BDH 




••17) 


CP 


•DH 


[was first char (DH (i.e. null entry)? 


BB321 


LD 


(SDDR) .A 


[set source file drive no. to (DB (null) 


••171 


J» 


..•'..'. 


(loop if null entry 


SB322 






[Since header never specifies disk delve 


••172 


I_~ 


HL.KEYBUF 


(point to file spec buffer 


((323 






,-of source (lie 


••173 


CALL 


BATBKI 


(bypass leading blanks 


((324 


IB 


HL.SNAH 


lHL->source file spec table 


••174 


LD 


A, (HI) 


(load A with first non-blank char 


(•325 


LD 


DE.HPN 


[DE->header file name buffer 


••175 


CP 


■7' 


.-was ■?■ entered? 


••326 


CALL 


PACKFS 


[pack header with source file spec 


• •176 


jp 


Z.HHELP 


(if so )p to help screen 


BB327 






[space compress file spec In process 


••177 


i 






86328 








8)178 


LD 


HL.KEYBUF 


(point to file spec buffer 


00329 


LD 


HL.MAPBUF 


,-HL->lndex file buffer 


••179 


CALL 


GETMFN 


(get file names 


08330 


CALL 


RECB 


.-zero out Index file buffer 


88188 


JR 


Z,PNOK 


[jp to FNOK If file spec syntax OK 


BB331 


LD 


HL.HSEC 


[header sector 


88181 


LD 


BC, 8*256 


[file spec syntax incorrect 


99332 


LD 


DE.MAPBUF 




89182 


CALL 


POSCUR 


,-r9:c0 


90333 


LD 


BC.5B 




• •183 


LD 


HL.FNEMSC 


[point to file name error msg 


00334 


LIU P. 




.•move header to MAPBUF 


•8184 


CALL 


VDLINE 


[display file name error msg 


00335 


LD 


DE.MAPDCB 




• ■185 


CALL 


IAPENT 


['Tap enter key to continue' 


00336 


CALL 


WRITNX 


[write index header sector (sector () 


• •186 

• 0167 


JP 


FN(2 


[loop back and get file spec again 


00337 
8B338 


JP 

LD 


NZ , ERROR 
BL.MAPBUF 


ijp to erro routine if error 

[HL->index buffer 

[initialise index buffer to ('• 


• •188 

• 1169 
81198 


PNOK NOP 
CALL 
JP 


CIOPT 
NI, OPTERR 


[file names ok 

icall command Interpreter options routine 

(3P to options error routine if error 


88339 
• 8348 


CALL 


RECB 


••341 


LD 


BC, 256*18 


•rll»01 


• •191 








••342 


CALL 


POSCUR 




• •192 


LD 


BL,5mAM 


[BL->source file name 


••343 


LD 


HL.IDXSEC 


['Indexing Sector:' 


••193 
••194 
••195 


LD 
CALL 


DE.INDCB 
PAdCPS 


[DE->source file DCB 

[space compress source file spec 

[and move to source file DCB 


• 1344 

8(345 
BB346 


CALL 


VDLINE 


[dsp msg 






[files open and ready to 


••196 
• •197 
•1198 


LD 


BL.INAM 

DE.MAPDCB 


[RL-> index file table 
iDE-> index file DCB 


((347 
((348 






[Start indexing process 


((349 






[main loop, repeat until file indexed 


99199 


CALL 


PACKPS 


ispace compress Index file spec 


80359 


LOOP CALL 


READIN 


[get next sector from source file 


89299 






[and move to Index file DCB 


90351 


LD 


A.(RDERR) 


[RDERR - error code during read 


99291 








00352 


CP 


28 


[end of file? 


89292 


LD 


BC, 7*256 




90353 


JP 


Z, END IK 


[jp to EDNIN If end of source file 


99293 


CALL 


POSCUR 


ir8:c0 


00354 






(this Is the only EXIT from this loop 


99294 


LD 


HL.MSG89 


ipt to msg 'source file name:' 


00355 


LD 


C.255 


[10 buffer length 


99295 


CALL 


VDLINE 


idsp msg 


00356 


LD 


A.(SCROSS) 


[no. of bytes In current record 


99296 


LD 


BL.INDCB 


iBL->source file DCB 


00357 






[carried over from previous sector 


99297 


CALL 


VDLINE 


[display source file spec 


09358 






[if SCROSS-8 then record did not span sector 


99296 


I 






((359 






[SCROSS never > 255 


9(299 


LD 


BC, 8*256 


ir9:cl 


((369 


LO 


B,A 


[B now has number of bytes in record 


••211 


CALL 


POSCUR 




((361 






[from previous sector 


(•211 


LD 


HL.HSCK 


['map Index file name:' 


((362 


CALL 


HASHWD 


[hash all the words in current sector 


• •212 


CALL 


VDLINE 


idsp above msg 


((363 






[on return from BASBWD lx->byte after 


•1213 


LD 


HL.HAPDCB 


lBL->index file DEC 


((364 






[source file record buffer 


••214 


CALL 


VDLINE 


[display index file spec 


((365 


DEC 


a 


[IX now -> last byte in sre file rec buf 


••215 
•(216 

((217 


JP 


OPFILE 


(jp to section to open files 


((366 
((367 
((36 6 


LD 

POIIfTl CP 


A, (IX*)) 
•DH 


[get last char In SFRB 

[if file indexed in paragraph format, 


OPTERR LD 


BL.OPEHSG 


;HL->options error message 


((218 


CALL 


VDLINE 


,-dsp options error msg 


((369 






[the above tDH is converted to '.' 


((219 


CALL 


TAPENT 


[Tap enter key to continue 


((379 


JP 


Z. NCROSS 


[jp if record does not span sector 


((22( 

9(221 
((222 
8(223 


JP 


FN(1 


[loop back and get file spec 


00371 

• •372 

• •373 
00374 


CP 

JP 


•DB 

Z , NCROSS 

A,B 


[EOR ? 

[jp if record does not span sector 






lOPPILE 










(SCROSS) , A 


[Store In SCROSS no. of bytes In record 


((224 


OPFILE NOP 




/open files 


00375 






[before sector boundary crossed 


99225 


LD 


BC, 11*256 


irl2(cl 


00376 


JP 


LOOP 


[loop until end of source file 


• •226 


CALL 


POSCUR 




• 0377 


NCROSS LD 


A, 8 




• •227 


CKPNAM LD 


HL.INDCB 


[BL->source file DCB 


00376 




(SCROSS) ,A 


(SCROSS-0 means record does not 


• •228 


LD 


DE.NAPDCB 


lDE->index file DCB 


••379 






[span sector boundary 

;0DH at end of source file rec buf 


• 9229 


CFNLP LD 


A, (DEI 


[Check If file spec's different 


• 0380 






9B23B 


CP 


(BL) 




00381 


CALL 


NEWSEC 


[increment BICT 


• •231 


JP 


NJ.DIFFIL 


[not equal ao dif names 


00362 


n 


LOOP 


[loop until end of source file 


•■232 
••233 
((234 


CP 

: sc- 


•DB 

I.SAHTIL 

BL 


[IDB •> same file names 


••383 
••384 
•1385 








' 










[HAS BUD 


((235 


OE 


DE 




••386 

••387 








((236 


J» 


CPNLP 








[hash word subroutine 


((237 


SAHPIL LD 


HL.HSGSFN 


[same file names error msg 


••388 






[hashes all valid triplets in record 


((238 


CALL 


VDLINE 


[dsp error asg 


••389 






[hash algorithm for three chars cl,c2,c3 

(h(cl,c2,c3)- 

1 (lHacl.18ac2.ac3! mod 251 

[where: cl,c2,c3 represent the 1st, 2nd and 


((239 


CALL 


TAPEirr 


[Tap enter to continue 


• •39) 






M24( 

••241 


JP 


FN(1 


[loop back and get file spec again 


1(391 
((392 












• •242 
••243 






[DIPPIL 


• 0393 






1 3rd char of the triplet 






1 ■"-"""-" — 


90394 






> a is the ASCII value of the char c 


80244 






[different file spec for source and index 


09395 






I and upper case is converted to I.e. 
[three 2-byte buffers are uaedi 
|FBYTE-lB»acl 


• 0245 






[now print msg regarding indexing format 


99396 






00246 


DIPPIL LD 


A, (FORMAT) 


[paragraph or record format 


99397 






08247 


CP 


■ pi 


[paragraph format? 


99398 






[MBYTE-10ac2 


88248 


CALL 


Z, PERIOD 


[paragraph format so set proagram for '.' 


99399 






[ LBYTE-ac i 


BB249 


LD 


BC, 9*256 


irlBtcl 


90408 








BB25B 
BB251 


CALL 
LD 


POSCUR 

A, (FORMAT] 




00401 
00402 






[during hash loop reg B is used to store 
mo. of bytes in current logical record 


80252 


CP 


">• 


[paragraph format? 


00403 






[value in B Is transferred to SCROSS 


((253 


JP 


I.FTDSP4 


[if para format jp to appropriate dsp 


00404 






[only when a record spans a sector 
[and a new sector must be read from the 


((254 


LD 


HL, RECK SO 


[pt to record format message 


00405 






((255 


CALL 


VDLINE 


[display record format msg 


0(4(6 






[source file 


((256 


JP 


FTDSP6 


[bypass paragraph format msg 


((4(7 








((257 
((258 
((259 
((26( 

••261 


PTDSP4 LD 

CALL 

PTDSP6 NOP 


HL.PAXHSC 
VDLINE 


,-pt to paragraph format msg 
[display paragraph format mag 


((4(8 
((4(9 
8B41B 


, 




[during hash loop reg C is uaed to store 
[no. of bytes remaining if strb 


PREIN NOP 




[prepare input (source) file 


((411 
((412 


HASHWD LD 
BUFLP LO 


IX.INSUF 
BL, (MBYTE) 


[IX->source file record buffer (sfrb) 
[move MBYTE to HL 


••262 


LD 


A, (DC 




((413 


CALL 


MUBLK 


[multiply MBYTE by 18 
[move HL to FBYTE 


••263 


CALL 


VDCHAJt 


[Skip to next line 


((414 


LD 


(FBYTE) ,BL 


••264 


LD 


BL.INBUP 


[BL->lnput buffer 


((415 


■ 






• •265 


LD 


DE.INDCB 


lDB->source file DCB 


((416 


LD 


HL, (LBYTE) 


[move LBYTE to HL 


• •266 


ID 


B,( 


[recrod length - 256 


((417 


CALL 


MUHLK 


[multiply BL by 18 


••267 


CALL 


OPEN 


[open source file 


((418 


LD 


(MBYTE) ,HL 


imove BL to MBYTE 


00268 


JP 


Z.PREIN8 


[jp to PREIN8 if open OK 


(•419 


1 






•0269 


PUSH 


AP 


isave error code 


00420 


LD 


A, (IX.0) 


iget c3 from sfrb 


• 0270 
•8271 


LD 

CALL 


BC, 12*256 
POSCUR 


[rl3icl 


00421 
((422 






1 '. ' ? 


POINT2 CP 


•DH 


• •272 


LD 


BL.HSGSER 


[Source file open error msg 


((423 






[if file is Indexed In paragraph format, 
[the above BDB Is converted to '.' 


• •273 


CALL 


VDLINE 


[dsp source file open error msg 


((424 






••274 


LD 


BC, 13*256 


irl4:cl 


((425 


JP 


2, ZERO 


[if char • EOR, then A - B 


••275 


CALL 


POSCUR 




((426 


CP 


91 




•1276 


POP 


AT 


[restore error code 


((427 


JP 


P.LCASE 


[jp if lover case - no conversion needed 


M277 


CALL 


ERKDSP 


[display TRSDOS error msg 


((428 


CP 


cs 




• •278 


LD 


BC, 14*256 


[rlSicl 


11429 


JP 


P.L'PCASE 


[jp to UPCASE to convert u.e. to I.e. 


1(279 


CALL 


POSCUR 




• 8436 


CP 


33 


••28* 


CALL 


TAPENT 


[Tap enter to continue 


••431 


JS 


M.ZERO 


ijp if value <33 (i.e. control or ' ') 
[Char with ASCII value from 13 to 64 


••281 


JP 


PN(1 


[loop and get file spec again 


••432 


J» 


LCASE 
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PERRY COMPUTERS 



CALL TOLL FREE 1-800-248-3823 




TRS-80 COMPUTERS 

100% PURE RADIO SHACK 



COLOR COMPUTERS 

26-3003 64K Color Computer 

26-3026 1 6K Color II Non Extended Basic 

26-3027 1 6K Color II Extended Basic 

26-3022 O Dnve Color Computer 

26-3023 1,2,3 Color Drives 

26-3029 O Dnve Color Computer II 

26-3025 Color Mouse 

26-3030 OS-9 With Editor Assembler 

26-3008 Joysticks (Pair) 



LIST 
PRICE 

$ 399.00 
$ 219.95 
319.95 
399.95 
279.95 
399.95 
49.95 
69.95 
24.95 



OUR 
PRICE 
$ 295.00 
$ 149.00 
$ 210.00 
$ 310.00 
$ 230.00 
$ 310.00 
$ 42.50 
$ 59.50 
$ 21.00 




MODEL 100 COMPUTERS 



26-3801 8K Model 1 00 Computer 
26-3802 24K Model 1 00 Computer 
26-3804 AC Adaptor 
26-3805 Accoustic Coupler 
26-381 6 8K Memory Expansion 
26-1409 Printer Cable 
26-1 410 Modem Cable 
26-3809 Briefcase 
26-1 183 Bar Code Reader 



LIST 
PRICE 

$ 799.00 
$ 999.00 
$ 5.95 

$ 39.95 
$ 119.95 
$ 14.95 
$ 19.95 
$ 49,95 
$ 99.95 



OUR 

PRICE 

$ 650.00 
$ 790.00 
$ 5.00 

$ 34.00 
$ 95.00 
$ 12.70 
$ 17.00 
$ 42.50 
$ 85.00 




MODEL 4 COMPUTERS 



26- 1 067 Model 4 1 6K Computer 
26-1 068 Model 4 64K 1 Drive Computer 
26- 1 069 Model 4 64K 2 Drive Computer 
26-1 1 22 64K Memory Expansion 
26-1 1 27 Drive Model 4 Computer 
26- 1 1 63 1 Drive Model 4 Computer 
26- 1 1 30 5 Meg Hard Drive Primary 
26- 1 1 31 5 Meg Hard Drive Secondary 
26- 1 1 23 Model 3 to Model 4 Upgrade 



P 
UST 
PRICE 
$ 999.00 
$1699.00 
$1999.00 
$ 149.00 
$ 649.00 
$ 239.00 
$1999.00 
$1799.00 
$ 799.00 



OUR 
PRICE 

$ 685.00 
$1400.00 
$1585.00 
$ 125.00 
$ 550.00 
$ 205.00 
$1680.00 
$1549.00 
$ 675.00 




MODEL 1 2 & 1 6 COMPUTERS list 

PRICE 

26-4004 Model 1280K1 Drive Computer $31 99.00 

26-4005 Model 1 2 80K 2 Drive Computer $3999.00 

26-6004 Model 1 6B 256K 1 Drive Computer $4999.00 

26-6005 Model 1 6B 256K 2 Drive Computer $5798.00 

26-6006 Model 1 6B 256K 1 5Meg HD Computer $6999.00 

26-601 Model 1 2 To Model 1 6 Upgrade $1 499.00 

26-41 52 12 Meg Hard Drive Primary $2995.00 

26-41 53 12 Meg Hard Drive Secondary $1995.00 



OUR 
PRICE 

$2575.00 
$3150.00 
$4000.00 
$4510.00 
$5950.00 
$1275.00 
$2550.00 
$1990.00 





RADIO SHACK PRINTERS 

26- 1 250 DWP 4 1 Daisy Wheel Printer 
26-1 252 DMP 500 Dot Matrix Pnnter 
26- 1 253 DMP 1 00 Dot Matrix Printer 
26-1 254 DMP 200 Dot Matrix Printer 
26- 1 255 DMP 1 20 Dot Matrix Printer 
26- 1 256 DMP 21 00 Dot Matrix Printer 
26- 1 257 DWP 21 Daisy Wheel Printer 
26-1 1 58 DW II Daisy Wheel Printer 
26- 1 267 DMP 420 Dot Matrix Printer 



UST 


OUR 


PRICE 


PRICE 


$1295.00 


$1100.00 


$1295.00 


$1100.00 


$ 399.00 


$ 300.00 


$ 699.00 


$ 575.00 


$ 499.00 


$ 400.00 


$1995.00 


$1600.00 


$ 799.00 


$ 660.00 


$1995.00 


$1600.00 


$ 999.00 


$ 850.00 



PRINTERS, SOFTWARE & ACCESSORIES 

Epson Printers $ CALL 

Okidata Printers $ CALL 

Gemini 1 0X Printer $ 300.00 

Gemini 15 Printer $ 465.00 

C.ltoh 8510 Printer $400.00 

C.ltoh 1550 Printer $ 670.00 

C.ltohF1040cps $1300.00 

C.ltohF1055cps $1600.00 

Hayes Modems $ CALL 

All Radio Shack Software 15% OFF 



We have been in the Computer Business for over 5 years. 
Our Goal is to satisfy you the customer. Please write or call 
(51 7) 625-41 61 for free price list. 



Complete line of computer accessories. 
Please call for current prices. 



FOR ORDERS 
CALL 1-800-248-3823 



Dept No A-1 H/ NORTH MAIN ST PERRY Ml 4887? 



FOR INFORMATION 
CALL(517)625-4161 



Is your filing system a 

BLACK HOLE? 

Do you file documents, never to see them again? Do you 
spend hours trying to locate the right reference, report, or 
client record? If you do, MAP is the solution to your 
problems. 

The MAP product line includes programs 
that: 

Build and edit text files 

Quickly search free-text files 

Query structured data files 

Create flexible databases 

Sample Applications 

• Office filing systems • Mailing lists 

• Indexing references • Journal abstracts 

• Litigation support • Inventory control 

• Client or patient records • Catalogs 

• Cross-referencing of research notes 

Prices range from $35.00 to $1 95.00. 

Programs for TRSDOS and CP/M operating systems. 

Send for a brochure on MAFs free-text information 
retrieval programs and new database management 
system. 

We will include a brief explanation of our unique signature 
screening technique. 

SOFTSHELL Corporation 

The Small Computer Specialists for Professionals 
P.O. Box 18522, Baltimore, MD 21237 



FLURP- 



Mainframe Accuracy with a Micro 

If you need a multilinear regresssion package with the accuracy of a 
number-cruncher, you need FLURP (Flynn Laboratory's Ultimate 
Regression Package). FLURP has easy data input, disk file archiving, 
and outputs a complete set of statistics. These includeimulitcollinear- 
ity diagnostics, hypothesis testing, an analysis and plot of the 
residuals, and more FLURP is available for 8" CP/M (requires 
MBASIC), TRS-80 I and III, and soon for the IBM PC. 

□ My $99.95 is enclosed rush me FLURP (add $5.00 for foreign 
shipping) 

□ Enclosed is $29.95 for the manual (credit to the purchase of 
FLURP) 

□ Bill company (include purchase order) 

D Charge my Q Visa □ MasterCard 



Card Number 

Name 

Address 

City 



Expires 



State 



Zip 



Signature (credit card orders) 

Mail to: LEDS Publishing Co., Inc., PO Box 12847, Research Triangle 
Park, NC 27709 (919) 477-3690. 

• 156 

Trademarks IBM-IBM Corp FLURP-LEDS Publishing Co . CP/M-Dig.tal Research 
TRS-aO-Tandy. MBASlC-Migosoti 
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■MM 








■ do not convert to I.e. 


• •414 


UPCASE 


OB 


sa 


■convert u.c. to I.e. 


■mm 




JR 


LCASE 




••436 


I EDO 


LD 


A, a 


ic3 not • valid triplet char 


••4)7 


LCASE 


LD 


L,A 




■MM 

••439 




LD 


■ >• 


; load HL with value of character 


NM 








..•tart eector croaa routine 


••441 




LD 


A, | SCROSS) 




M442 




CP 


§ 


l check SCROSS 


••443 




JP 


I, BLIP LP 3 


l)p BDPLP3 If SCROSS-* 


MM 
••445 








■ get c3 dot afrb again 




LD 


A,(IXH) 


MM 


POIHT3 


c? 


IDH 


1 '.' 7 


■•447 








lit file indexed In paragraph foraat. 


••448 








■convert above •DH to * .' 


• •449 




JP 


I.BUPLP2 




■MM 




CP 


•DH 


lEOR 7 


• •451 
••452 




JP 


NI.BUPLP5 










lEOR while SCROSS - 1 


••453 


BUPLP2 


CALL 


NEWSEC 


jahlft aector ct 


••454 




LD 


A,( 




••455 




LD 


(SCROSS) ,A 


ireaet SCROSS - • 


MM 




LD 


• •• 




• •457 




JP 


BUPLP5 




MM 
••459 








net c3 froa afrb again 


BUPLP3 


LD 


'.-'■-} 


••46* 


POINT4 


CP 


IDA 


l'.' T 


••441 








lif file Indexed In paragraph format. 


••462 








■convert above *DH to '.• 


••463 




JP 


I.BUPL3B 




••464 




CP 


• DH 


lEOR 7 


• •465 




JP 


NZ,BUPLP4 




••466 








■EOR while SCROSS • * 


• •467 


BUPL3B 


LT> 


B,( 




••461 




JP 


BOPLP7 




11469 


BUPLP4 


LD 


A, 254 




••471 




CP 


• 


■check rec len 


M471 




JP 


■1 , BOPLP7 


■JP BDTLP7 if <255 


• •472 




LD 


B,8 


■ aet record let) • • 


•1473 




JP 


BUPLP8 


■SCROSS-* ao no need to 


••474 








■ call NEWSEC routine 


•1475 
••476 










B0PLP5 


LD 


A, 254 


• •477 




CP 


B 


■check for rec >255 bytes 


• •47S 




JP 


N2,BUPLP7 




1(471 








■REC >255 bytea 


88488 




CALL 


NEHSEC 


■buap aector ct 


• •481 




LD 


B,8 


■reset rec len - • 


••482 




LD 


A,B 




••483 




LD 


(SCROSS) ,A 


■reset SCROSS - • 


•1484 




JP 


B0PLP8 




•1485 


BUPLP7 


ISC 


B 


■ increment record len 


81486 


BUPLP8 


INC 


IX 


■IX now -> neat byte 
11/17/82 inaert C 


88487 








■•4(8 




LD 


(LBTTE),HL 


88489 
8(49* 




CALL 


CHECKS 


■check triplet for 8 val 
■ on retrun A-8 if any 


88491 








■char in triplet has 8 value 


88492 




CP 


■ 




88491 




JP 


Z.CHECKC 


■if 8 do not hash triplet 


• •494 




LD 


HL.ILBYTE) 


|HL-I**acl 


• 1495 




LD 


DE, (KBYTE) 


■DE-l*ac2 


••496 




ADD 


HL.DE 


;l*8acl.l*ac2 


•■497 




LD 


DE, (PBYTE) 


|DE-ac3 


■1498 




ADD 


HL.DE 


l (I**acl«l*ac2)*ac3 


••4*9 




LD 


A, 251 


■dlviaor 


MM 




CALL 


DIVIDE 


■A baa aodulo 251 reault 


MM1 
••5(2 




CALL 


STORE 


■aet bit in appro, alg. aector byte 


M5»3 


CHECIC 


LD 


A,! 


■check if end of record reached 


•■5(4 




CP 


C 




MM 




RET 


2 


■return if end of record 


8(5)6 




DEC 


c 




■•517 




JP 


BUPLP 


■continue to hash record until 


• •5(8 








■end of record (i.e. C-8) 


• •5(9 
••510 








■ buflp end 


•1511 


HUA18 


■UP 




■ anilt • in A by 18 


••512 








■BC and DE uaed 


••513 








■value returned In HL 


••514 




LD 


H.I 




• •515 




LD 


L.A 




• •516 


HUHL1S 


SOF 




jawltlply • in BL by 1* 


••517 




ADC 


HL.HL 


1BL contains 2*no. 


•»51« 




LD 


E.L 




88519 




LD 


D.B 




••52) 




ADD 


HL.HL 


■HL containa 4*no. 


••521 




ADD 


HL.HL 


■HL contains 8*no. 


• •522 




ADD 


HL.DE 


■HL containa l*«no. 


••523 




RET 






••524 
••525 
















■STORE 


81526 










■■527 
••528 








jatore bit in appro byte 








■of output buffer 


••529 


STOKE 


LD 


IT.MAPBDr 


■set IT to point to index file buffer 


MM 




LD 


E.A 


■ stove hash value to DE 


•1531 




LD 


D,( 




• •532 




ADD 


IY.DE 


■add baah value (DE) to index file buffer 


••533 




LD 


A, (BICT) 


■sector pointer 


• •534 




OR 


(IY*») 




• •535 




LD 


( I V ♦ II ) ,A 




• BS36 




RET 






8(537 
88538 
















l NEWSEC 


••539 










MM! 








mew source file sector so 


•8541 








■rotate BICT bit 


8(542 


NEWSEC 


LD 


A, (BICT) 




••543 




FLCA 






••544 




LD 


(BICT) ,A 




••545 




CALL 


C, WRITER 


■write rec if new aector 


••546 




RET 






•1547 
••548 
















■CHECXI 


••549 
••551 










■check triplet for •'■ 


••551 
••552 
••553 
MSS4 








■if any char in triplet has t value, 








■then triplet is not hashed 








■blanks, EOR, control char give • value 
■ on return »■-.' -> • value 


•1555 


CHECK* 


LD 


DE.8 




••556 




<* 


A 


■carry - * 


••557 




LD 


■L.ILBYTE) 




Mill 




SBC 


■ L,DE 




88559 




JP 


2.VALI 




MM 




LD 


HL, (HBYTE) 




••561 




OR 


A 


■carry - • 


••562 




SBC 


HL.DE 


••563 




JP 


I.VAL8 




• 8564 




LD 


HL, (PBYTE) 




••565 




OR 


A 


■carry - 


•8566 




SBC 


HL.DE 




88567 




JP 


I.VAL8 




••588 




LD 


A.l 




••569 




RET 






••57* 

MS71 


MM 


LD 
■R 


A.I 


itero value for triplet, do not hash 


••572 
•1573 










READIN 


■OP 




■read Input record 


••574 




LD 


DE.INDCB 


■DE->aource file DCS 


••575 




CALL 


READHX 


■ read next aector 


••576 




JP 


I, READOK 


lip if read OK 


• •577 




CP 


28 


■end of file? 


• •578 




JP 


HI, ERROR 


■jp to error routine if not EOR 


••579 




LD 


(RDERR) ,A 


■store EOP code in RDERR 


88588 
•1581 
88582 


READOK 


HOP 












■DSPSNR 
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Listing 8 continued 






MM 

■I5S4 
















idisplay currant sourca (lie aactor no. 


uses 


OSPSNR 


PUSH 


BC 




■•see 




PUSH 


DE 




• 1587 




PUSH 


HL 




■MM 




PUSH 


IX 




MSM 




PUSH 


It 




KM 




LD 


BC.1)*256«18 


irll:cl8 


•»S»1 




CALL 


POSCUR 




••592 




US 


HI, ( IDCBCR) 


I load currant source aactor no. into HL 


M5*3 




CALL 


RXDEC 


■convert binary to ASCII 


■MM 








ion raturn HL->buf with 5 digit ASCII »alua 


■MM 
HSM 




CALL 
POP 


VDLINE 
IT 


.display ASCII value 


■•597 




POP 


IX 




••598 




POP 


HL 




• •599 




POP 


DK 




• •«)• 




POP 


BC 




MSfl 
• 16(2 
(MM 




RET 












(PERIOD 


MM 
•K«5 










raata -.- for paragraph zonae 


■MM 








1*DR la replaced »lth '.' to Indicate 


• •••7 








lend of record 


MIM 


PERIOD 


LD 


HL.POIim 




MM1 




INC 


■L 


ibypasa CP instruction 


■MM 




LD 


(HL),-.- 


1 convert *DH to '.' 


• 1611 




LD 


HL,POIHT2 




• •812 




INC 


BL 


ibypasa CP Instruction 


• •813 




LD 


(HL),-.- 


l convert 0DH to ' . ' 


• •814 




LD 


HL, POINTS 




••615 




INC 


HL 


ibypass CP instruction 


•1616 




LD 


(HL),-.- 


iconvert 0DH to -." 


• •617 




LD 


BL.POINT4 




••611 




IMC 


RL 


Ibypass CP Instruction 


••619 




LD 


(RL) , ' . ■ 


iconvert fDH to -.' 


MM 




LD 


HL.HSECPF 




••621 
•1622 




LD 
RET 


(RL) ,2ER 


■■ark header at byte 12 


••623 
• •624 
















[WRITER 


• •625 

• •626 










■write output rec 


• •627 


WRITER 


LD 


DE.BAPDCB 


iDE->lndas file DCB 


• •628 




POM 


BC 


leave BC 


• •629 




CALL 


WRITNX 


iwrite next aactor 


MfM 




JP 


N» , ERROR 


i]p if error 


••631 




LD 


HL.RAPBUF 


ipt to indai file buffer 


••632 




CALL 


RBC* 


laet ir.de. file buffer to ■•• 


••633 




POP 


BC 


ireatore BC 


••634 




RET 






•1635 
••636 
















I CIOPT 


••637 
•(638 










jcomnand interpreter options routine 


• •639 








iHL -> firat NB char after file spac 


• •640 


CIOPT 


CALL 


EATBNK 


ibypaas blsnks before semicolon 


••641 




LD 


A,(HL) 




•1642 




CJ 


'l ' 


isaaiicolon entered to Bark options? 


• •643 




JR 


HI.CPT2 


tjp if no options 


• •644 




INC 


RL 


ipolnt to next char 


•1645 




CALL 


EATim 


ibypass sny blanks sfter semicolon 


• •6 46 
•N47 


era 


CALL 
LD 


EATBNK 
A,(RL) 


l remove any leading blank* 


••648 




CP 


mi 


1 7 EOR 


••649 




JR 


Z, CPTOK 




•1651 




CP 


' ( t 




MM) 




n 


I.CPT4 




■1652 




KM 


5, A 


iconvert to upper case 


••653 




CP 


'R' 




• •654 




JR 


I.CPTPNT 




••655 




CP 


-p- 




88656 




JR 


I.CPTrRT 




••657 




CP 


'T- 




•»6S8 




JR 


I, CPTECM 




••659 




CP 


'M' 




••66) 




JR 


I, CPTECM 




• •661 




a 


CPTBAD 




••662 


CPT4 


IMC 


RL 




■•663 




a 


1.CPT2 


lloop and continue to process options 


••664 








■ until end of «d line reached 


• •665 










88666 


CPTFRT 


LD 


(FORMAT) ,A 


lload format parameter 


88667 




JR 


CPT4 




88668 


CPTECM 


LD 


(ENDCHD) .A 


I load end command parameter 


BB669 




JR 


CPT4 




80678 










•1671 


CPTBAD 


LD 


A.. 1 


ibad options syntax 


• •672 




CP 


1 


,-NZ (reset) 


••673 




RET 






••674 


CPTOK 


CF 


A 


IZ (set) options syntax OK 


■•675 
00676 




PET 






01677 








INMERUI 


••678 










•0679 


HMEKU1 


■Of 




mini-menu 1 


■KM 








lused to abort program before indexing started 


80681 




LD 


BC. 2*256 


ir3:cl 


00682 




CALL 


POSCUR 




00683 




CALL 


ERASES 


lerase to bottom of acreen 


08684 




LD 


HL.HMIHSG 


I'IDNDEX File, (H)AP or (T)RSDOS' 


00685 




CALL 


VDLINE 




00686 


RRJB1 


CALL 


KBWAIT 


iwait for key to be pressed 


00687 




RES 


5, A 


iconvert I.e. to o.c. 


■■688 




C? 


-I- 


I-I- entered? 


01689 




JP 


Z.PM1 


.-start again and get file spec 


006 91 




CP 


■«• 


l-M- entered? 


01691 




JP 


Z.EMDIN5 


I )p to TRSDOS and load RAP 


80692 




CP 


"T- 


I -T- entered? 


01693 




JP 


Z.JP2DOS 


Ijp to TRSDOS 


00694 




JR 


HHU1 


lloop until I,M or T entered 


0069S 


HN1MSG 


DEFH 


'(Ilndex File 


, (K)AP or (T)RSDOS' 


80696 




Dlil'U 


3 




00697 
00698 










MHELP 


LD 


BC.6'256 


l»ini-help screen 


10699 




CALL 


POSCUR 


ir7scl 


■ )7«l 




LD 


HL.HHSG2 


idisplay help msg's 


••7(1 




CALL 


VDLIME 


jasq's are at end of this routine 


■•7(2 




LD 


A, tOH 




■1713 




CALL 


VDCRAR 


■skip line 


••7(4 




LD 


HL.HRSG4 




• •7(5 




CALL 


VDLINE 




••716 




LD 


A, SDH 




• 0707 




CALL 


VDCHAR 


-•kip line 


• ■7*8 




LD 


A, MR 




80789 




CALL 


VDCHAR 


lakip line 


00718 




LD 


HL.HHSG6 




00711 




CALL 


VDLINE 




00712 




LD 


HL.HMSGB 




00713 




CALL 


VDLINE 




0)714 




LD 


B,PENULN 


inext to bottom line 


••71 S 




H 


C,l 




0»716 




-ALL 


POSCUR 


ir23:cl Hod II, rlSiCl Nod III 


••717 




CALL 


TAPEMT 


iTap enter to continue 


••718 




JP 


FN* 2 


i ip back and get file apec 


■•719 


HMSG2 


DEFH 


•Formt: SOURCE FILE. INDEX FlLEiOPTIONS ' 


••72* 




DEFB 


IDH 




••721 


HKSG4 


DEFH 


-Only the sou 


rce file apecif lcatlon la required- 


• 8722 




DEFB 


■DR 




••721 


HMSG6 


DEFM 


-Optional R - 


record format; P - paragraph format- 


80724 




DEFB 


BDH 




• B725 


HMSG8 


DEPK 


H- 


return to NAP Neater Nenui T • return to TRSDOS- 


007 26 




DEFB 


• DH 




0*727 
••720 
















lEMDIN 


MTU 

■•73* 










lend input file 


••731 


EHDIH 


CALL 


WRITER 


istore last algnature aector 

Listing 8 continued 



NOW ONLY 
$99.00 



Continued from page 207 



WILL CHAH6E 
Y0UTHHK 
YOUR 



26. SIMPLE CURSOR commands. Simply use the arrow keys to move 
your cursor around the text. The screen will scroll both vertically and 
horizontally. Shift arrows take you to the beginning or end instantly. 

27. Hi-Resolution graphics supported. 

28. COMPLETE MARGINS CONTROL. You tell CooyArt II what margins 
you desire. You can even change margins within the same text. You may 
also have parts of your text with 2 columns, some with one etc. It's 
super easy to use. 

29. BASIC PROGRAMS can be edited easily. CooyArt is really useful for 
inserting graphics within quoted strings to give your programs super 
animation without the hastle of calculating the CHRS of the graphics! 

30. VISICALC files can be loaded into Copy Art II to be manipulated 
easily. Great when you want to accompany your Visicalc reports with 
written reports, GRAPHS and BOLDFACING etc. Visicalc reports up to 
255 wide can be loaded. 

31 . SPECIAL SCRIPSIT FILE LOADER. Allows you to load your old Scrip- 
sit files without having to save them in ASCII. Copyart will also load 
Pencil files and other normal ASCII files. 

32. Similar to Scripsit. If you have used Scripsit, you can usa Copy 
Art in minutes. 

33. CONTROL CODES. Lets you insert special printer control codes in 
your text. CODES between and 255. 

34. BLOCK MOVE. Simple and powerful block move. Lets you move 
paragraphs or lines of text around easily. No complicated marker set- 
tings required. 

35. FIND/REPLACE/REPEAT. Lets you find a string of characters and 
replace them with any other string of characters up to 20,000 times! 
WILDCARD search also supported. 

36. Professional Manual in easy to understand English. 

Copyart II requires a TRS-SO Model I or III, (or PMC-80 or LNW), 48k 
and 2 disk drives with Newdos-80, Ldos, Multidos, Dosplus or TRSDOS. 
Double density disk drives recommended for the Model I. 



^oiryjrHT"*^ 



DOES IT 



PLEASE SPECIFY which COMPUTER and PRINTER 
you have when ordering. 

Copyart 11 with one printer driver 99.00 

Additional printer drivers 19.95 each 



COD and Credit Carts 

CALL TOLL FREE to order: 

1-800-528-1149 

Or send check or money 

order to: 




SIMUTEK 

Computer Products Inc. 



SIMTH COMPUTE* PMJBBCTS MK. , 4SST E. SKf SWAY BtVB., TBCSM. U MTU. (MS) SZS-KMI 

DEALER. DISTRIBUTOR. I PRINTER/MANUFACTURER INQUIRIES INVITED 

TRS-SO ind Scripsil arc TM ol Radio Shack i Tandy car*. 

■Indlcales printer mull havt capability to do Unction 
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Listing 8 continued 








• •784 








ibyte label purpose 




































••7 86 








,-H-ll >•:■■■■ 




■■732 




u> 


DE.INDCB 




••7 87 








i 11-11 HSECPF forest: IDS rect 


rd 
































lip it .tror 
■DE->lndex file DCB 












e use) 


••7 35 




u> 


DE.HAPDCB 










































OP U «rror 


































• 6739 










88794 


































16741 




J? 


















96742 






















99743 




JP 


DORCND 


ijp to TRSDOS and execute cmd 


88799 
88888 












96745 
















iHINDEX (M3) messages 




96746 
• 6747 
66748 










68891 
68882 
88893 


MSGSFN 


DEPM 
DEPM 


•Source and Ind 
■ different nae 














ex File must have' 










ibuffere used by M3 






















M7H 

• 6751 
••752 


ANSWER 


DEPB 


f 


.-general purpose variables 

lone byte key In variable (Y/N etc) 


99865 
69866 
• 8867 


DSPRD 


DEPB 
DOT 


• DH 

'READ COMPLETE 






■•753 
■ •754 








■present In public or tbere will 


(98(9 


TITLE 


dot 


•MAP INDEX PROGRAM Version 1.2' 




• •755 


CMD LPS 


DEPB 


t 
















■ •7 56 






















• •7 57 






















••7 56 


EMDCDD 


ZltB 


I 
















••7 59 






I 


j indexing format (R-record. Papers) 
lused by H INDEX for file spec buffer 
■precautionary EOR 














• •76* 

• •761 


IEYBUP 


tan 


39 


• •816 




DBF* 


• DH 






••7(2 
• •763 








• •818 




POT 


• DH 














• •764 


PBYTE 


oan 


9 










'Opened' 






••765 


MBYTE 




| 


,-hash value of middle byte of triplet 














• •766 


LBYTE 


DEFW 


1 














••767 


SCROSS 




















66768 
66769 








■if • then sector boundary is not 


88824 




DOT 


3 






88778 
















•Paragraph Form 














lis equal to the no of bytes in record 














68772 




















88773 








iblt points to sector (8 to 7) 














88774 








88829 






'Error in Optii 


is Code' 




66775 










88838 




DEPB 


•DH 






68776 


RDEFR 


DF.FB 


g 




8683" 


NSGSER 


DEPM 


'Error in opem 


ng Source Fill; ' 




86777 


INBUF 




















88778 




DEPB 


:»•: 
















0877S 


NAPBUF 


DEPS 


256 


lindex file buffer 








• DH 












• DH 


iprecautlonsry EOR for HAPBUP 












6»781 
• •782 








88836 
89837 
••839 

88839 




DOT 


'Indexing Secto 
3 












[HEADER buffer 














END 


BEGIN 









Program Listing 9. Assembly-language listing of S3 /SRC. 


((■■5 

•••86 


EXTERN 
EXTERN 


OPEN 
OPINIT 


■open file (DE->DCB, HL->record buffer) 
■open and initialise file 


Ln • 








88887 






) (DE->DCB, HL->record buffer) 


Source 


LI no 




88688 


EXTERN 


POSCUR 


■position cursor (coordinates ln BC) 










•••89 


EXTERN 


POSEOF 


■position to end of file 


••••1 


IS3/SRC VERSION 1.2 




• 1(91 


EXTERN 


POSN 


■position to record ln file 


• ••82 

88863 


lJun 15, 1983 






89891 
88892 
88893 


EXTERN 
EXTERN 
EXTERN 


PRINIT 
PRLINE 
PRSCN 


i initialise printer 

■print line (HL->buf, B-no. char, C-end cher) 

■print entire screen 


88664 


(SEARCH INFORMATION RETRIEVAL PROGRAM 


• •••5 


IMAIN ROUTINE 






88894 


EXTERN 


PRTBLN 


■print last line of text 


99986 
89987 


1 COPYRIGHT 1983 


, SOPTSHELL 


CORPORATION ALL RIGHTS RESERVED 


99895 
99896 
8(897 
88898 
86699 


EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 


PRTREC 
READDR 
READNX 
SCRPRO 
SETILR 


■print current record 

■read filei direct access 

■read next record ln file 

■set scroll protect line (A-line no.) 

■set INLRR to true laat record 


• •••8 

00089 


SEARCH PSECT 




Ibegln relocatable program section 


•••18 






ipebllc routines 


•••11 








((1(8 


EXTERN 


SETHLR 


■set mapllr to true laat record 




8681: 


PUBLIC 


HENU(2B 


iminl-menu 


((1(1 


EXTERN 


STMEND 


■store top of memory ln MEMEND 


• ■•13 


PUBLIC 


OPNOUT 


lopen output file 


((1(2 


EXTERN 


VDCHAR 


■display char in A register 
■clear screen 


•■•14 


PUBLIC 


OUTREC 


iwrite record to output file 


••1(3 


EXTERN 


VDCLS 


••(15 


PUBLIC 


READIN 


iread input (source) file record 


••1(4 


EXTERN 


VDINIT 


■initialise video I/O (for Model II) 


• ••16 








89185 


EXTERN 


VDLINE 


■display line (HL->mag) 


•••17 






.-public variables 


(•1*6 


EXTERN 


WR1TNX 


■write next record to file 


89618 








■(1(7 |. 

89198 








■■•It 


PUBLIC 


ANSWER 


il byte switch 








■■•2* 

■••21 


PUBLIC 
PUBLIC 


BACXSP 
BEGIN 


I backspace through file routine 
.-start of SEARCH program 


•(119 
••lit 


EXTERN 


IUDCB 




■ input (source) file DCB 


• ■■22 


PUBLIC 


CPILE 


■current file name 


Mill 


EXTERN 


IDCBRL 


■Input file DCB Record Length 


• ••23 


POBLIC 


CMDLPS 


■cmd line file spec (Y/N) 


••112 


EXTERN 


IDCBCR 


■Input file DCB Current Record 


• •■24 






■indicates whether file spec also entered 


••113 


EXTERN 


IDCBLR 


■Input file DCB Lest Record 


■■■25 






■along with SEARCH cad 


• •114 


EXTERN 


INLLR 


■true last record of eource file 


••■26 


PUBLIC 


CODF 




• •IIS 


EXTERN 


I DC BOS 


■Input file DCB iiiixix 


• ••27 


PUBLIC 


EOF 


■end of file switch 


• •lit 


EXTERN 


HAPDCB 


■map (index) file DCB 


•••28 


PUBLIC 


INBUF 


■input (source) file record buffer 


••117 


EXTERN 


MDCBRL 


iMap file DCB Record Length 


•••29 


PUBLIC 


INBUFE 


■last byte ln Input record (256th) 


• •118 


EXTERN 


HDCBCR 


■Nap file DCB Current Record 


08931 


PUBLIC 


INBUFU 


■byte after INBUFE 


• (119 


EXTERN 


HDCBLR 


■Map file DCB Last Record 


•••31 


PUBLIC 


REYBUF 


Ikeybuf uaed to enter HINDEX file spec 


99129 


EXTERN 


MAPLLR 


■true laet record of Index file 


• ••32 


PUBLIC 


LSTSEC 


1 


99121 


EXTERN 


MDC80S 


■Map file DCB xxxiixxx 


• ••33 


PUBLIC 


LINENR 




9(122 


EXTERN 


MEMEND 




• ••34 


PUBLIC 


MAPBUP 




88123 


EXTERN 


OUTCHR 


■record buffer (1 byte) for output file 


• 8835 


PUBLIC 


MAX MAP 




6(124 


EXTERN 


OUTDCB 


■output file DCB 


■ ••36 


PUBLIC 


NX THAT 




((125 


EXTERN 


PRTBUF 


■printer buffer (88 char) 


• ••37 


PUBLIC 


OP NAME 


■output file name 


88126 


EXTERN 


SORLN 


■ start of record line no. 


• •838 


PUBLIC 


PARPOR 


■paragraph format routine 


8(127 


EXTERN 


STMAP 


■start of MAP Index file (always last byte 


•••39 


PUBLIC 


RECFOR 


■record format routine 


88128 






■of SEARCH program) 


98840 


PUBLIC 


MODE 


■display or list mode 


68129 






1 


• ••41 


PUBLIC 


NINSET 


mo. of spaces for inset 


96138 






■I/O parameters: 


•••42 


PUBLIC 


NXTREC 


■absolute position of next record 


68131 


EXTERN 


ARROWD 


■down arrow 


• ••43 


PUBLIC 


OPCOHD 


■output file status (0, R or A) 


((132 


EXTERN 


ARROW. 


■left arrow 


•••44 


PUBLIC 


OF NAME 


■output file name buffer 


(•133 


EXTERN 


ARROWR 


■right arrow 


•••45 


PUBLIC 


OPSTAT 


■output file status (Open or Closed) 


((134 


EXTERN 


ARROWU 


■up arrow 


96946 


PUBLIC 


OHODE 


■output mode (C or H) 


((135 


EXTERN 


BRXKEY 


■break key velue 


• ••47 


PUBLIC 


PRMODE 


■print mode (C or M) 


((136 


EXTERN 


CPYPOS 


■copyright notice position (52 or 3() 


•••41 


PUBLIC 


PS EOR 


■pseudo EOR char (if para format then • '.' 


((137 


EXTERN 


PBJtULM 


■next to last line on screen (23 or IS) 


•••49 






1 if rec. format then • (DB 


((138 


EXTERN 


SWIDTH 


■screen width (89 or (4) 


••151 

•■■51 


PUBLIC 
PUBLIC 
PUBLIC 


■ECBUP 
SDMODE 
SINSET 


■record buffer (record found during search) 
■search-display mode 
■storoge for inset value 


((139 ■ 

•6148 ■- 








•■■52 


■■141 






■calls to GR (general routines) 


(••S3 


PUBLIC 


SPWORD 


■space or word 


M142 










•••54 






1 


••143 


EXTERN 


APPEND 


■append on string to another 


■■■55 






■public messages 


•(144 


EXTERN 


BXDEC 


■binary to decimal conversion 


• 9956 








((145 


EXTERN 


DECXB 


■decimal to binary conversion 




(••57 


PUBLIC 


MSGEOP 


1 'End of Pile* msg 


•1146 


EXTERN 


DLINE 




•••58 
•••59 
89969 
(((61 


PUBLIC 


SEAMSG 


■'Searching* msg 


••147 
••148 
••149 

((159 


EXTERN 
EXTERN 
EXTERN 


DSPNBR 

DSPNBRL 

EATBNK 


■display 5-dlglt decimal no. (right justified) 
■display 5-digit decimal no. (left Justified) 
■remove leading blanks 






■calls to HOOII or MODIII 








EXTERN 


FSPEC 


■move cmd line file psec to KEYBUP 


(((62 


EXTERN 


BOTTOM 


■position cursor to last line of screen 


((151 


EXTERN 


GETMPN 


■get MAP file names 


((((3 


EXTERN 


CLOSE 


■close file (DE->DCB) 


((152 


EXTERN 


LINE 


■display line (from char ln A reg) 


99964 


EXTERN 


CURPOS 


{determine cursor pos (cooriBC) 


(8153 


EXTERN 


PACKFS 


■pack (compress) file spec in fixed table 


(((65 


EXTERN 


DISBRK 


1 disable break (for Model II) 


8(154 


EXTERN 


PARSEF 


■parse one file spec 


99966 


EXTERN 


DIVIDE 


■ divide A into HL 


88155 


EXTERN 


REO 


■zero-out 25(-byte record 
■blank-out 25(-byte record 


88867 


EXTERN 


DOSCMD 


ijp to TRSDOS and execute command 


88156 


EXTERN 


RECBL 


(((68 


EXTERN 


ERASEL 


■erase to end of line 


(•157 


EXTERN 


TAPENT 


■'Tap enter to continue' 


86869 

99070 


EXTERN 
EXTERN 


ERASES 
ERRDSP 


l erase to end of screen 
■MAP error display routine 


09158 |- 








• •159 






■GR buffers 


(••71 


EXTERN 


ERROR 


■TRSDOS error msg routine 

■position cursor to top line of screen 


• 8169 








• ••72 


EXTERN 


HOME 


••161 


EXTERN 


SNAM.SEXT 


SPSW.SDDR isource file table 


•••73 


EXTERN 


mi 


■lnltlallxe file (create/open, pos to 1st rec) 


••162 


EXTERN 


INAM.IEXT 


IPSW.IDDR ilndex file table 


•••74 






j (DE->DCB, HL->rec but) 


••163 


EXTERN 


ONAM.OEXT 


OPSW,ODDR 


•••75 


EXTERN 


JP2DOS 


HP to TRSDOS 


••164 ■ 








•••76 


EXTERN 


KBCHAR 


■get char (or null) from keyboard 


••165 l- 








•••77 


EXTERN 


RBINIT 


■initialise keyboard (Hod II) 


• 9166 






■calls to S3DSP display routines 


•••78 
• 8979 


EXTERN 
EXTERN 


XBLIN3 
■BLINE 


■get line from keyboard and end with (3 
■get line from keyboard and end with (DH 


••167 

99168 


EXTERN 


BY-JPDS 


■bypass up-down switch 
■list routine 


• ((•( 


EXTERN 


IBUAIT 


■wait for char from keyboard 


••1(9 


EXTERN 


LIST 


((((1 


EXTERN 


KEYIN 


■get search key(s) form keyboard 


••171 


EXTERN 


DSP 


■display current record on CRT 


(((82 
(((83 


EXTERN 


HOVELN 


■move line from screen to buffer 
■HL->buf, D-no. char, BC-cursor coor 


••171 l— 






••172 






■calls to S30PT options routine 


(••84 


EXTERN 


NEWLN 


■role screen and pos cur to next to last line 


• •173 
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TRS 80* 

Model I or III (wO 



Music at your fingertips 

for all ages 



also available 

Scrip Saver 80 

Relocates end of file 
marker lo recover 
damaged SCRIPSIT* 
documenls:Mod.lll disc 




EUITRR 
PRIfTlER • flD 

Pitch pipe Tuning Chord exercises 

Chord menu Beginner songs Music A-Z 



* TRADfMARK Of TANDY CORP. 



GUITAR PRIMER-80 (tape)*. $14.95 

Scrip Saver 80 (tape)* ~_~_V_~_1~ ~ I* 12.95 

OUTSlDt CONTINENTAL USA OR COD ADO $3.00 ~ Pif ASE SPKlFV 
• SOTH TAPES Will TRANSFER TO DISC MODEL lor III 

■Al. • . \ Check^Money Order#Visa 

C^OUthbavV Master Charge#COO " 42 

Cfi ^/£ ^^.a 10 ° Milbrae Ave. Suite 3 P.O. Box 969 



Milbrae, ca 94030 



(415)6977639 



BUSINESS SOFTWARE 



General Ledger $99.95 

• Customize financial statements 

• Almost unlimited storage capacity 

• Income statement by department 



Accounts Receivable $99.95 

Payroll $89.95 

Loan Amortization $39.95| 

Requires Model III or IV, 48K, 2 drives and 80 col printer 



Tax Package(s). . .$39.95/ea. 

Save time, print all forms & schedules 
• 4 Packages offered • incl. Corp. tax 
Save client on disk • Triple output 
FREE PLASTIC OVERLAYS - FORM 1040 mm. - 
48K Mod 1, 3, & 4, 1 dr & 48K Apple II + *"* 
For more into call (3 1 2) 862 453 1 "^ 



k*A 



SOfTWARE 



itu mm) IN 4fVt?0 




AN OPTIMIZING 
AND 




FAST LOAD LIBRARIES- 

COMPILED COOC CAN BE STORED IN 
RELOCATABLE HUB 

INTERPRETER: 

OVER 126 FUNCTIONS NMPLEMCNTCD IN 
BABE MTIRHRETtR. 

DOCUMENTATION: 

THE MANUAL IS OVER TOO RACES COVERlNC 
ALL ASPECTS OF THE SYSTEM NUMEROUS 
EXAMPLES OF EACH FACILITY ARE INCLUOEO 

SUPPORT SOFTWARE: 

LfTTLt META- TRANSLATOR WRITING SYSTEM 
• A LISP PROGRAM WHICH PERMITS YOU 
TO SPECIFY THE SYNTAX OF A RROORAMMO 
LANOUAOE AND HOW IT Bl TO BE INI fcHPHtTEU 

REQUIREMENTS: 



ORDERING: 



SYSTEM MANUAL «30 
COMPLETE SYSTEM «H> 
irTTLE META MANUAL ONLY ...•« 
UTTLE MCTA TRANSLATOR ..*40. 
VISA and MASTIRCARD 
PLEASE INCLUOE E.XPIRAT ION DATE and CARD No 

., FAR WEST SYSTEMS. SOFTWARE, INC 
W/ PO. BOX 6S82, PALO ALTO 84305 
(41S)MT-0900 



* A MAGICAL INTRODUCTION * 

TO COMPUTING. 



Computer v 

CARNIVAL has arrived, with 60 easy-to-use TRS-80 Level II BASIC 
programs for children of all ages. Characters like Sugar Louie and Madam Zelda 
will help your child expand his or her creativity and develop keyboard skills through 
games, puzzles, and educational quizzes. 

COMPUTER CARNIVAL by Richard Ramella features: 

•LARGE, READABLE TYPE 
•SHORT, EASY-TO-TYPE PROGRAMS 
•SPIRAL BINDING 

To make the adventure even more 
ijoyable, take along CARNIVAL 
COMPANION, a ready- 
to-load cassette that lets your 
^children spend more 
time playing and 
less time typing. 




COMPUTER 

CARNIVAL 

><*>k only] BK7VH9 $16.^7 COM- 1 

PUTER CARNIVAL nd CARNI-1 

'VAL COMPANION(k>ok and cassette, 

CC7389 $24.97. Add $2.lX> shipping 

and handling. Dealer Inquiries invited 

(all TOLL-FREE 1-800-258-5473 

WAYNE GREEN BOOKS, 
PETERBOROUGH. NH 03458 

JCOM PUTER CARNIVAL 
nd CARNIVAL COM- 
PANION (book and 
cassette) CC7W $24.^ 
COMPUTER CARNIVAL^ 
(book only) BK7389 $16.^7 
(include $2.00 per order tor shipping 
and handling charges) n PsnaavEncfc 
DMC D VISA D A.MkXOrJ/ 

Entra 



MC Bank/ 



Vl I, • 



* A WAYNE GREEN PUBLICATION 



Photocnp\ of coupon u 
accepUblc lot oidetmg 



TRS-flO to .i iratVmirL ••! ih, R.iiik> Shack Jnramn .•! Tandi Corp. 



33DB8C 
i PS ddivcry it ampfcif 

tfnxf .vidu-*s i* pr>ivi<lcvi. 



See Usl ol Advertisers on Page 291 
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Listing 9 continued 



• •174 

• •175 

• •176 
••177 

• •178 

• •179 

• •IBS 

• •181 

• •182 

• •183 
•1184 

• 1185 

• •186 
••187 

• •188 

• •189 

• •191 

• •191 
••192 
••193 

• •194 
••195 
••196 
••197 
••198 

• •199 

• •288 
88281 
88282 
81283 
88284 

• •215 
88206 
••2)7 

• •218 

• •219 

• •211 

• •211 
••212 
••213 

• •214 
••215 
••216 
••217 

• •218 
••219 

• •221 

• •221 
88222 

• •223 

• •224 

• B225 
88226 

• •227 
••228 
••229 
••231 
•1231 
••232 
••233 

• •234 
••235 
11236 
••237 
••238 
••239 
88248 
•1241 

• •242 
•1243 

• •244 
81245 

• 8246 
88247 
••248 
88249 
80258 

• •251 
••252 

• •253 

• •254 
••255 

• 1256 
•1257 

• •258 

• •259 

• •261 

• 1261 
••262 

• •263 

• 1264 

• •265 

• •266 

• •267 
••268 
8)269 
••271 
88271 
88272 

• •273 
••274 
••275 

• •276 
••277 
••278 
11279 

• 8288 
••281 
11282 
••283 
••284 
••285 
88286 
89287 
88288 
88289 
88298 
88291 

• 8292 
88293 
80294 
88295 
•8296 
••297 

• •298 
••299 
MM I 
••311 

• •382 

• 9383 

• •384 

• •385 
••386 
89387 
88388 
88389 
88319 
88311 
88312 
88313 
88314 
88315 
88316 
88317 
08318 
••319 

• •321 

• ■321 
••322 
••323 

• •324 



EXTERN OPT 



■options routine 



EXTERN GETFILE 



■calls to S30PEN open (ilea 

■ get file spec, open files and 
j then load index into memory 



begin rase 

CALL 



CALL 

Nf 
CALL 



GETFSP CALL 



ftrl 

SCRPRO 

VDCLS 

HL, TITLE 

VDLINE 

BC.CPYPOS 

POSCUR 

HL,CPYHSG 

VDLINE 

BC, 1*256 

POSCUR 

A, '-' 

LUC 



A.'R" 

(SDKOOE) ,A 
A,'N' 
(PRMOOE) ,A 
(OMOOE) ,A 



■ SEARCH aialn segment 
t syntax i 

.search arc file.ind file, out flleioptlons 

■ opt ions i 

; T-retutn to TRSDOS or H-return to HAP 

I R la default 

;HL->cmd line buffer 

I save while top of ■woiy is found and 

1 break la disabled 

iset aemory end (as many sig sectors as 

■possible Mill be stored In memory from 

;end of program to top of memory) 

.-disable break on Nod II 

;BL->cmd line buffer 

■ get cmd line file spec if any 
lload file spec into KEYBUF 

lit file spec present LO CHOLrs with 'I' 

jno subwlndow 

;erase screen 

ipoint to title 

■display title 

■copyright notice coordlnatea (Nod II/III) 

■rlic52 Hodel II, rlic Model III 

■point to copyright notice 

■display copyright notice 

■rlicl 



■initialise v 
■do not bypaa 



raiblesi 
pause afte 



■initlel aearch dap mode • r 
■ initial lie aearch dsD mode 
■initial print mode ■ manual 



■initial 
■CETPSP 



ra 


A,« 


LD 


(EOT), A 


CALL 


BONE 


CALL 


ERAS EL 


LD 


HL.KSGKET 


CALL 


VDLINE 


LD 


BC.31 


CALL 


POSCUR 


LD 


BL.CriLE 


CALL 


VDLINE 


LD 


A, 3 


CALL 


SCRPRO 


LD 


BC, 2*256 


CALL 


POSCUR 


LD 


A. '- ' 


CALL 


LINE 


CALL 


GETKEY 


CP 


BRKKEY 


JP 


NZ.CALSYN 


CALL 


HEBUI2 


cp 


•c 


JP 


Z, GETFSP 


a 


•0' 


j? 


Z, HASTLP 


CP 


■II ' 


JP 


I.DOSCMD 


a 


■T" 


jp 


Z.JP2DOS 


j* 


HASTLP 


CALL 


SYNTAX 


c* 


• 


n 


I.NASTLP 


CALL 


BSHXEY 


CALL 


SEAMSC 


LD 


HL,1 


LD 


(CNSEC) ,HL 


LD 


HL.STMAP 


LD 


INXTHAP) ,HL 


LD 


IX, ••••H 


CALL 


NEHLN 


NOP 




CALL 


KBCHAR 


a 


BRKKEY 


JF 


Z.NASTLP 


LD 


HL.HSHBUF 


LB 


A, 255 


LD 


(TBYTE) ,A 


LO 




:.d 


(TTBYTE) ,A 


LD 


A.253 


LD 


(NXTOP) ,A 


LD 


C,f 


LD 


IY.INXTHAP) 


LD 


A,(HL) 


CP 


253 


JR 


Z,SNXTOP 


CP 


254 


JR 


Z.SNXTOP 


JP 


F1ND4H 


■Of 




LD 


D.A 


LD 


A, (NXTOP) 


LD 


E,A 


LD 


A,D 


LD 


(NXTOP) ,A 


LD 


A,D 


CP 


253 


JP 


Z.FDAND 


CP 


254 




raoi 


NOP 




JP 


FIND41 


NOP 




LD 


A, (TTBYTE) 


L3 


B,A 


LD 


A, (TBYTE) 


OR 


B 


LD 


(TTBYTE) ,A 


LD 


A, 255 


LD 


(TBYTE) ,A 


JP 


FIND4I 


LD 


D.I 


LD 


E.A 


IBB 


IY.DE 


LD 


A, (TBYTE) 


AND 


1IY*») 


LD 


(TBYTE) ,A 



; Baste I loop 

fatter each aearch the program rat 

ito this point 

;aet EOT-* (i.e. not end of file) 



■erase line 
■' Enter Key' 




■rl:c31 




■current aourc 
■display curre 


e file 
nt file 


■set scroll pr 


otect a 



r3icl 



LINE 



■select '-' cha 

■draw daahad line 

■get key(a) 

■was break entered? 

:jp to CLASYH if break not ent 

■call mini-menu 

■change file spec? 

■loop back and get file spec 

■options? 

■loop back and get search key 

■ HAP? 

|Jp to NAT 

■ TRSDOS? 

■ jp to TRSDOS 

■loop back and get search key 
■check ayntax of search key 
■•■Improper syntax 
■try again if improper 
■hash search key 



■display 'Searchin 
■atart at 1 aince 
■current map secto 
■HL-> atart of ind 
l (NXTMAP) -> 1st map 
■IX -> 1st input sec 



mag 
ader 
- 1 



■get map 



ctor and bits 
ored in NXTOP 

■checka for break 

:<break>? 

■ jp to start of loop if break 

■HL -> RSHBUP (search key sign 

■set TBYTE - 255 



■ and 

■first op - and 

■init length = 

■IY-> byte 8 map sec 
,-A(l) - hashcode(l) 
■and op? 



■save next op 
;D has future oper 
■get current oper 
■E has current oper 

■store NXTOP 
■check future oper 
■ and? 



FIND41 INC 



;B has TTBYTE 



■HSHBUF byte not op 
■so see if bit pattern 
■present In current sec 

■and TBYTE with HSH byte 

;inc length counter 



8(325 
••326 
(•327 

• •328 
88329 
88338 
88331 
88332 
88333 
88334 
88335 
88336 
88337 

• •338 

• •339 
88348 

• 8341 

• •342 

• ■343 
••344 
••345 
••346 
•■347 
88348 
88349 
88358 
88351 
88352 
C8353 
88354 
00355 
08356 
00357 
00358 
88359 
00360 
88361 

• 0362 
••363 
88364 

• •365 
08366 

• 0367 
•8368 
0(369 
0(37( 
••371 
8B372 
80373 
80374 
00375 
00376 
00377 
00378 
08379 
883S0 
80361 
00382 
08383 

• 8384 
0)385 
88386 
•1387 
••388 
01389 
88399 
•0391 
00392 
00393 
90394 
00395 
00396 
00397 
98398 
88399 
08488 



00405 
00406 
01407 

• 0418 

• •4*9 
I84H 
••411 

• ■412 

• 1413 
••414 

• •415 

• 0416 
08417 
88418 
80419 
00420 
00421 
88422 
88423 
00424 
80425 
08426 
••427 
00428 
••429 

• •438 

• •431 
•1432 
•8433 

• 8434 
98435 
88436 
88437 
8843a 
00439 
80448 
00441 
00442 
00443 
80444 
00445 
00446 
00447 
89448 
88449 
0*4SI 
••451 
•8452 
8(453 

• •454 
••455 
••4 56 

• (457 
((458 
8(459 
9(468 
88461 
00462 
e0463 
00464 
C046S 
00466 
00467 
0046B 
88469 
09478 
(•471 
88472 
8(473 
((474 
((475 



FIND4K NOP 



FIND4P LD 
OR 

FIND4T CP 



DK 

:sc 
INC 
INC 
IMC 
UK 
: sc 



PIND6L INC 



PIND12 JP 



GETKEY LD 



A, (HDLEN) 

c 

Z,FIND4K 



A, (TTBYTE) 
D.A 

A, (TBYTE) 



Z.NOKEY 
(TBYTE) ,A 
FIND6 



■has (HDLEN) been tea 

■get next HSHBUF byte 
;end of map sector se 



■last op • or 

■any Key found? 

■ key found, save (TBYTE) 



KBBRK 
NZ , HASTLP 
A, 8 

(BICT).A 
A. (TBYTE) 

(TBYTE) ,A 

NC.FIND6L 

GETS EC 

BRKKEY 

Z, HASTLP 

IX 

A.(BICT) 



,-BICT ■ current bit being scanned 
■move bit into carry 

■get sector and search it for key(s 

;<break>? 

■abort search if <break> pressed 

■ bump input rec # 



■FIND8 



LD 


HL, (NXTMAP) 


LD 


DE.256 


ad:. 


HL.DE 


US 


(NXTHAP) .HL 


u 


DE.(NAXMAP) 


XOR 


A 


SBC 


HL.DE 


JP 


P.FINDK 


a 


Z.FIHDK 


u 


HL, (CNSEC) 


INC 


HL 


LD 


(CNSEC) ,HL 


II 


FIND4 



■increment pointers 

■next map sector in memory bumped by 1 sector 
■ Check if NXTMAP > MAXHAP 



■next nap sector still in menory 
■HL -> current HAP sector 
,-inc CMSEC 

■loop and search next 8 sre file 

■FIND10 



■required HAP sector not in memory 
jHL -> current HAP sector on disk 
,-DE • last sector in HAP file 



HL.DE 
P,FIND12 
Z.FIND12 
HL, (CMSEC) 



HL,MAPBUF 
DE, (MAXHAP) 
BC.256 

HL, (MAXHAP) 
(NXTMAP] ,HL 
FIND4 



■bump current 



BC, 1*256 ♦• 

POSCUR 

ERAS EL 

B,6( 

HL.XEYBUF 

EEYIN 

BRKKEY 

NI.GKEY1 

BC, 1*256 
POSCUR 
ERASES 
A, BRKKEY 



HL.KEYBUF 
A.IHL) 
8DH 
Z.GKEY8 



(HL),A 
BL 

GKEY2 
HL,( 

(LLRN) ,HL 
BC, 3*256 
POSCUR 
ERASES 
A,(DH 



■input search key(s) 
■entry: no parameters 
■exit: A - <break> or EOR-»DH 
■reg altered: AF.HL.DE.BC 

■r2icl 

■ erase to end of line 

■max key length - 6( 

;BL->aearch key buffer 

■keyin routine for search key 

■was break key pressed? 

■break vas pressed 

■r4:cl 



■convert upper case letters to lo 

■get char from search Key 

■ EOR? 

■exit loop if end of search Key 



■bypass if < 'A' 
■convert to lower case 
■overwrite upper case with lower 

■loop until EOR 

■init (LLRN)-( 

■r4icl 



■SYNTAX 



■check search Key(s) for proper syntax 

■KEYIN routine stores 

I e operator as 253 

I I operator as 254 

■each key must be 3 or more char long 

■entry: no parameters passed 

■exit: A - validity of key(s) 

■ A - (, bad Key: A - 1 proper key(s) 

;reg Altered: AF, BC, DE, HL 

;HL-> search key buffer 

:C - key length (init to () 
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VOICE SYNTHESIZER 
FOR APPLE AND COMMODORE 




• Over 250 ward trocaoutary-efnaes Mow Ik* tornution ol more 
Ihen 500 words • Budt-tn m eaner, speaker, volume control and 
audio uck • Recreates a dear. Retaral maM voice • Plug-in usar 
rudy wttn dociMwataMa and itmft leltware • Cass sue 
7'«"L x 3V. "W ¥ 1-3/l-H 



APPLICATIONS: 

• Security Warning . Tea 

• TtachMtfl • Handicap Aid 

• Instrumentation • Games 

it* jism vnct tvNTMium mm^nn,.. ww. M em. m n 

■ ii'iii ' i neaeat aa, mum wanes, ■■ww in m i Msitjujuai'' 

Isaacs Prscnaaa (imiw mm aeaar, ■ n tea JESte awnn 
MilMOOMMlMr, «»,«.*.««•>««>• 

ISe leerf a M M il W MM lUUlW 

Pert No. Description PrKn 

JE520CM For Commodore M & VIC-20 $114.95 

JE520AP For Appi* m n. audita $149 95 



C Jiiimtiii umS 



■•-•• •»*» M«kW MM 



CARD-FDGE CONNECTORS 



SOLDER V k 

TRANSITION 
CONNECTORS 

FOR Pf MUNENT 

TERMINATION TO PRINTED CIRCUIT I0ARDS 




RIBBON HM 

CONNECTORS l"F*»l 



SOCKET CONNECTORS 



MALE CONNECTOR 



SUB 
CONNECTORS 



i 



».>l 



Micro-Logic Corp. 
MICRO-CHARTS 

• (mi, mM Ma • nm access • law mat, n i i • Compact 

(niii • mm met can Max • Patino Mr man — m i & .apnea-, 

• Caar I cancan lata w w aaxaw m> i i u i W i ascii w cm> 
enn enact « nan. annate n sane aaa"** uieckat pauut cyca tans 
dagrami auf Wee 4 own mora 

nun no afFcacuct net 

MLZ80 Z80CPU S5 95 

ML 8080A 8O80A/8O85A S5.95 

ML-6S02 6502 (6SXX) SS.95 

ML-8048 8048, Relallves $5.95 

ML-7400 5400/7400 TTL Pin Outs $5 95 



28AWG FLAT GREY CABLE CUSTOM ASSEMBLIES 



» nm» mo 

II MM* ne InaaM 

sa nan n. iMa 



aaaa »nM Mi same c**pm iwi*b a" ■** km. 

:>ua> n ma cuiio* 

»»:n».imn». in. 

aa . n n<M»taM oaaw. HID 

IHUflMliKllciMaa.. | in 

'•imnn CluVMIIUMnNiiii MM 



KM^teiiM 



ACCESSORIES FOR APPLE* COMPUTERS 



BOOKS 



■ n- 

J..O. J 

iwos 
MM 

3O012 
...< I 
JI0S10 



Uto 



1- N 



Nanonai CMOS Data »ooa IIMll 

(640 paQHI 74C COaOOO and A-'D Convene-, 

National llneer Oala Boo* (1N21 

(117B MO.ll LM. IF ADC. DAC. LH Sefle, 

National Memory data Boo« (IBM 

<a»4 Pagan* HAMS. POMS. PFIOMs EPFSOMs Sax 

InlseMi Date Boo* il Bali (ass 

(ISel pages) Compiele Baa 

NaSKmM Aae l onRadlo HendbooS I'MKK UH 

(240 pages* Pre Ampa. AM. FM S fm Stereo Power Amp* 

National PnA Data IM |ia*2> IS 14 

file pagan) Appiicntion Noma. Linear Brie 1 *, ale 

ZHog Oala Book (IS»J) 17 a, 

(04 1 pagan) Microprocessors and Support Cnipa 

Intel Memor, Component. Hendbooa ilBeJi HI.-. 

I'M pagan) Contnme Mi Application Noses Arttrw 

Heprmte Data Sheets and other des-gn intormMlon 

on Mara RAMs. EPfSOMs E'PWOM, t Bubble Memories 

InlM MScroteocnssor * aaHaOa.nl Kandtao a IKaai IIA.M 

(tear pagan) Contwna L>nta Snoots on ail of 

Inters MiCfOP'ocaaaora and Panpnaiala 



4-Digit Fluorescent Alarm Clock Kit 



'8B\d8 ; ICJ* 



sua I S/l-l . J1-" > l*t 

JE750 Alarm Clock Kit 



$29 95 




Digital Thermometer Kit 



controla 'ot mdowouldoor 
Of OuM monitonng can be 
mended to 500 law Con 
tinuoua LEO fl* nt it.apiay 
Baoga aO'Flo l»»-F. -tax. 
to 100-C Accorao It' 
nominal C«>>B'lte lot 
FahrnnriaitlCnia...a 



JE300 



S39.95 



Universal 




Computer Keyboard Enclosures 

D'l 9lao. Oasa lag (ncanunn 
■rs srsianM lot an, imoiiu 

noa man M aaaiaWYaniaat) 

mt «acai m awcM traan tntn 

'j? S**^ nw'»ana» w t« lama/ 

•• annanawaccaai tap/tni amaa OUT 

ancXko HaMairca iraoiianniaoUM 

cok>) » Sail pal adtasan mar anrajkaaon 

i- '.. .. . ■ . , . ■ . ..■ . . , 



OTEn PanatWkltrirs- 
OtE 11 Panel Width 10.11 • 
OTE-14 Panel Width 119- 

0T( k Panel widtn <»M ' 
•k. OTtls PanMWldtnjl j)i- 



S29PS 



Numeric/ Auxiliary Keypad 
lor APPLE He 



Extended 80 Column/64K RAM 
Card .or APPLE He* 




JSB. 



POWER SUPPLY .5V0Cn 7 5 AMP 12V0C u 1 5 AMP SWITCHING 
awn niHAt SMaWia larag^llvM lain I ••»> l«w . km. uaaN laraa <•• 
eanailis/nanui 0»»i svbc n 7 l .., itVOC o llmlln iweai I1M w. 
II* ■ 3% tltlll 

Pari No PS94V0S S39.95a*cri 



POWER SUPPLY 4-Channel Switching - Apple Compatible 



BawaaraoHaw. mm caraoanr MranMI, aaMl 



pet » '»V«C !• Utl-l Oataet . !»DC 
lawag iBIH "»Xa »»V». I 
paniBH l-lrll ■ 1-7 - ~' 

Part No FCS-604A 



:» aauBeiaal aaa aracmi mmm Ma fcUm i »- 

sa svne ,i iA; . inrK a u ijwe a u 

aid ita its Ovatcarraat f 



$-q HMCt 



S10.00 Minimum Order — U.S. Funds Only 
Cahlotnia Residents Add 6 .■ % Sales Tax 
Shipping — Add 5% plus St. 50 Insurance 
Send S.i.S.E. tor Monthly Sales Flyer! 



MasttKCard 



Ji 



L "T ' —I' 



Spec Sheets — 30e each 
Send St .00 Postage lor your 
FREE 19B4 JAMECO CATALOG 
Pnces Sub|ect lo Change 



■■ 1 III' I' ri nil I niaM 

ameco 



VISA' 



ELECTRONICS 



W4 1355 SHOREWAY ROAD, BELMONT. CA 94002 

12/83 PHONE ORDERS WELCOME - (415; 592 8097 Telex: 176043 




JE664 EPROM PROGRAMMER 

8K TO 64K EPROMS - 24 ANO 28 PIN PACKAGES 

* Piiaii e i. madam ana caacai iv praaarN >im (moat. • le^m. moan 
» [PDOtii • at31?c C iniaUt iwa um i k» aaaMa/araaraa. m aiaa • iseM uu 
— as, lertearg • Canaan aala ■ Wat » lertaan . LaeM aA*) treat m 
• Ca.M>» (Paom * iwaaat amariacM • Cepna (PaaMi • Pwrer la 
WAX. S*H, m 10 w eannr caawwaMa . ladaaM CaM-caardtanM 
• arana M neui . Sua IS-S'll I Idl i 



!P*oe 

ISIAC 

aaaaa 
IS it • Wt Ik. >>| 

JE664-A EPROM Programmer S9! 

AaaanMnai Tti:ej tinck-aaa -uisa McdiAat 

JES65 - RS232C INTERFACE OPTION - in, Ami «uik 
Opnea impta n ann caryw, accaai ■ t. JE6S4 I «AU Saaina acatnara 
BASIC prnoad tor IRS «• Sloan < uan> ■ [ana IMiaH 

St lett aoaaar*) swooa 7 Opaon ma, m adaarao ta ma com. 
BBS cm ta m ai t iiaa ■ mi«.» «<> *- n;u port 
•wan Mr anartacatf a an, CPU tnan. ami m "SJJJ pan 

JE664-ARS — ajBn .,***+*. $1195 00 

AssamMd and tnw llncluoal JSI1BA ModiAtl 

EPROM JUMPER MODULES ■■ i*. . jumpe« ikx>ui( .Pasaaar, 
"n*'"* 1 atM nanwa i aa en AMna ajt arspar piaumaana puaai ■ 
— *P«— « i ■ aga n EPSBBI mom i i tar iaa pamcvM \—fft 

P<N EPROM EPROM MANUFACTURER MICE 



H :. 

JUI6B 
BSD 

v 

" 
•■ ... 

•■ : 

JM6ac 

v ■ 



?nn 

?'n iMsnn 

msj'ta 

'KS7S37 

i m 
7rn* (7tvi 

'. tn i 

.. ,. . 

I'M 

IWS.-KH 

ajsaaj > ■ - 



'" " • :-". in r 

Mm UaaroU.IUana NEC II iBV 111 M 

•WoroU. 'I I . S 1 .-3) 114 H 

laeajroia iiiiW) lues 

•MO 'w«. NEC iMaca imainvi lun 

fian. awi(»tvi nan 



aMBMN :'v 
aa»(Jivi 
1MJSV1 
Htlicrll !■■!) 



114 M 
(MM 

Ha as 
im as 



UV-EPROM Eraser 



, 8 Chips - 51 Minutes 



N» 



1 Chip - 37 Minutes 



Eieane JrOB, J31B. 2711 27S4. 2S1». JS32. 2S44 Eraaaa up 10 a chip, 
artirtln SI mlnulna (1 ctiip in 17 muiulea) Malntalna conatam aipoawra 
dutance ol one inch Special conductive loan line- ellmlnalea sialic 
build up Bu mi in aalat, Iocs lo present UV eapoaura. Compact — onl, 
B4»- a 1.70 • ■ raO' Complele wltn heading tia, lor a cMpa 

DE-4 UV EPROM Eraser S 79.95 
UVS-11EL Replacement Bulb S16.95 



5V4" APPLE™ 
COMPATIBLE 
DISK DRIVE 

• DIM laaiart IAMB aacnaaci • 14* 
n.ean.4 uaaea • IS eacai - caapaBBM 
ela Spew caaiasa - Clia p aWi nna c aaa u 
a. aaa una - ant aaa inta inar a ■> cna 
nm enra • Sua r, • 3 ,-w . 
I •• 11-0 • Waaa 4 1 ita 

PartNo.ADD-514 $195 95 



SLOPPY DISK DRIVE 
!* \€<-\ '^'•ShugartBOIR 
c a e a aS_H •. compatible 

[Tfia-A • Single-Sided 

aWal <^ • 400/800K Bytes 

f^TBa, ',' Capacity 

iawalM-ajTp*^ a industry Standard 

•ha FOOIOOa B' Flopp, »il Onra llnduat^ Standard) lanturns 

. ■ . ' !>. -■-•■- :■- il, ua ■:----.■:•. ■ .. -j. ... i , : . 
de'a.'r I'ini'e rale 2SOK B-tsisec. a.ngia dann.ty; MOn diib'MK 
OQuBSa danait, Tlw FOOIOOA H deaigned to aora alth the single 
Vdnd eolt sectored IBM Dteaette I or aq da* cnrlrldgn Pownr 
115VAC ■ SOeOMt .2«VOC» I 7ampnmna . SVOC « I 2 amp, 
ma. umt aa pictured nbon tdoea not include caaa power bubsm. or 

cables) Sire BSSTrV . 14 'L ■ 4 5'M Welgha 12 lbs IncTftteg 



FDD100-8 . $1 69.95 ea. 



IBM MEMORY EXPANSION KIT 



SAVE HUNDREDS OF SSS BY UPGRADING 
MEMORY BOARDS YOURSELF! 

Moil ol ih« popular m»<nory Do*vd» allow you lo add an additional 
MX. 12»K. ltW. or **•« Tha I0MM- AH *.li populata ihaia bo.-flt 
in eV4K bf la incrvmanii Tha hit it aimpla lo inaiall — fwat lna«rl lha 
nkta MK RAM cMpa in tha provtdad aochata and aal th« iwo groupa 
of awnlcha-a (Mr««1loni ata Included 

S49.95 



IBM64K (Nine 200ns 64K RAMs 



EXPAND YOUR MEMORY 



TRS-80 to 16K. 32K, or 48K 

'■Modal 1 at From 4K to 16K Requlrst |1| One Kit 
Modal 3 ■ From 4K lo 4IK Require! i3i Three Kits 
Color = From 4K to 16K Reouires (1) One Kit 

"Nwaa 1 egapaaa net lona Baari ap a HI Iaa am BeaarM 
- Oaa ■• BaeaaeS w nca tea ol Eaeaasaa - 

TRS-16K3 '200ns tor Color & Model III S12.95 

TRS-16K4 '250ns tor Model I JtO 95 



TRS-80 Color 32K or 64K Conversion Kit 



Easy lo install hit comae, comp'ata with • aa 41M2 t200n»| 64*. 
dynamic RAMa A con«<*rsK>n u«cu*nanUtK>ri CottvbkU '«&» ooior 
computaKs *itn E circuit boarda, A ail new cotor t-Aomputera to 32* 
Minor moditicationa ot 32K memory *ni aHow tr*a mi ol all tha MK of 
me dynamic RAM proMdtng you ha*a a FLEX DOS operating ayatam 

TRS-64K2 $44.95 



** See List of Advertisers on Page 291 
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Listing 9 continued 



00476 


SYNLP 


U> 


A,(HL) 


90477 




INC 


HL 


80478 




c» 


0DH 


00479 




JP 


Z , SYNEND 


00480 




CP 


253 


00481 




JR 


Z, SYNOP 


10482 




Cf 


254 


90483 




JR 


Z.SYNOP 


09484 




OR 


c 


09485 




JB 


SYNLP 


09480 


SYNOP 


U) 


A. 3 


99487 




Cf 


C 


90488 




JR 


Z.SYNRST 


99489 




a 


N.SYHRST 


00490 


SYNER 


LD 


BC, 3-256 


00491 




CALL 


POSCUR 


00492 




--a:.:. 


ERASES 


09493 




LD 


HL, THREE 


91494 




3U 


VDLINE 


00495 




CALL 


TAPEHT 


99496 




LD 


A, 9 


99497 




?:- 




00498 


SYNEND 


LD 


A, 3 


00499 




CP 


C 



■ get char from search Key butter 

ipt to next char In search Key bufte 

■ EOR? (end of search Key?) 

■ exit loop if end of Key 
land 7 



■valid char so bunp Key length 

l loop until end of Key reached 

jkey terminated by operand 

iwas Key >- 3? 

fKey len - 3, so get neat Key 

ikey len > 3 so get neat Key 

isyntai error (key < 3 char) 

ir4:cl 

■erase to end of screen 

■ 'Each Key nust be three or aon 



■ Tap enter 



contin 



.-A-0 ■> bad syntax 
lend of Key(s) reached 
IchecK that last Key >- 3 

00500 JR Z.SYNRET ; len -3 

09591 JP M.SYNRET ilen >3 

00502 JR SYNER |key <3 so jp to error nasg 

00503 SYNRET L0 A,l 

00504 RET |A-1 -> proper syntax 

00505 | 

00 506 [HASHKEY 

98S97 , 

99598 I hash search Key 

09599 I search Key in KEYBUF 

09519 Itriplet hash codes stored in HSHBUP 

09511 isee 113 (index program for hash algo. 

99512 lentry: no parameters passed 

■9513 I exit: len of hsh code stored in HOLES 

00514 ireg altered: AT, BC, DE, HL, IX, IT 

99515 BSBXEY LD C,9 iC - Key len 

99516 LD IY.HSBBUF ;IY -> search key signature buffer 
00517 LD IX.IEYBUF : ix -> search key butter 

99518 RSH3 LD L,lIX*0) iget char froa search key 

99519 LD H,9 iHL contains char 

99520 LD A,L 

90521 CP 0DH iend of string? 

99522 JP Z.HSH8 .-if EOF then end hashing 

99523 CP ' ' iblank? 

99524 JR M1.HSH4 ^continue at HSH if not blank 

99525 INC IX ,-pt to next char 

99526 JR HSH3 i loop until non-blank char reached 

99527 mov get first 2 char of key 

99528 HSH4 CALL MUHL10 imult value in HL by 10 

00529 LD (MBYTE) ,HL [Store In KBYTE 

00530 INC IX ipt to next char in search key 

00531 LD L.IIX+0) 

00532 LD 8,0 

00533 LD (LBYTE).HL latore value of char in LBYTE 

00534 INC IX ipt to next char in search key 

00535 i 

00536 iHSHLP 

00537 , 

09538 iget triplet and hash it 

09539 HSHLP LD ., (MBYTE) iget 19ac2 

99540 CALL IBL19 mult by If 

99541 LD -BYTE) ,BL istore lffacl 

00542 | 

00543 LD BL, (LBYTE) iget ac3 

00544 CALL HUHL10 mult by 10 

99545 LD (MBYTE) ,HL .-store 19ac2 

99546 i 

99547 LD A.1IX+9) iget char (cl) fro« search key 

99548 INC IX i lnc IX to next char 
90549 CP 0DB lEOR? 

00550 JP Z.HSH8 

00551 CP ' ■ 

00552 JP Z,HSH3 iskip 3 hashes 
09553 CP 253 land op? 

00554 JR Z.HSH5 

00555 CP 2S4 lor op? 

00556 JR Z.HSHS 

00557 JR HSH6 

00558 HSH5 LD <IY+B),A istore op in hash buffer 

00559 INC IY ipt to next byte in hash buffer 

00560 INC C line hash buf len counter 

00561 JP HSH3 i loop until end of search key 

00562 i 

00563 IHSH6 

00564 I 

00565 I hash triplet 

00566 HSH6 LD L,A 

00567 LD H,9 
99568 LD (LBYTE) ,HL 
00569 LD DE, (MBYTE) 

09570 ADD HL.DE il9ac2*ac3 

00571 LD DE,(FBYTE) 

00572 ADD HL.DE I 109acl . (19ac2.ac3) 
99573 ID A, 251 

90574 CALL DIVIDE iA has nodulo 251 result 

00575 LD (IY+0).A istore hash code 

00576 INC C ilnc hash code len 

00577 INC IY 

00578 JP HSHLP iloop until end of search Key(s) 

00579 i 

00580 1HSH8 

00581 I 

00582 HSH8 LD A,C ihashing complete 

00583 LD (WDLEN).A isave hash len 

00584 RET 

00585 i 

00586 KUA10 NOP mult I in A by 10 

00587 ( BC and DE used 

00588 lvalue returned in HL 

00589 LD H,0 

00590 LD L,A 

00591 HUHL10 NOP multiply < in HL by 10 

00592 ADD HL,HL iHL contains 2-no. 

00593 LD E,L 

00594 LD D,B 

09595 ADD BL.BL 1 4 

00S96 ADD BL.BL it 

99597 ADD HL.DE ill 

99598 SET 

99599 i 

99699 iCETSEC 

99691 I 

90602 iget sector froa source file 

00603 lentry: no para 

00604 lexlti sector from dlsK in INBDF 

00605 ireg altered: AF.BC.DE.HL 



00606 


GETSEC 


LD 


HL.INBUF 


ipt to source file roc but 


00607 




DEC 


BL 


lHL->last char or record before INBUF 


00608 




LD 


A.(HL) 






00609 




lb 


(B256) ,A 


llast byte o 


SINBUP 










isave this byte for analysis of record 


00611 










00612 




PUSH 








00613 




POP 


BC 


|BC -> Input 


rec to read 


00614 




LD 


(CLRN) ,BC 






00615 




CALL 


READ2 


iread two se 


tors from sre file 


00616 




CALL 


SECTOR 






00617 
00618 
00619 
00620 

00(21 




RET 














■SECTOR 










i searches re 


ords in sector for Key(s) 










istarts with 




9062} 








:and reads a 


coss Into INBUF 


00624 


SECTOR 


CALL 


NEMSEC 






00625 




LD 


DE.(LLRN) 






00626 




ISC 


DE 






00627 




LD 


HL.(CLRN) 







00628 
00629 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
09637 
99638 
99639 
99649 
99641 
99642 
99643 
99644 
99645 
99646 
90647 
00648 
00649 
90650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
90664 
00665 
00666 
00667 
00668 
00669 
00670 
00671 
00672 
00673 
09674 
0067 5 
00676 
00677 
00678 
00679 
006 80 
006 81 
00682 
00683 
00684 

006 85 
00686 
00687 
00688 
09689 
99699 
99691 
99692 
99693 
99694 
99695 
996 96 

996 97 
99698 
99699 
99799 
99791 
99792 
99793 
00704 

007 5 
00706 
00707 
00708 
00709 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00718 
00719 
00720 
00721 
00722 
00723 
09724 
99725 
99726 
99727 
90728 
00729 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00738 
00739 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
09747 
99748 
99749 

997 59 
99751 
99752 
997 53 
99754 
90755 
00756 
007 57 
00758 
00759 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00768 
00769 
007 70 
09771 
99772 
99773 
99774 
•9775 
00776 
•0777 
09778 
99779 



CALL 

CP 

RET 
CALL 
CALL 
CALL 
ENDSEC RET 



NONORE LD 



SKEW) RET 



A.B 

HL.DE 

NZ.SECLP3 

A.IB256) 

9DS 

Z.SECLP3 

9DB 

Z.SECLP3 

RESTSC 

Z, ENDS EC 

SX 

A. (HIT) 

I 

Z.SECLP 

BL. RECBUF 

DSP 

BRKXEY 

Z, ENDS EC 

■l" 

NZ.SECLP 
LIST 
BRKKEY 

I 

NEWLN 
DLINE 
NEWLN 



I if EOR then read 1st 



iscan for Keys 



l display r 
i<break>? 
I RET if br 
lllst end? 



IX 


HL.SIITBUF 


LD 


(NXTREC) ,HL 


LD 


DE.RECBUF 


JR 


SKIP 


LD 


HL.INBUP 


LD 


DE, (NXTREC) 


OB 


A 


sac 


HL.DE 


JP 


M, NONORE 


JP 


Z.NOMORE 


LD 


HL, (NXTREC) 


LD 


DE,RECBUP 


LD 


BC,0 


LD 


A,(HL) 


CP 


0DH 


JP 


Z.NWSCE0 


CP 


0DB 


JR 


1.NHSCE0 


LC 


(DE) ,A 


: nc 


BC 


m 


A, 254 


CP 


C 


JR 


Z.NHSCE0 


ISC 


DE 


INC 


BL 


JR 


NMSCL? 


CP 


0DB 


JP 


Z.NHSCE4 


CP 


254 


JR 


Z,NWSCE4 


LD 


A.(PSEOR) 


CP 


0DH 


JR 


Z.NWSCE4 


LD 


A, '. ■ 


LD 


IDE) ,A 


INC 


DE 


LD 


A.0DH 


LD 


(DE) ,A 


INC 


HL 


LD 


(NXTREC) ,HL 


LD 


A,l 



: NEWSEC 

i transfers logical rec froa SINBUF to RECBUP 

■entry: NXTREC • byte in SINBUF that is start 

I of next logical rec 

lexlt: A-0 no aore records 

f A-l store logical records 

I NXTREC - byte in SINBUF that is start 

I of next log rec 

ireg altered: AF.BC.DE.HL 

meat sector so NXTREC -> start of SINBUF 

|HL->RECBUF 



!'.' ? (pseudo EOR aark) 

■exit loop if EOR 

itransfer char froa SINBUF to RECBUP 

line char count (I of char aoved to RECBUF) 

I record length aax reached? 
lEOR if record >- 255 char 
ipt to next char in RECBOF 
ipt to next char in SINBUF 
l loop until EOR found 

lend of record 



ll -> aore record SHOULD THIS BE 1BH??? 
;9 -> no aore record 



:SS 



search rec in RECBUF for key(s) 

entry: no para 

exit: BIT-1 if key(s) found 

hit-9 if key(t) not found 
reg altered: AF.DE.HL 
calls: GTKYWD.INSTR.SKTOOR 



LD 


BL.KEYBUP 


LD 


(NXTXEY) ,HL 


LD 


A.l 


LD 


(HIT) ,A 


LD 


A.9 


LD 


(ENDKEY) ,A 


LD 


(OPER) ,A 


LD 


(NXTOP) ,A 


CALL 


GTKYWD 


CALL 


INSTR 


LD 


D.A 


LD 


A, (OPER) 


CP 


1 


JP 


Z.SKOR 


LD 


A, (BIT) 


AND 


D 


LD 


(HIT) ,A 


J? 


SX4 


LD 


A, (HIT) 


OR 


D 


LD 


(HIT) .A 


LC 


A, (NXTOP) 


LD 


(OPER) ,A 


LD 


A, (ENDKEY) 


CP 


1 


JP 


Z.SXEHD 


LD 


A, (HIT) 


CP 


1 


JR 


NI.SK7 


LD 


A, (NXTOP) 


CP 


1 


JB 


Z.SKEND 


JP 


SK2 



KEYBUF 



l(NXTKEY) -> 

llnlt (BIT) - 1 

linlt (ENDKEY) -0 
linit (OPER) 0-and 
llnit (NXTOP) 0-and 

iget 1 Key word fron sear 
■search for 1 key word 
■tenp store result in D 
lOPER stores type of oper 
lor op? 

■and operation 

■D - (HIT) froa INSTR 

l (HIT) updated 



■ end of Keys? 

I]p if end of Keys 

lis HIT still true? 

■HIT-1 

lis next (OPER) * or? 
■if so jp to end 
■else check next key 



■ SK7 



■ HIT - (search key not found) 
■akip to next *ot" 
■operator in search Key or 
■end of search Key 

■ HIT-0; is next op ■ or? 
■is next op - 'or*? 

■if 'or* continue search 
■skip until -or' op or 
■end of search key found 

■ end of search key? 

■if end of search key ]p to SKEND 
■loop until end of search key 
I end of record search 
lA-0 no on A-l or found 
I(NXTKEY) set if A-l 
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Model 4 
Plus 

• 64K Ram 

• 2 Tandon Drives 

• RS 232 

• Free Software 

Mailing List 
Home Budget 
Loan Amortization 
10 Programs in all. 

• 120 Day Warranty 

• TRS DOS 6.0 Manual 

& Diskette 



Additional 64K Ram $79.00 
with purchase of any computer. 

Prices reflect cash discount 
Visa - Mastercard add 3% discount 

ASHLAND COMPUTER SYSTEMS 

1716 Wilsh ire Blvd. 

Ashland, KY 41101 

Order Line (606) 325-2210 

Mon. - Fri. 10to5E.S.T. MMM 



EPSON GRAPHICS 

RHODRMINE UT 200 PPT 



b3? i<>«« IX < 




FROM YOUR 

BASIOFORTRAN»PL-1»PASCAL 

PROGRAMS 

Crafpac-ao will raad data from a duk Bla on your tystam 
and cohvotI II to a hi-rcseolurion plot or graph Grafpac-flO 
plots up to 880 dots acroaa and ± 33000 dots vertically on tha 
Epaoo M> -ao-that ■» 1 25 paaas" 

Graipac-ao commands include: clrcla. aUipaa. two and thraa 
dim e nsi onal data, pen up/down, plot/move relative or ab- 
solute, tingle cbaractar or string plotting wtth rotation and 
aixe control, border generation, and many mora. . . 

Grarpac-ao la available br CP/M on S Inch duk, TRS-DOS 
(modal I and HI) on Vh inch duk. Requires 48K memory. 
TRS-DOS lyetam. need two disks • 

Pncea. TRS-0OS I * III . . .*4t.»5 

CF/M iM.tS 

(Please Include S3.00 ihipping charge with all orders) 

•A version is available for TRS-DOS users 
with one disk, however, you must send us 
a copy of your TRS-DOS and include 
$10.00 for copying. 

M.E.S.C. 
Parkhurst Drive 
Salisbury. MD 21801 
(301) 742-7333 

The following are registered trademarks: 
CrVM Digital Research; TRS-DOS. TRS-80 
Tandy Corp.; MX-80-Epeoo Corp. 



►^398 



DISCOUNT 

MAIL ORDER 




Computers 

at Guaranteed 

Low Prices* 



TRS-80 


ATON 


EPSON 


HAYES 


NEC 


DYSAN 



Desert Sound, Inc. 

of California 

1-800-835-5247 

Factory Authorized 

Tech. on Staff 

for Many Brands 

TRS • 80 is a Reg. Trademark of Tandy Corp. 

•Call for FREE CATALOG 
and Price Guarantee „ W9 

Calif. Res. Call 619-244-6883 



CONVERT YOUR TRS-80 MODEL I, III, OR 4 INTO A 

DEVELOPMENT 
SYSTEM 




Now you can develop Z-80 based, 
stand-alone devices such as games, 
robots, instruments and peripheral 
controllers, by using your TRS-80 as a 
development system The DEVELOP- 
MATE plugs into the expansion con- 
nector of your TRS-80 and adds 
PROM PROGRAMMING and IN- 
CIRCUIT-EMULATION capabilities to 
your system (with or without expan- 
sion interface) 



Complete instructions and sample 
schematics are included to help you 
design your own simple stand-alone 
microcomputer systems THESE 
SYSTEMS CAN BE AS SIMPLE AS 
FOUR ICs one TTL circuit for clock 
and reset, a Z-80. an EPROM. and one 
peripheral interface chip 

When the In-Circuit-Emulation 
cable is plugged into the Z-80 socket 
of your stand-alone system, the sys- 
tem becomes a part of your TRS-80 
You can use the full power of your 
editor/assembler's debug and trace 
program to check out both the hard- 
ware and the software Simple test 
loops can be used to check out the 
hardware then the system program 
can be run to debug the logic of your 
stand-alone device 

Since the program is kept in TRS-80 
RAM. changes can be made quickly 
and easily When your stand-alone 
device works as desired, you use the 
Developmate's PROM PROGRAMMER 
to copy the program into a PROM 
With this PROM, and a Z-80 in place of 
the emulation cable, your stand-alone 
device will work by itself 



The DEVELOPMATE is extremely 
compact: Both the PROM programmer 
and the In-Circuit-Emulator are in one 
small plastic box only 3 2" x 5 4" A 
line-plug mounted power supply is 
included The PROM programmer has 
a personality module" which defines 
the voltages and connections of the 
PROM so that future devices can be 
accommodated However, the system 
comes with a universal" personality 
module which handles 2758, 2508 (8K), 
2716. 2516 (16K). 2532 (32K). as well 
as the new electrically alterable 2816 
and 48016 (16K EEPROMs). 

The COMPLETE DEVELOPMATE 
81. for Model I. with software, power 
supply, emulation cable. TRS-80 
cable, and universal" personality 
module S329 

DEVELOPMATE 83, Model HI/4 version, 

same as above $329 

PM2 PERSONALITY MODULE for 

2732A EPROM $15 

PM3 PERSONALITY MODULE for 
2764 EPROM $15 

Instruments -«i 

172 Otis Avenue Dept M, Woodside, 

CA 94062 

(415) 851-1172 

Master Charge and Visa phone orders accepted 
California residents please add 6 % sales tax 



* SmUstot Advertisers on Page 291 
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wrm 

• •781 
•1782 
••783 
••784 
••785 

• •786 

• •787 

• •788 
••789 
••7 91 
••791 
•1792 
M79] 
••794 
••795 
••7 9* 
M797 
••798 
M79* 

• •■(• 
••Ml 

• •8(2 

• •8(3 

• •8(4 

• »S«5 

• •8(6 

• •8(7 

• •8(8 

• •8(9 

• •811 
••811 
••812 
••813 
•••14 
•(BIS 

• •81* 

• •817 
lli.i 
•••19 
H-.li 

MtBl 

• ■•22 

t»823 
••824 

t»825 
••826 
••827 
••826 
••829 

• •831 
••831 

• •832 
■ •833 
••834 

• •835 

• •836 

• •837 

• •838 

• •839 

• •84( 
••841 
••842 
••843 
••844 

• •845 

• •846 

• •847 

• •848 

• •849 

• •858 
98851 

• ■852 
88853 
88854 
••855 
88856 
••857 

• •858 
•1859 

• •86( 

• •861 
••862 

• •863 

• •864 

• •865 

• •866 

• •867 

• •868 

• •869 

• •87« 
••871 
••872 
•■873 
(•874 
■(875 
8(876 
•(877 
((878 
8(879 

• •88* 

• •881 
•••82 
H ii: 

• •884 
••865 
j* = -:e 

• •887 
Hii^ 

• •889 
IIIM 
••891 

• •892 
••893 

• •894 

• •895 

• •896 

• •897 

• •898 
••899 
■MM 

• •9)1 

• •9(2 

• «9«3 

• 1914 



• •919 

Hill 

•■911 
■(912 

•■913 
1(914 
((915 
(•916 
((917 

• •918 

• •919 
••921 
••921 
■(922 
(■923 
■•924 

• (925 

• •926 
••927 

• •928 
••929 

• •93* 

• •931 



GTXYWD LO 

LO 

NTCHAR U> 



HL,(NXTXEY) 

DE.XEY 

A.(HL) 

IDH 

i, toners 

251 

I, 

:54 



WJEB IRC 




;get next key word t torn search key 
lentry: HXTKEY->»tart of neat key word 
i eslti EMOEEY-1 if end of search key 
I EKDKEY-* If sure key words In 

I search key 

ireq altered: AF.DE.HL 
;HL -> next key Co read 
IDE -> word Duffer 

lend of keys? 



lloop until end of keyword 

:HL->ne«t keyword or end of search key 

I EOR Bark 

i load with • - and op 

iHL->nest keyword or end of search key 
lEOR sark 

.-place CD at end of key 

: end of keys 



isrrooa 



BJEH 
SETS 

m 



HL, (NXTXEY) 

A,(HL) 

IDH 

I.SXT4 

254 

I, SET* 

«L 



.'.XTKF • ,HL 

(OPER) ,A 



iskip to "or" operator 

ibypaases keywords that are "ended" 

l entry ■ 

lesiti HXT»ET->next key word in search key 

l 0PER*1 if "or" op found 

I OPEA-* if end of search key 
;e«it points: SXT6,SXT8 

ireq altered: AF.DE.HL 

icall«< none 

lHL->start of nest key word 

lend of search key? 

Ijp to STX4 If EOR 

i ■or •? operator? 

ijp to SET* If "or" 

ipt to nest char in keyword 

lloop until EOR or or op found 

lA-( -> EOR found 

II -> OR found 
Ihaee HL -> nest key 



ll - or 

I load (OPER) - o 

lA-l -> "or" op 



I I NSTR 



(■•arch RECORD for key 
lentryi no para passed 
lealt: A-l keyword found 
I A-8 keyword not found 

ireq altered: AF.BC.DE.HL 



A, IDE) 
B,A 

A,(BLI 



CJX 
•DH 

i.MoriRC 



IBaln subroutln 



lend of string? 
;cp to key char 



CRATCH IRC 
IRC 
PBE 



ichar Batch 




I reads 2 sectors from sre file 

I necessary to read 2 since record Bay 

i span sector 

■entry: BC-> 1st sector to read 



AEAD2 U> 

READ2I CALL 
PUSH 



■ltl 



zt.s:s*.:r 
EC, 254) 



n 


HI, READ 2D 


LD 


hl.ixbup 


otu, 


RDCBL 


LD 


HL.IMBUP 


U) 


(HL) ,IDH 


POP 


K 


HIT 




MM 


BC 


OK 


BC 


CALL 


REDINI 


RET 




LO 


DE.IRDCS 


CALL 


READOR 


PVSH 


AT 


n 


1, REDOX 2 



iaet first sector 



lEOr so blank 



l skip DSPSHA sub 



••932 




CP 


21 


•■933 




J? 


SI, ERROR 


1(934 




■ 


RXD0E2 


■ •915 


■ 






• •936 


READIR 


■ 


DE.IRDCB 


••917 




CALL 


READDR 


••938 


REDIRS 


P'.SH 


AT 


••939 




JR 


I, REDOX 


• •941 




CP 


21 


••941 




JP 


MI , ERROR 


• •942 


REDOE 


CALL 


DSPSHB 


••94] 


RE00E2 


LD 


HL, (IDCBCR) 


••944 




LD 


DE.IIRLLR) 


••945 




XOR 


A 


• •944 




S3.; 


RL.DE 


• •947 








• •948 


1 






• •949 




LO 


A, (lOCEOS) 


••951 




cp 


• 


•(951 




JP 


X.REDIHI 


((952 




LO 


EX.IRBOP 


(MSI 




ld 


M 


(•954 




■-z 


••» 


M955 




BJBJ 


RL.DE 


((954 




■ 


E.A 


((957 




B 


A.2SS 


(•95« 




S-JB 


t 


M9S9 




IRC 


R 


MM 




LD 


E.A 


••961 


AEDIRT7 


LD 


A,' ' 


• •962 




LD 


(RL).A 


• •963 




LD 


A,E 


• •944 




CP 


■ 


■•MS 




m 


I.REDIHI 


• •96* 




DEC 


B 


MMT 




IRC 


■L 


•■•*( 




JP 


REDIH7 


MM* 


RtDim 


u 


bWBbSBH 


•M7( 




LD 


(RL) .*db 


••971 




DEC 


BE. 


mm 




LD 




••971 








• •974 




LD 


A,l 


••975 




LD 


(EOT), A 


••97* 


UADtrr 


m 


m 


••977 




RET 




••971 














••979 








11)11 








•(••1 








((9(2 








• •983 








88914 


RDHSEC 


PUSH 


K 


• •985 




KM 


HI, 


••986 




POP 


BC 


••987 




LD 


DE.KAPDCB 


• •981 




CALL 


READDR 


• •989 




PCP 




• •998 




RET 




• •991 




■JR 


I 


• •992 




FV.SH 


IIP 


• •991 




LD 


HL.RDHSG 


••994 




CALL 


VDLIRE 


••995 




POP 


AT 


• •994 




JP 


ERROR 



• •997 

• •998 

• •999 

• KM 

■ 1)11 

•ia*2 

• ll«3 

• 1((4 

• 1(15 
ilM* 

• 1»«7 

urn 
■IN* 

• !•:• 

■1(11 

• 1112 

• 1*13 

• 1(14 
(1115 
(1(16 

• 1(17 

• ltl) 

• 1)19 

• 1121 
(1(21 
(1(22 
•1123 

• 1124 

• 1(25 
(IBM 

• 1(27 

• 1124 

• 1*29 
•IBM 
Hill 

■ 1(12 

• 1(11 
•1(14 
(1(15 
(1(36 
(1(17 

• HJI 

• 1(19 

• :•*• 

• 1*41 

• 1(42 
11141 

• 1(44 
•1(45 

• 114* 
•1B47 

• 1141 
•1*49 
I1ISI 

• 1*51 

• 1(52 
11*51 

• 1154 
(1*55 

■ 1(56 

•1BS7 

• 1151 

• 1*5* 
•1MB 

• 1*41 

• 1*62 

• 1(61 

• 1(64 

• IMS 

• 1M6 

• 1M7 

inn 

• 1M9 

• 1*7* 

• 1*71 

• 1*72 

• 1(71 

• 1(74 

• 1*75 

• 1*7* 

• 1(77 



OUTREC LD 



0UTR4 PUSH 



■ 

OOTM IOC 
CALL 
CALL 
CALL 
CALL 
LD 
CALL 



OOTHSG Dtrl 

DETR 

TBC DB» 

TOE DETW 

THL Dcm 



i last sector routine 



bytes to blank out 



l BOP reached 



while reading NAP indei fill 



(TBC) ,8C 

(TOE) ,DE 

(THL) ,BL 

CURPOS 

(CURSOR) ,BC 

B.I 

C.55 

POBCDR 

■L.OUTHSG 

VOL IBB 

BC, (CURSOR) 

POSCUR 

BL.RECBUP 

BL 

A.(BL) 

(OUTCBR) ,A 

HL.OOTCHR 

DE.OUTDCB 



loutput record 

I return if file closed 



ijp to error bs<j 



terror sect la 



TAPER? 

: E , C--JTDCB 
CLOSE 
A, •«• 

(ORCCE).A 
A.'C 

(OPSTAT) ,A 

CURPOS 
(CURSOR) ,BC 
B,( 

C55 

POSCUR 

ERASEL 

BC, (CURSOR) 

POSCUR 

BC,(TBC) 

DE.(TDE) 

■L,(THL) 



file so proaraa Bay continue 



PUSH 


DE 


PUSH 


BL 


LD 


HL.(IDCBCR) 


LD 


A.L 


CP 


• 


JP 


HI, pros tn 


CP 


H 


JP 


z.rposi 


SOP 




DEC 


BL 


LD 


(IDCBCR) ,BL 



ibacksp 1 sector in 



Lat*g9contnitd 
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SUPER FAST! 

Z80 

DISASSEMBLER 



*69 95 



Two pass operation - 
generates labels at 
referenced locations 

Generates Zilog 
mnemonics 



Allows 
labels 



user defined 



• Output to console, list 
or disk device(s) in any 
combination 

• Generates mnemonics 
for CP/M system calls 

• Illegal instructions 
generate define byte 
sequence 



Start and stop at any 
location in file 

Source or complete 
listing type output 



• Allows define byte, 
define word and define 
space directives 

• COMPLETE cross- 
reference 

• 28 page manual 

SPEED - disassembles a typical 1 7K . COM file, 
generating a 1 10K Z80 file (over 10,000 lines of 
source) and a 52K XRF file in less than 1 minute 
45 seconds using standard bios and 8" SS/SD! 
Available for Z80 CP/M and TRS-80 III 

L R Systems— 

1622 North Main Street, Butler. PA 16001 
(412) 282-0864 .340 

Terms add $2 shipping US, others $5 PA add 6% sales tax. 
Specify format required Check. MO. Visa. M/C. COD accepted 

Z80. CP/M TRS-80 TMs of Zilog. Digital Research Tandy Corp resp 




MODEL III 



MODEL 4 




Slate of the art technology in board design, our direct replacement ol Radio Shacks' 
internal RS-232 board, mounts inside the Model III or 4 on the existing brackets All 
cables, screws and complete mounting instructions are included. Non-technical 
people will find that installation is quick, straight forward and simple requiring less 
than 1 5 minutes to complete 

Total compatability with Radio Shack* and all existing software is maintained 
Software programmable baud rales from 50 to 1 9.200 baud are supported along with 
programmable word length, stop bits, and parity May be utilized m either half of full 
duplex operation _ _ „ , 

Outstanding Value 



At 
Only 



»69.» 5 



483 1 SOUTH HAMPTON Rf> LB41 
DAILAS TEXAS 75232 
214/JJO-UJ2 



.« 



Guaranteed One Full Year 
Dealer inquiries invited 

Please forward payment by a cashier 
check or money order. 

Visa or Mastercharge also accepted. 

Add J3.00 shipping & handling 
(Foreign orders quoted on request) 



WHAT REALLY IS 
INSIDE YOUR 
COMPUTER? 



Find out in INSIDE YOUR COMPUTER from Wayne 
Green Hooks. I.R. Sinclair takes the cover otT your comput- 
er and shows you what's inside and what it does. Novices 
will find information on: 

• Microprocessors •Input/output 
•Interpreters • Machine language 

• Registers • Logic operations 

A look at programming ties it all together— how .hardware 
and software make a microcomputer work. The informa- 
tion applies to any microcomputer system. A glossary of 
computer terms and an appendix on binary, decimal, and 
hexadecimal conversion make the book all the more 
valuable. 

812.97. softcover. 109pp.. 5*1 x8M>. ISBN "088008-058 1 

(nil TOLL FREE 1 800-258 54 73 tor credit card orders. Or mail your 
order with payment or complete credit card Information Include 81.50 

lor shipping and handling. Photocopy ot coupon I, acceptable lor orderlnR 



Send to: 

Wayne Green Inc. 
Attn: Book Sides 
Peterborough, NH 03458 
Dealer Inquiries Invited 




Yes, I want to know what's inside my 
computer! 

Send mc copies of INSIDE YOUR COMPUTER. (BK7390) En- 
closed is SI 2.97 per copy plus 81.50 shipping and handling. 
□ MASTERCARD bank - DVTSA LAMEX 



Card' 

signature 

Nam* 

Address 

Cliy 

Send To: WAYNE GREEN HOOKS 

UPS DdfMn II 



_Eapfcn ■ 



lln.Book Sales 
ptele street address, Is given 



|vicrl«.np.igh N II 0Q49fl 

33DB8I 



* S—Uttot AcMxIlsefs on Page 291 
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an innovative word processing system 

80 X 24 character 
word processing 



NEW 



■ Use with any Model III DOS or TRSDOS 6 

■ Compatibility with 64 character version 

■ simple, powerful, forgiving; new computer owners 
can easily master its one-key editing commands 

■ special purpose extensions available: 

LAWYERS: make fast revisions to legal documents 
with LazyDoc 

BUSINESSES: let LazyMerge print beautiful form 
letters after you've gone home 
EVERYONE WITH AN EPSON OR PROWRITER 
PRINTER: create and print your logo or letterhead 
with LazyFont large selection of free fonts and 
graphics to get you started 

PLUS OTHER EXTENSIONS - SEND FOR FREE 
INFORMATION. All Lazy Writer owners get free news- 
letters and low priced updates 

"Lazy Writer has long been highly regarded ... the best 
supported word processor for the TRS-80." 
80 Micro, June 1983. 

DEALER INQUIRIES WELCOME 

Still only $175.00 



AlphaBit Communications, Inc. **n 



Call Now 1 
MC/Visa 
accepted 



13349 Michigan Ave. 
Dearborn, Michigan 48126 
(313) 581-2896 



220 • 80 Micro, December 1983 



Listing 9 continued 








•if? e 




CALL 


DSPSNR 






81879 




POP 


DE 






IlISi 

•ltsi 
DM 




RET 














iSEANSG 




81*83 
•1164 












jdiaplay 'Searching' mag 




HM 


SEAMSG 


PUSH 


DE 






• 1186 




PL'SH 


HL 






iimt 




CALL 


HOKE 


icliel 




•lias 




LD 


HL.MSGSEA 


I ■.-(![ :-. :- ; '83 




llMt 




CALL 


VDLINE 






■ 1191 




CALL 


NEWLN 






81091 




POP 


HL 






• 1892 




POP 


DE 






• 1*93 




RET 








■MM 












• 1*95 








IHENUI2 




nm 

■MM 












jminl-menu routine 




11198 


HEHU12 


CALL 


HOKE 


jrlicl 




■Mil 


KENU12B LD 


HL,HSGM2 






inn 




CALL 


VDLINE 






mil 




CALL 


BBWAIT 






•1182 




RES 


5, A 






• 1183 




CP 


•C" 






•1184 




RET 


I 






81185 




CP 


'O' 






■MM 




JP 


Z.K20PT 






811(7 




CP 


'T' 






• 1188 




JP 


Z.H2CHD 






81189 




CP 


•H' 






• 1118 




JP 


Z.M2CND 






•1111 




LD 


A, "O 1 






81112 




RET 




l return to Entar (ay 




81113 


M2CHD 


PUSH 


MP 






•1114 




LO 


A, (OTSTAT) 






•1115 




CP 


• c . 






81118 




JP 


I.R2CHD3 






81117 




LD 


DE.OOTDCB 






81118 




CALL 


CLOSE 


■cloae output file 




•111* 


H2CXD3 


CALL 


VDINIT 






81128 




CALL 


VDCLS 






81121 




POP 


AT 






81122 




CP 


'T' 






81123 




RET 


I 






81124 




LD 


8L,NAPCMD 






•1125 




RET 




lA - •»• ao Mt up buffer 




• 1128 


N20PT 


HOP 








• 1127 




CALL 


OPT 


1 opt lone 




•112( 




LD 


A.'O' 






• 1129 




PET 








lllll 


. 










• 1131 


OPNOUT 


HOP 


[Open 


output file 




• 1132 




LD 


A, (OTSTAT) 






• 1133 




CP 


•O' 






•11)4 




HIT 


1 






• 1135 




LD 


DE.OUTDCB 






• 1136 




LD 


BL,O0TBUF 






• 1137 




LD 


6,1 






81138 




CALL 


OPINIT 






• 1139 




JP 


Z.0P0UT4 






• 1148 




PUSH 


AP 


; error in opening file 




81141 




LD 


B,PENULN 






81142 




LD 


C,I 






81143 




CALL 


POSCUR 


terror sag on penult mate lin 




81144 




POP 


AT 






81145 




CALL 


ERRDSP 






• 1148 




CALL 


BOTTOM 


;tap ent mag on bottom line 




•1147 




CALL 


TAP EST 






• 1148 




LL 


A, "C* 






•1149 




LD 


(OPSTAT) ,A 






run 




RET 








•1151 


OPOUT4 


LD 


A.'O" 






• 1152 




LD 


(OPSTAT) ,A 






•1153 




RET 








91154 
• 1155 












PARPOR 


HOP 




;paragraph format 




81156 




LD 


A.2EH 






81157 




LD 


BL.CP2E2 






•1158 




INC 


HL 






81159 




LD 


(HL).A 






• 116) 




LD 


HL.CP2E4 






• 1161 




INC 


HL 






•1142 




LD 


(HL).A 






•11*3 




LD 


(PSEOR) ,A 






•1164 




LD 


A.'L" 






• 1165 




LD 


(SDNODE) ,A 


i display mode - line 




•1166 




LD 


HL.HSGPP 






81167 




CALL 


VDLINE 






81168 




RET 








81169 
81178 












RECFOR 


NOP 




) record format 




81171 




LD 


A.IDH 






81172 




LD 


HL.CP2E2 






81173 




INC 


BL 






81174 




LD 


(HL) .A 






81175 




LD 


BL.CP2E4 






(1176 




INC 


HL 






•1177 




LD 


(HL) ,A 






•117t 




LD 


(PSEOR), A 






•1179 




LD 


A, •«• 






• 1188 




LD 


(SDNODE) ,A 


jdiaplay mode - record 




81181 
61182 




RET 








• 1183 


DSPSNR 


NOP 




jdiaplay aector number 




• 1184 




PUSH 


BC 






61185 




PUSH 


DE 






11186 




MM 


HL 






81187 




PL'SH 


IX 






81168 




PL'5H 


IT 






•111* 




CALL 


CDRPOS 






• 1198 




LD 


(CURSOR) .BC 


leave current cureor poa 




61191 




LD 


BC,11 






•11*2 




CALL 


POSCUR 


,-rlicl2 




11193 




LO 


HL.(IDCBCR) 


;LRL 




81194 




CALL 


DSPNBR 


jdiaplay no. 




81195 




LD 


BC, (CURSOR) 






91196 




CALL 


POSCUR 


jreatore cursor 




• 1197 




POP 


IY 






61198 




POP 


IX 






•119* 




POP 


EL 






■MM 




POP 


DE 






•12(1 




POP 


BC 






•12*2 




RET 








• 12(3 

• 12(4 












LSTSEC 


DEFW 




;laat aect no new atorage 




• 12(5 








jbeyond this point 




• 12)6 


CMSEC 


DEPW 


a 


jcurrent NAP sector 




•12*7 


NXTNAP 


DEPW 


a 


j next map page 
llast map byte 




• 12)8 


MAX MAP 


DEFW 


a 




• 12(9 


TBYTE 


DEFB 


a 


j total hash byte 




•121* 


TTBYTE 


DEFH 


a 


j temp total hash byte 
j hash word len 




• 1211 


WDLEN 


DEFB 


8 




• 1212 


HIT 


DEFB 




il -> key(s) found 





Listing 9 continued 






• 1211 


KXTKEY 


DEFW 


f 


miit »ey in EEYBUP 


■1214 


OPER 


DEFB 


t 


(operation ••andi l»or 


11215 


NXTOP 


DEKB 


• 


inait operation 


• 1216 


ENDKE* 


Dire 


• 


jl-end of keys reached 


• 1217 


CLRN 


DEFW 


8 


■current LRU 


• 1218 


llrn 


Mm 


8 


llaat LRN 


• 1219 


SPWORD 


DEFB 


1 


(<S) pace or (W)ord 


■122* 


BOP 


DEFB 


8 




•1221 


MODE 


DEFB 


1 


;liat or search aode 


•1222 


SDHODE 


DEFB 


• 


(Search diaplay aode: line, rec, all 


• 1223 




DEFB 


I 


I EXTRA 


•1224 


PRHODE 


DEFB 


'H' 


,-output aode (C)ontlnuoua or (manual 


•122S 


OPCOHD 


DOT 


■c 


(output file: (C)loae, (Rletet or (A)ppend 


•122C 


OP STAT 


DEFB 


«c« 


(output file atatuai (CJloaed or (O)pen 


• 1227 


OHODE 


DEFB 


'H' 


■output aode (C)ontlnuoua or (H)anual 


• 122> 


B256 


DEKB 


8 


latorage laat byte SINBUP 


• 1229 


LINENR 


DOT 


I 


■ line nuaber for DSP 


• 123) 


NINSET 


DEFB 


2 


mo. of spaces to inaet 


• 1231 


SINSET 


DEFB 


1 


■storage for inset 


• 1232 


PS EOR 


DEfB 


BDH 


ipse udo EOR 


• 1233 


lilt 








• 1234 


CPILE 


DEPS 


* 


(current file name iiiiin<3 


11233 


NXTREC 


DEFW 


• 


(aba position of next rec 


• 123C 


SINBUP 


DEPS 


2M 




•1237 


IBBOP 


DEPS 


255 


(aecond source bnf 


•123* 


I1BHJPE 


DEFB 


• 


|by*e 234) of XBBOr 


•123* 


ibboptj 


DBPB 


• DB 


land of record Bark 


•1241 


rbcbop 


DIPS 


2Sf 




•1241 




DEP1 


IDE 


(EOR aart 


• 1242 


HAFBUP 


DEFS 


256 




•1241 




DEFB 


• DB 




• 1244 


OOTBDP 


DEFS 


256 


(output buffer 


• 1245 




DEFB 


8DB 




• 1246 


OPNAHE 


DEFB 


SDH 


(output file nana 


• 1247 




DEPM 


, 




• 1248 




DEFB 


i?DH 




• 1249 


HSHBUF 


DEFS 


M 




• 1251 


KEYBUF 


DEFS 


M 




• 1251 




DEM 




(eatra apace if needed!! 


• 1252 




DEFB 


1 : | 




• 1253 


en 


•m 


si 




• 1234 




DEPB 


• DB 




• 1253 


HSGPF 


DEFH 


'Paragraph Fora 


at' 


• 1256 




DEPB 


BDH 




• 1257 


HSGRF 


DEFH 


'Record Foraat 




• 1258 




DEPB 


BDH 




• 1259 


HSCOP 


DEPH 


•PILES OPENED' 




01261 




DEPB 


• DH 




01261 


HSGEOP 


DBFH 


'END OF PILE' 




• 1262 




DBPB 


8DH 




81263 


HAPCHD 


DEPH 


'HAP' 




• 1264 




DEFB 


8DH 




• 1265 


CODE 


DEPH 


'HINDEX 1.2' 




• 1266 




DEFB 


• DB 




• 1267 


TITLE 


DEPH 


'HAP SEARCH PROGRAM 1.2' 


• 126 8 




DEPB 


3 




• 1269 


CPYHSG 


DEFH 


Mel Copyright 


1983 Softahell' 


• 127« 




DEFB 


J 




• 1271 


THREE 


DBTH 


'Each kay mat 


contain at leaat three ' 


• 1272 




DEPH 


'charactara' 




• 1273 




DEFB 


• DH 




81274 


HSGNAH 


DEFH 


'File Nana! ' 




01273 




DEFB 


3 




81276 


PNEHSG 


DEPH 


'Error In file 


name foraat' 


81277 




DEFB 


•DH 




81278 


HSGH2 


DEPH 


■(C)hange Pile 


(H)AP. (O)ptiona or (T)RSDOS: ' 


• 1279 




DEPB 


•3 




81288 


MAPRD 


DEPH 


'HAP READ COMPLETE' 


• 1211 




DEFB 


• DH 




■ 1282 


HSGIEY 


DEFH 


'Enter Kay ' 




• 1281 




DEFB 


3 




• 1284 


MSGSEA 


DEFH 


'Searching ■ 




•1285 




DEFB 


3 




• 1286 


QINSET 


DEFH 


' Inaet • 




01287 




DEPB 


3 




• 1288 
012B9 

• 1290 


CURSOR 


DEFW 


• 


(curaor position 








(buffera used by 83 


81291 
01292 
















(general purpose variables 


• 1293 


ANSWER 


DEPB 


1 


(one byte key In variable (T/N etc) 


• 1294 


CHDLPS 


DEPB 


8 


(cad Una file spec (Y/N) 


• 1295 








(indlcataa whether file spec 


• 1296 








;>n entered along with HISDEX cad 


• 1297 








(haah routine variables 


• 1298 


rBYTE 


DEFW 


• 


(haah value of first byte of triplet 


• 1299 


HBYTE 


DEFW 


8 


(haah value of aiddle byte of triplet 


•111* 


LBYTE 


DEPW 


* 


(haah value of laat byte of triplet 


• 13)1 


SCROSS 


DEFB 


• 


(sector cross variable 


• 1302 








(if • then sector boundary la not 


01303 








(croaaed by a record 


01304 








(if >• then the value in SCROSS 


81385 








da equal to the no of bytes in record 


813)6 








iprlor to end of sector 


• 13>7 
81318 

• 13(9 


BICT 


DEPB 


1 


(bit points to sector (•.to 7) 


' 






[BEADER buffer 


• 1311 

• 1111 
















[byte label purpose 


• 1312 








[ 8- 9 HSEC * hindex* and veraion 


• 1311 








.-18-18 IDS 


• 1314 








[11-11 HSECPF foraat: (DH record 


• 1315 








1 '.' paragraph 


• 1316 








(12-19 blank (for future uae) 


• 1317 

• 1318 
81319 








l2«-43 HPN source file spec 




END 


BEGIN 





UNITED SOFTWARE 
ASSOCIATES 

PRESENTS 

ULTRA TERM 

A FULL FEATURED TERMINAL PROGRAM 

The Ultra Term communications package is one of the easiest to 
use and most versatile communicatior.s programs available (or the 
TRS-80 It includes a full featured intelligent terminal program, with 
all the popular features of competing programs costing two to three 
times as much, and some new features that can't be found 
anywheie else at any price Ultra Term also includes a self 
relocating host program, and hex conversion utilities for bulletin 
board downloading Some of Ultra Terms unique features are: 

• Supports both manual and auto dial modems 

• Exclusive Ultra Term direct to disk file transfer mode, allows 
unattended operation at the receiving computer 

• Exclusive split screen feature allows simultaneous two way 
communications without confusion 

• Line printer support with a 1 K print buffer 

• Half and full duplex support 

• Universal ASCII format file transfer with a 33K Buffer 

• A full featured host program 



• ULTRA TERM 


$59.95 


• LYNX MODEM 


$249.00 


• INFOEX80 


$99.95 


• ANCHOR 1-300 


$89.95 


• M-TERM 


$69.95 


• HAYES 300 


$249.00 


•COMMBAT 


$44.95 


• HAYES 1200 


$619.00 


• PIANO SOFTWARE 


$34.95 


• US ROBOTICS 




• ORCHESTRA 85/90 


$89.00 


1200 


$399.95 



ORDERS 305/9b5-349b BBS 305/842-2687 
TECHNICAL INFORMATION 305/842-8805 (5 00-9 (Ml E ST) 

734 Flamingo Way, North Palm Beach. FL 33408 



AAAAAAAAAAAAAAAAAAAAA 

A OMNITEK COMPUTERS INTERNATIONAL, INC. A 
1 300 MAIN STREET TEWKSBURY, MASS 01 876 
617-851-4580 -195 



Program Listing 10. Assembly-language listing of S30OPEN/SRC. 



• 8883 

• •••4 

• •••5 

• •••« 

• •••7 

• •••8 



I 

(SEARCH INFORMATION RETRIEVAL PROGRAM 

[ROUTINE TO OPEH PILES 

(COPfRlGHT H«, SOfTSHEU, CORPORATION 



ALL RIGHTS RESERVED 



S30PEN PSECT 



[begin relocatable prograa sectic 



Listing 10 continued 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A 
A 

A 

A 

A 
A 
A 



CBM64 CALL 

Verbatim 5.2 5 " D.L 2 5.00 

5 tt " Head Cleaning Kits 4.00 each or i for $ 1 0.00 

Okldata Mlcrollne 80 299.00 

Okhiata MlcroUne 82A „ 399.00 

Okldata Mlcrollne 83 A 629.00 

Okldata Mlcrollne 92 ( 1 60 CP.S.) corresponds mode 499.00 

Okldata Mlcrollne 93 799.00 

New BMC Printer.. „ 299 .OO 

1 3" Green Monitor 99.00 

B.M.C. 13" Color Monitor 299.00 

Epson FX 80 FT 539.00 

Epson MX- 1 00 629.00 

Radio Shack M/4 w 64K 999.00 

1 699.00 



ladk> Shack M/4 w/64K and 2 40 Trk.. 



and RS232 1787.00 

40 track economy drive Power S4tpply with case 1 79.00 

Tandon drives with Power Supply and case 

40 track slnglehead 249.00 

dual head 339.00 

80 track slnglehead 299.00 

dual head. „ 399.00 

5.25" Power Supply and case 39.00 

"BASF 40 track D.D. 5 'V new disk drive, as Is, 

no return .„ 89.00 

8" Power Supply and case 89.00 or 1 for 790.00 

Call for popular D.W. Printer Prices 

Full Commodore Line CALL 

OMNITEK COMPUTERS INTERNATIONAL, INC. 

TRS-80 is a reg trademark o( Tandy Corp Prices are lor mall order only TERMS 
Check money order. Mastercard and Visa accepted F O B Tewksbury-freight e« 
tra Minimum J 5 00 S 8. H Mass residents add S\ sales tax Write for fRU 
CATALOG 



A 
A 

A 
A 

A 

A 
A 
A 
A 
A 
A 

A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



^^9 9^9 ^*W ^^9 ^p^B ^»^R ^^9 ^*^R ^p^R ^p^R ^p^R ^^9 9^9 ^»^R ^»^R ^*^R ^»^R ^p^R 99m R^a* 999 

80 Micro, December 1983 • 221 



Listing 10 continued 



f(f(9 
Hilt 
•fill 
•1(12 

• 1)13 

• ••14 
IM1S 

• ■•16 

•••n 
one 

• ••19 

• *I2> 
•••21 

• ••22 
•1(23 

• ••24 
•••25 

• ••26 

• ••27 

• ••28 

• ••29 
■ Mil 
•••31 

• ••32 

• ••33 

• ••34 

• ••35 

• ••36 

• ••37 

• ••38 

• ••39 
(»I4( 

• ••41 

• ••42 

• ••43 

• ••44 

• ••45 

• ••46 
•••47 
•••48 

• ••49 
•••51 
•••SI 
•••52 
•••53 

• ••54 

• ••55 

• ••56 
•••57 

• ••58 

• ••59 
B886B 

• ••61 

• ••62 

• ••63 

• ••64 

• ••65 

• ••66 

• ••67 

• ••68 

• ••69 

• ••7> 
•••71 

• ••7 2 

• ••7 3 

• ••7 4 

• ••75 

• ■•76 

• ••77 

• ••78 

• ••79 
98888 

• ••81 

• ••82 

• ••83 

• •884 

• ••85 
•••86 

• ••87 
•••88 
•••89 
•••91 

• ••91 
•••92 

• ••93 

• ••94 

• ••95 

• ••96 
•••97 

• ••98 
•••99 

• •111 

• •181 
01182 

• 81B3 

• 8184 

• 8185 

• •1(6 
••1(7 
81188 

• •119 

• •IK 
••111 
88112 
••113 

• •114 

• •115 

• •116 
••117 

• •118 
••119 

• •121 

• •121 

• •122 
••123 

• •124 

• 8125 

• 8126 

• •127 

• •128 

• •129 

• •138 

• •131 

• •132 
••133 
••134 
••135 
••136 
■•137 

• •138 

• •139 

• •141 

• •141 
••142 

• •143 

• •144 

• •145 

• •146 

• •147 

• •148 

• •149 

• •158 

• •151 

• •152 
•1153 

• •154 
II l« 

• •156 

• •157 
••158 
••159 



P08LIC GETPILE 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



CODE 

INBUP 

KEYBUP 

KAPBUr 

LSTSEC 

MAX HAP 

HEHU(2B 

HXTNAP 

OP NAME 

PARPOR 

RECTOR 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 

EXTERN 
EXTERN 
EXTERN 

EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



BOTTOM 

CLOSE 

CURPOS 

DIS8RK 
DIVIDE 
DOSCKD 
ERASEL 
ERASES 
ERRDSP 



XBLIN3 
KBLINE 
KBHAIT 
KEY I* 
NOVELN 



POSCUR 

POSEOP 

POSN 

PRINIT 

PRUNE 

PRSCN 

PRTBLN 

PRTREC 

READDR 

SETILR 

SETHLR 

STMEND 

VDCHA* 

VDCLS 

VDINIT 

VDLINE 

KRITKX 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



INDCB 

IDCBRL 

IDCBCR 

IDCBLR 

INLLR 

IDC BOS 

NAPDCB 

HDCBRL 

HDCBCR 

HDCBLR 

KAPLLR 

HOC BOS 

NEHEND 

OOTCHR 

OUTDCB 

PRTBUP 

SORLN 

STHAP 



ARROWD 
ARRONL 
ARROWR 
ARROWU 
BRXKEY 
CPYPOS 
PENULN 
SWIDTH 



EXTERN 




EXTERN 


BXDEC 


EXTERN 


DECXB 


EXTERN 


DLINE 


EXTERN 


DSPNBR 


EXTERN 


DSPNBRL 


EXTERN 


EATBNX 


EXTERN 


PSPEC 






EXTERN 


LINE 


EXTERN 


PACKPS 


EXTERN 


PARSEP 


EXTERN 


REC8 


EXTERN 


RECBL 


EXTERN 


TAPENT 


EXTERN 


SNAN.SE 



icmd line file spec (Y/H) 

I Indicate* whether file spec 

islong with SEARCH end 



alls to HODII or NODIII 



[position cursor to last line of screen 

iclose file (DE->DCB) 

■•determine cursor pos (coor:8C) 

[disable break (for Model II) 

;divide A into HL 

; IP to TRSDOS and execute command 

;erase to end of line 

;MAP error display routine 

iTRSDOS error msg routine 

[position cursor to top line of screen 

[initialise file (create/open, pos to 1st 

l (DE->DCB, HL->rec buf) 

l]p to TRSDOS 

iget char (or null) froa Keyboard 

linitlallse keyboard (Hod II) 

;get line (torn keyboard and end with 13 

;get line froa keyboard and end with »DH 

iwait for char froa keyboard 

iget search key(s) fora keyboard 

,-aove line froa screen to buffer 

;HI.->tuf, D-no. char, BC-cursor coor 

.-open file (DE->DCB, HL->record buffer) 

lopen and Initialise file 

I (DE->DCB, HL->record buffer) 

;posltion cursor (coordinates in BO 

.-position to end of file 

iposltion to record in file 

i initialize printer 

: print line (HL->buf, B-no, 

;print entire screen 

iprint last line of text 



C-end char 



ead fll 
et INLRR t 
et HAPLLR 



dir 



[display char in A register 

.■clear screen 

[initialise video I/O (for Model II) 

.-display line (RL->msg) 

[write next record to file 



,-HODII/III buffers and I/O paraa 

.•INput (sourcelfiieDCB " 
l Input file DCB Record Length 
.•Input file DCB Current Record 
.•input file DCB Last Record 
;true last record of source file 

ilnput file DCB xxxxxxx 
;HAP (index) file DCB 
;Hap file DCB Record Length 
iHap file DCB Current Record 
,-Map file DCB Last Record 
.-true last record of index file 
,-Map file DCB xxxxxxxx 
[contents ->top of aeaory 
.■record buffer (1 byte) for outp 
i output file DCB 



ipr 



uffe 
start of record line no. 
istart of HAP index file 
;of SEARCH program) 

I I/O parameters* 
[down arrow 
;left arrow 
irlght arrow 
jup arrow 
ibreak key value 
jcopyright notice positlc 
mext to last line on scr 
■•screen width (88 or 64) 



alls 



(gener 



utlnes) 



jappend on string to ano 

.-binary to decimal conve 

;declmal to binary conve 

.-display dotted line (e.i 

.-display 5-dlglt decimal 

idisplay 5-dlglt decimal 

I remove leading blanks 

;move cmd line file paec 

jget MAP file names 

.■display line I froa char 

ipack (compress) file spec In fi 

,-parBe one file spec 

izero-out 256-byte recon 

;blank-out 256-byte reco 

l 'Tap enter to continue' 



eg 



;GR buffe 



l index file 



DE.HAPDCB 

CLOSE 

DE. INDCB 

CLOSE 

BC, 2*256 

POSCUR 

ERASES 

BC, 3*256 

POSCUR 

BL.MSGNAH 

VDLINE 

B, PENULN 

C,f 

POSCUR 

HL,MSG»2 

VDLINE 

A,(CHDLPS) 
'Y' 

NI.GETPIL1 
BC, 3*256*11 
POSCUR 



file open 
file open 



I4icl 

'Pile Namet ' asg 



nd line file spec(s) 
file spec's given on cad line 
given 



H-.C12 

see file spec 
io»J program p 
[file spec in 



cad Un 

O lOOp b«va im i 

case the CMDLPS 



• •161 

••161 
••162 

• •163 
8(164 

• •165 

• B166 
8»167 
88168 
88169 
88178 
88171 

• •172 

• B173 

• •174 

• •175 
••176 
8(177 
8(176 

• •179 

• •18* 
8(181 

• •182 
1(18} 
■ ■184 
•■185 

• 8186 

• 8187 
88188 
88189 
88198 
88191 
88192 
88193 
88194 
8B195 

• B196 
88197 

• •198 
8)199 

• I2M 
••2*1 

• •212 
■■2«3 
••2(4 
••215 

• •2(6 
88287 

• •2(8 
182(9 
88218 
88211 
88212 
88213 
8(214 
(8215 
8(216 

• B217 

• •218 
8(219 
M22( 
•(221 
(•222 
•1223 
•1224 
••225 
■•226 

• •227 
■ (228 
((229 
8>23> 
88231 
(8232 
BB233 
08234 
08235 
88236 
88237 
88238 
88239 
8(241 
(•241 
((242 
••243 

• •244 

• •245 

• •246 
••247 

• •246 

• ■249 

• •251 

• •251 

• 1252 

• •253 

• 1254 
88255 
88256 
88257 

• •258 

• •259 
••26) 

• •261 
••262 
••26 3 
••264 
••265 
••266 
••267 
112(1 
1(269 

• «27» 
••271 
••272 

• •273 
•1274 

• •275 

• •276 
8(277 
(•278 

• 8279 
88281 

• •281 
■•282 
••283 

• •284 

• •285 
••286 

• •2(7 
••288 

• •289 
»»29» 
••291 

• •292 
••293 

• •294 

• •295 

• •296 

• •297 
88298 
88299 
88388 
88381 

• •3<2 

• •3B3 

• •314 

• •3(5 

• •3(6 
••3(7 

• (3(8 
((3(9 

• •311 



CETFIL1 LD 



CALi. 
CALL 
CALL 



BC.3*256»11 

POSCUR 
ERASEL 

| t U 

HL.XEYBUF 
KBLINE 
BRXXEY 
NJ,CTPIL2 



MENUI2B 

Z.DOSCMD 



file spec not entered o 
or invalid file spec fo 
so get file spec 
I4.C12 


cmd 
si cmd 




erase to end of line 

no more than 51 char in file spec 

use KEYBUP to bold tile spec 

key in file spec 

wa* break bit? 

Jp to CTPIL2 if break not pressed 



0PSRC3 NOP 



[erase to end of screen 

icall mini-menu 

i (MJAP7 

OP to TRSDOS and load MAP 

I (T)RSDOS? 

i)p to TRSDOS 

l]p back and get file name 



,-null ent 
[GTFILE4 



CALL 


EATBNX 


LD 


A,(BL) 


CP 


'7' 


JP 


:,'■■.■; 


LD 


HL, KEYBUP 


CALL 


GETMPN 


JR 


Z.fNOK 


LD 


BC, 8*256 


CALL 


POSCUR 


CALL 


ERASES 


LD 


HI..PNEHSG 


CALL 


VDLINE 


CALL 


TAPENT 


JP 


GETP I L 



(for help) entered? 
•HELP (ainibelp sere 
KEYBUP again 



op back and get file spec's 



HL.SNAft 
PACXFS 



j file name syntax OX 

lHL->source file name 

[DE->lndex file spec 

,-space compress source file spec 

land Dove to source file DCB 

:BL->index file name 

lDE->index file DCB 

ispace compress index file spec 

land move to index file DCB 

;HL->output file spec 

,DE->output file DCB 

,-space compress output file spec 

.-and move to index file DCB 



AP LD 


BC, 5*256 


CALL 


POSCUR 


CALL 


ERASES 


LD 


HL, IDXPIL 


CALL 


VDLINE 


LD 


HL.HAPDCB 


CALL 


VDLINE 


LD 


HL,HAPBUF 


LD 


DE.HAPDCB 


CALL 


OPEN 


JP 


I.OPHAP6 


PUSH 


Af 


LD 


HL.MAPOER 


CALL 


VDLINE 


POP 


AP 


CALL 


ERRDSP 


LD 


B, PENULN 


LD 


c,» 


CALL 


POSCUR 


CALL 


TAPENT 


JP 


GETPILE 


AP6 CALL 


SETMI.R 



I OPMAP 

lopen MAP index file 



ipt to index file spec 

;dsp HAP file name 

>HL-> Index file record buffer (ifrb) 

lDE->lndex file DCB 

I open index file 

lip 0PHAP6 if file open ox 

i save TRSDOS error code 

lHAP open error message 



lilt 



»1, 



xt to 
I Tap 

.-loop back and get file 
I set NAPLLR to true las 
I in index file 



lOPSRC 
I open s 



file 



BC.I 

DI.RAFDCB 

KEADDR 

I.CPSRC3 



HL.MAPBUP 

DE.CODE 

BC,9 



[first get header to dateraine which 

Ifile to open 

[header (sector I of index file) 

lDE->lnd.x file DCB 

I read header 

i]p to 0PSSC3 if read OK 

[display error mag 



mext to last lln 
iTapent to contln 
lloop back and ge 



of soruce file 

CODE to be compared to 



JP 


NX , BDRERR 


:sc 


DC 


J» 


PE.BDRLP 


jp 


BDROK 


LD 


BL, HEADER 


CALL 




CALL 


TAPENT 



t 'HINDEX 1.2' 

ino. of bytes 

■title of header 

;only 'NIMDEX 1.' Is checked 

■qet char fom CODE 

jcp to (HL) and inc HL 

;error In header If not equal 

;pt to next char in code 

/loop until 9 char in BC checked 

; 'MINDEX 1." present in header 

; header error Bfig 

jTapent to continue 

ijp back to b-eqinninq and start again 

; header ok 

iHL-> byte 10 in header 

iHL-> byte 11 in header 

jheader byte 11 contains indexing forma 

•code: '.' - paragraph format 

j SDH - record format 

jget Indexing format code 



prog for paragraph 



CO^if 



spar 

Ipara ( 
[display 'r 

•header format OX 
iget source file spec 
;HL-> byte a of heade 



rd fc 
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CHILD'S PLAY 

AN EDUCATIONAL PROGRAM FOR CHILDREN AGES 2 TO 7 YEARS 




This machine language program contains fast animation, sound 
affects, tunes, and speec h . The speech has two options: it can be 
generated by computer or by a VS 100 speech synthesizer (speech 
options described later). The program is easily controlled by a 
friendly menu-man who points to the options that may be chosen. 
The main menu contains four sections: •Learn the Alphabet 
•Learn to count *Leam Shapes • Learn Words. Each section con- 
tains three subsections which can easily be manipulated, giving 
twelve games in all. The menu selection is accompanied by a dif- 
ferent nursery rhyme tune for each menu. 

LETTERS 
This option allows the child to select letters at random, match the 
current letter displayed or type in the next letter. When a correct 
response is given, an animation associated with the letter moves 
across the screen, e.g., Z or Zebra. The computer says the letters 
also. NUMBERS 

This option allows the child to select the numbers zero to nine at 
random, match the current number displayed, or type in the next 
number. Men walk out on the screen equal to the number chosen. 
This section also contains speech. 

SHAPES 
This section allows the child to control the menu-man, moving 
shapes from the left hand of the screen to the right hand of the 
screen. The first level allows the child to pick up shapes using the 
spacebar. The second level, in addition allows the chiled to control 
the menu-man with the arrow keys. The third level puts a small 
'Bee' on the screen which the child must avoid while manipulating 
the menu-man and shapes. uu/\pr\c 

This final section allows the child to type in letters to form words. 
The first level asks for a word to be typed in, then to be repeated 



before another word can be tried. The second level prompts the 
child with a word which must be matched before an animation will 
appear on the screen. The last level shows the animation on the 
screen. Then the child must type in the correct word before the 
next animation is shown. This section contains speech also. 

SPEECH 
The program can be bought as a stand-alone program with 
computer-generated speech, which uses 'your' speaker amplifier. 
However, we have also made the program compatible with an 
'Alpha Products VS100' speech synthesizer for improved speech 
quality. (This can be purchased from 'Alpha Products' subject to 
availability). The speech is not available for a 16K machine. 
Software available for the TRS80* Models 1, III, and IV. Also soon 
available for the Tlmex. 16K tape (no speech). 32K tape. 32K disk. 
4BK disk. All programs for A ^ _ _ „ 

$29.95 

(Indiana residents add 5% sales tax: COD add $2.00) 



iName. 



.Address. 



City/StateVZip 

Total Enclosed $ 

Charge my VISA D 

Card# 

Signature 



. (Ai low 2 weeks to clear checks) 



MasterCharge D 
Exp. Date 



Indiana Software Group, inc. 

P.O. BOX 627 • COLUMBUS. INDIANA 47202 
•TRS80 « a registered trademark ot lantfy Corp 



TELEPHONE (812) 372-4042 



• 352 



^Srsr zwh 



f^S n 2543. 



^5»s 




\\ ii iilii 11 jTnj 



Ii II II II III II II II 



ii H ii iilii ii ii ii 



PI li BO BQ 11 il 8D DB 



I 







SYSTEM REFERENCE CARDS 

"This Is a quality document and Is beautifully con- 
ceived and produced. . . .1 am In awe of your magnificent 
document." 
H.W.W n Dayton, Ohio 



Send Check or Money Order 




CARD 


ORDER NO. 


PMCE 


MODEL 1: BASIC & Assembler 


FC10O2 


$4.95 


MODEL 1: BASIC Only 


FC1001 


2.95 


MODEL II: BASIC & Assembler 


FC1006 


5.95 


MODEL III: BASIC & Assembler 


FC1003 


5.95 


MODEL III: BASIC Only 


FC1004 


3.95 


COLOR: BASIC & Extended 


FC1006 


4.95 


POCKET: BASIC 


FC10O9 


2.95 


APPLE II + II PLUS: BASIC & 8602 


FC1008 


4.95 


APPLE II + II PLUS: BASIC Only 


FC1O07 


3.95 



NEW! 



RAINBOW 

CformcATiOH 

MM. 



NEW! 
Heath/Zenith 

HDOS 2.0 
FC1014 $5.95 


Z80 

MICROPROCESSOR 
FC1011 $4.95 


ZX80, ZX81 and 

Tlmex Sinclair 
1000 

FC1012J5.95 




Call TOLL-FREE for Credit Card Orders 1 -800-258-5473. Or, send your order with 
payment or complete credit card information to: 
WAYNE GREEN BOOKS • Retail Sales e Peterborough, NH 03458 'I^" , /T*~ , . , ' -w,,rt0 ' T ^f^_ . 

Enclose $1.00 per order for shipping and handling -ao ■«»»»»* !.««■— *- »»«.■« 



' S«9 List ot A<*nrtisans on Ptge 291 
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•fin 

••312 
pain 
••314 

• •315 
M31« 

• •317 
••311 

• •319 
••32* 

• •321 
••322 
••323 

• •324 
•I32S 
11326 
•■327 

• •328 
18129 

• •33) 
••331 

• •332 

• •333 
•1334 
M33S 
88316 
••337 

• 833B 
••339 
II34( 
••341 
••342 
••343 

• •344 
88345 
88146 

• •347 
8)348 

• 8349 
BB15B 

• •351 

• •352 

• •353 

• •354 

• •355 

• •356 
••357 
••358 
••359 
88368 

• 8361 
••362 
••363 
••364 
••365 

• •366 
••367 
••368 

• •369 
••378 

• •371 

• •372 
••373 
••374 

• •375 
••374 

• •377 
8817B 

• •379 
J838B 

• •381 

• •382 
••383 
•■384 

• •385 
81386 
88387 

BB388 

• •389 
88398 
88391 

• 1392 
•B393 
••394 
•8395 

• •396 

• •397 

• •398 

• •399 

• •4(8 
8(481 
••412 
••413 

• •4(4 

• •415 
••4(6 

• 14(7 

• •4(8 
8(419 
••41( 

• •411 
••412 

• •413 
••414 
••415 
■•416 
•(417 
(•418 
((419 
88428 
8(421 
((422 
((423 
((424 
((425 
((426 
((427 
((428 
((429 
8(43( 
((431 
((432 
((433 
((434 
((435 
((436 
((437 
((438 

• (439 
((44( 
((441 
((442 
((443 
((444 
((445 
((446 
((447 
(•448 
••449 
•■45( 
••4S1 
((452 
((453 
((454 
((455 
((454 
••457 
•(458 
((459 
8846B 
((4(1 
((462 



0PSRC5 LD 



0PSR5L LO 



IDC 
IK 
UK 



0PSPC6 LD 



call 

CAM 



CALL 
POP 
CALL 
CALL 



CALL 

CALL 

NOP 



LDIHSC DEFH 

DEPB 
LIMIT DBPH 

DEPB 
LIHIT1 DEPM 

DEFB 
LIMIT2 DEPH 

DEPB 



DE,2( 

IIL.L'h 

DE.INDCB 

APPEND 



HL.SDDR 
A,(HL) 
(DB 
Z.OPSRC5 



DB 
A,(DI 

(DE) ,A 
BL.SDDR 
APPEND 

BL.SKC'IL 
VDLINE 
BL.IKDCB 
VDLINE 



Z.OPSRC6 
Z.OPSRC6 



ERRDSP 

B.PENULN 

C.( 

POSCUR 

TAPENT 

CETPILE 

A,( 

(IDCBRLI .A 

SETILR 

LDMAP 



lHL->start of file spec 
lDE->source file DCB 
l trans file spec to DCB 

l If source file drive specified by 
luser append to current file spec 
iHL->source file drive spec 

i? EOR 

isHp if no source file dr specified 

.-source file drive specified so add 

i • : ' and drive no. 

■remember DE->end of sre file spec in DCB 



l add EOS to file spec 
ipolnt to source file drive spec 
jmove sre file drive spec to DCB 
I 'Source Pile: ' 



laove source file name to CPILE buffer 
iCPILB used to display file naae during 
■operation of program 
.HL->to source file spec 
lDE->CPILE (current file) 
I set counter to ( 

iwere eight char moved to CPILE 

.•IP to 0PSRC6 if 8 char in source tils n 

iget char from file spec 

l)P If e«t 

fjp If drive 

jjp if password 
■ copy file name char to CPILE 
jpt to next char in file spec 
ipt to next char in CPILE 

lloop until entire file naae traanferred 



rput (3 at end of file naae 

l(3 indicates end of record 

iwhen current file naae is displayed 

jVDLINE will not position cursor to n 

lBL->source file record buffer (sfrb) 

lDE->source file DCB 

i record len - ( 

lopen source file 

DP to 0PSRC8 if not error 

i save error code 

.•'Error in data/text file' sag 

1 restore error code 



meat to last line, 1st 
jTapent to continue 
lloop bacx and get file 



iset LRU record length) - 256 
iset INLLR to true last record 
i load as much of the index file 
l into memory as possible 



HL.LDIHSG 

VDLINE 

HL, (HEHEND) 

DE.512 

A 

BL.DE 

(LSTSEC) ,HL 

HL.STNAP 

(HXTMAP) ,HL 

ftC.B 

BC 



HL.MAPBUP 
DE, (HXTHAP) 

3C.256 



HL.DE 

CNOROOH 

LDHAPL 



HL 

BXDEC 

VDLINE 

UL.LIMIT1 

VDLIin 

HL, (HDCBCR) 

BXDEC 

VDLINE 

HL.LIKIT2 

VDLINE 

TAPENT 

HL, (NXTMAP) 
(HAXHAP) .HI, 
BL.HAPRD 
VDLINE 



I LDMAP 

l loads map sectors int 



I no more storage beyond 
.■NXTMAP -> first map byt 



mem for HAP 



>end of map storage 

i (NAXMAP) - last map byte 



'Loading MAP Index' 

(DH 

'Memory not sufficic 

(DH 



ntire MAP Index' 



contained in 



IX 


BC, 5*256 


CULL 


POSCUR 


CALL 


ERASES 


LD 


HL.HMSG2 


CALL 


VDLINE 



((463 




LD 


a, fee 


((464 




CALL 


VDCBAR isklp line 


((465 




LD 


HL.HMSG4 


((466 




CALL 


VDLINE 


(•467 




LD 


HL.HMSG6 


• •468 




CALL 


VDLINB 


• •469 




LD 


BL.BMSG8 


88478 




CALL 


VDLIME 


••471 




LD 


B.PENULM 


••472 




LD 


C,« 


■•473 




CALL 


POSCOR 


••474 




CALL 


TAPENT 


••475 




JP 


GETPIL1 


••476 


HMSC2 


DEPM 




••477 




DEFB 


(DH 


• •478 


HHSG4 


DEFH 


■Only the source file specification is required' 






DEPB 


(DH 


• •481 








••481 




DEPB 


(DH 






DEPM 


'The output file may be specified from within the progra 


















••485 


NSG(2 


DEPM 








DEFB 


3 




HSCPP 


gen 








DEFB 


(DB 




MSGRP 






88491 




Mfl 


(DH 




HSGOP 














••493 








••494 




DEPB 


(DH 


••495 


HEADER 


DEPM 


■Error in MAP Index Pile Header' 


• •496 




DEFB 


(DH 


•(497 


MAPOER 


DEFH 


■Error in Attempt to Open MAP Index Pile' 






DFFB 


(DH 


((499 


DATAER 


DEFM 








DEFB 


8DH 


(•5(1 








BB582 




DEFB 


(3 




SRCPIL 


DEFB 




88584 




DEF1 


(3 










((5« 




DEFB 


3 


(85(7 


FNEHSG 


DEFH 


■Error in file name format' 


8(5(8 




DEFB 




88589 


HAPRD 


DEFM 


■MAP READ COMPLETE' 


98518 




DEFE 




((511 
((512 










END 





Program Listing 11. Assembly-language listing ofS3DSP/SRC. 



(•••l 

((((2 
((((3 

• 8884 
B(((5 
((((6 
((((7 

• •((8 
((((9 

• 1818 
(((11 
(((12 
(((13 
(((14 
(••15 

• ••16 
•••17 
(((18 
(((19 
S((2( 
(((21 

• ••22 

• ••23 

• ••24 

• 1*25 
•■■26 

• ••27 

• ••28 
■•■29 

• ••38 
■•(31 
(((32 
(((33 
(((34 
(((35 
(((36 
(((37 

• 8818 
(((39 
BBB48 
(((41 
(((42 
(((43 
(((44 
(((45 
(((46 
(((47 
(((48 
(8(49 
(((5( 
(((51 
(((52 
(((53 
(((54 
(((55 
(((56 
(((57 
(((58 
(((59 
B(868 

• ••61 
(8(62 
88(63 
88(64 
88865 



8((71 
81(72 

• ••73 
•••74 
■••7 5 
•••76 
••177 

• ((78 
(((79 
(((88 
(((81 
(((82 
(((83 
88884 

• 8(85 

• 8886 
8((87 

• ••88 
•••89 
•••9* 

• ••91 

• ••92 

• ••93 

• ••94 
■••95 

• ••96 



S3DSP PSECT 



PUBLIC 
PUBLIC 
PUBLIC 



elocatable program sectic 



ipublic routines 



BniPDN 
LIST 

DSP 



jbypass updown control buffe 
•list file routine 
(display record routine 



calls to MOOII or NODIII 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



XBLINE,«BLIN3,XBCHAR,XBWAIT, KEVIN, KBINIT 

EBBRK 

VDCLS, VDLINE, VuCHAR.VDINIT 

HOME , BOTTOM , NEWLN 

CURPOS , POSCUR 

SCRPRO 

ERASEL, ERASES 

OUTCHR 

PRIN IT , PRSCN , PRTBLN , PRTREC 

PRLI NE , MOVELN , PRTBUP 

POSEOP , POSN, READDR , WRITNX , BACRSP 



iHODII/III buffers and I/O paramete 

EXTERN INDCB, IDCBRL, IDCBCR, IDCBLR, INLLR, IDCBOS 

EXTERN MAPDCB,MDCBRL. HDCBCR, MDCBLR,MAPLLR,MDCBOS 

EXTERN OUTDCB 

EXTERN ERRDSP 

EXTERN SORLN,STM£ND, HEHEND 

EXTERN ABRO^.AKHOML.ARROWP, ARROW. RRI]rEY,Sl.IDTH,P£NlLN 



■S3 buffe 



INBOT , IN8UPE , INBUPU, NINSET, SINSET 
LINENS, SFWOKD , EOT . HSCEOP , SEAHSG 
OHODE, SDHOOE , PRHODE , MODE , RECBUF 
NXTREC 



EXTERN READIN,0P«OUT,OUTREC 



ills to GR (gener 



lie from start of current 
current record in RECBUP 
current sector in INBUP 
IX -> current sre sector 



T LD 


A, 'N' 


LD 


(BlllPDN) ,A 


CALL 


DLINE 


LD 


A,'l' 


LD 


(HODE) , A 


POSH 


IX 


PUSH 


IT 


PUSH 


IX 


POP 


BC 


LD 


HL,(NXTREC) 


CALL 


LIST1 


POP 




POP 


IX 


RET 





LD 


HL, INBUP 


JP. 


LIST2 


PISH 


HL 


CALL 


HOME 


LD 


BL,LISTX1 


CALL 


VDLINE 


CALL 


NEWLN 


re? 


HL 


LD 


A, (NINSET) 


LD 


(SINSET) ,A 


LD 


A, I 


LD 


(NINSET) ,A 


LC 


A,l 


LD 


(LINENR) ,A 




B.SWIDTH 



isave HL (-> INBUP) 

itlicl 

I 'Listing '13 



Listing II continued 



224 • 80 Micro, December 1983 



Seducti&t... 

mete than a pome! 



TRS-SO /-///-/ 



$+9.95 

taj 

adit/t ridee ifa/nes 
7325% Reseda M. 
Suite 637 Reseda, Ca. 
9/335 



X-rvted 



3400 ussr 

newsletter 



Word Processing/ Data Bist Newt 
for Model III, IV, & WO 
M«0 USM" ii ihe lirsl newsletter devoted primarily in WORD PRO- 
CCSSINC & DAI* BAM use to' Models III 1V. A 100 ll is inlrnsels 
rtjdi-r. jsc-r onentjied on ihe premise iKdi average users discover 
oulslandiiR timp-vjvmg iclejs jnd warn In srijr* We publhh ihese 
submitted gems the vets nc»i month using simple low-budget poll- 
ing methods Includes monthly Tl TORI V nn some ispeel ol svO'd 
p'ocessing/dju bise »ou tin use NOW * jctujllv see you' invest- 
ment produce' Corporate product news bugs & lues coveted 
promptly' Htt" is lo. nvrrjge Down to- 1 irih Word Processor 
Users who don t know then Peei Irom their Poke Mm~ is lor VOL 
the djv-Io-day user (H thjt'sjclujllv your secieury she II fove you 
lor subscribing ) Ion up belore Unujrv 64 & receive our IUST DO 
IT'** potter with your lirsl issue Submissions welcomed 124 00 per 



dm 



Send cash, check, money order lo: 

CREST SOFTWARE -™ 

2132Crestview Drive • Durango. CO 81 )01 

(303)247-9518 
tsj. VIC accrptt'd. include < jrii ■ disci expiration dale 



wabash 

six-year war ran teed -367 

DISKETTES! 

$18.95/box (10) 

with FREE library case! 

5V." single side, single-density; double-density 
add S2 box 8" disks comparably priced. Add $2 
per order shipping. In Illinois add 6% salts ta*. 
Immediate shipment on VISA. Master Card or 
Money Order; Add 14 days for personal checks. 

CALL TOLL FREE 3 
(800)222-1248 
In Illinois Call (312) 882-8315 

DEALERS! SCHOOLSI USER GROUPS! 

Call for our low volume discount prices' 



DIGITAL IMAGES 

Box 941005. SchaumburgIL 60194 



LIMITED OFFER 

NEWDOS - 80 ver. 2.0 
and DOSPLUS ver. 3.4 

A combined regular price of 
$299% 

Now $149.00 combined 

price 

or call for separate pricing. Offer 

subject to cancellation without 
notice. 









CALL TOLL FREE 
800-835-0071 




'r± t a. i nc. 

526 E. 4th -'42 
HUTCHINSON, KANSAS 67501 



" IS YOUR PRINTOUT FADING? 

THEN YOU NEED: 

RIBBON SAVER! 

REVITALIZE YOUR FABRIC RIBBON 

WITH "RJ-1000B"- APPLICATOR 

• Will revive all fabric cartridges, 
(except carbon) 

• Works on all FABRIC ribbons, (all 
colors and sizes) 

• Simple, no tools needed 

• Extend life of your ribbon up to 
3 times, or more 

• Can also be used to rejuvenate 
fabric home typewriter ribbon 

• Satisfaction guaranteed, or money 
back 

PRICE: S3.9S 
shipping & handling included in cont US 
(Foreign add $2 00 extra, (pay in U.S funds) 
NJ residents add 6% 

For heavily used ribbons order RP-2010B 
$1 00 extra (state color) 



send check or M to 
-202 



DESIGN COLORANTS 
P.O. Box 612 
Waynei, NJ 07470 

For VISA of M.C orders call: (201) 667 7545 



ESSJfly 



CUT YOUR PAPERWORK 
TO shreads with SIMPLEX 
FORMS PROCESSORS 

•♦ MLLTIPt RPOSK CHECK WRITER •• 

uses most Multl Duroose checks (or Payroll. Accounts 
Receivable, and fash Disbursement checks Each 
lype followed by SESSION REPORT lor further 
bookkeeping procedures 
Specify Model I or III Tape or Disk im.ss 

•• ML'LTI -PURPOSE KORM PROCESSOR •• 

Uses most multipurpose printed 8 ', X II forms or 

PLAIN PAPER Your choice 

Processes INVOICES. STATEMENTS. PURCHASE 

ORDERS, MEMOS 

Specify as above only Ml M 

"SPECIAL -COMBO PACK of BOTH •• 

Specify as above only m.n 

ALSO many tingle SIMPLEX PROCESSORS 
NEW programs _ soon - CONTRACTOR CERTIFIED 
PAYROLL. REG PAYROLL PAYABLES. RECEIVABLES 



DEALERS INVITED 



ESSJAY P.O Bo. S66 
Dy-rsburg TN 38024 Phono 901 285 1800 



FINALLY!! 

ARCADE GAMES AND 
GOOD GRAPHICS FOR 



MODEL 2, 12, 16 



$19.95 each - or two for $29.95! 

Galactic Invaders Munchman 

Quest for Adventure Meteors 

Space Trek Wormy 

Computer Casino Bust-out 

The Wrath of Ken Chess 

Racer X Othello 

Call or write for full game list 

KUZEL COMPUTER SERVICES 

8654 W. Berwyn Ave. #3S 

Chicago, Illinois 60656 

(312)399-0273 „ 3 S4 



Reviewers agree: quality documentation can 
mean success or obscurity for your program. 



FORMAN AND WILLIAMS 

DOCUMENTATION 

SERVICE 



We II evaluate your original program documentation for 
clarity, user friendliness, and salability. Then, with your 
approval, our marketing professionals will edit, revise, or 
rewrite documentation to help you create a total marketing 
package for your Basic program. 

Send your Model l Level II cassette or single-user Model 
1 1/ 12/16 8" f'oppy diskette, current documentation, prograrr 
listing, and self-addressed stamped envelope to 

FORMAN AND WILLIAMS 

3387 Del Rosa Ave.. North (Suite 113) 

San Bernardino. CA 92404 --451 

Programs will be returned only if accompanied with sufficient 

return postage and envelope 

NOTE Me do not evaluate or debug programs 

•••SPECIAL NOTE to Software Manufacturers. Computer 
Stores, and Mai Order Houses: send 110 SASE and your 
business card for information on our complete advertising and 
marketing services."- 



MEMOREX 

FLEXIBLE DISCS 



WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for prices and information Dealer 
inquines invited and CODs 
accepted 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
9340 1 In Cal call 
(800)592-5935 or 
805)543-1037 

•207 
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YOUR TRS-80 
NEEDS HELP 




It needs software before it can do anything. And good software 
is as valuable as any piece of hardware you can buy. 



The Encyclopedia for the TRS-80* is a ten-volume 
reference series with over 200 programs for the 
Model I, Model III, and Color Computer. In each 
volume, you'll find: 



* Business 


* Hardware 


* Education 


* Interfacing 


* Games 


* Tutorials 


* Graphics 


* Utilities 



Photographs, schematics, and program listings 
provide the essential detail you need for pro- 
gramming and tinkering. 



Save Time running the programs once you have 
them. Encyclopedia Loader provides direct load- 
ing of programs and saves you the time of typing 
and debugging. These ten 30-minute cassettes 
have selected listings from each volume, ready 
for you to load and use. 

Don't put up the white flag! Loaders and soft- 
cover Encyclopedias are available separately or 
in sets. Get some help for yourself and your 
TRS30 with Encyclopedia for the TRS-80* and 
Encyclopedia Loader. 



Toil-Free 1-800-258-5473 

•TRS-80 is a trademark of Radio Shack division of Tandy Corp 



ENCYCLOPEDIA FOR THE TRS-80* & ENCYCLOPEDIA LOADER 



TM 



To Order Single Volumes 

Please indicate quantities 
Softcover edition 6$10 95 per volume 

Vol 1 Vol J Vol S Vol 7 

Vnl 2 Vol 4 _ . Vol b Vol 8. 

Encyclopedia Loader @ $14 95 per cassette 

Vol 1 Vol J Vol ■> Vol 7 

Vol i Vol 4 Vol b Vol 8 

Encyclopedia Loader Volumes 1 -10 11800* 

A $149.50 value 

D Payment Enclosed 

Card # 

Name 




$119 97 



To Order Complete Set* (and save an extra SI 5.00) " 
1 Encyclopedia for the TRS-80- volumes 1-10. plus FREE 
volume I of Encyclopedia loader softcover edition 
ENBOB0L $109 50 

• *S<ive S1S00 shipping and handing charge When you <*der a com- 
plete set oi softcoser Encvcloped^ or loaders W, HAS. IHI SHIPPINC' 

Shipping and handling $1 SO per volume tor single volume* of books 
and cassettes. $10 00 per Hem lor foreign aw mail All Encyclopedias 
shipped UPS with complete street address, all Loaders shipped 1st 
class mail 



UVISA 
lnterBank#_ 



f'lAMEX 



[ IMasterCard 



Expires. 



Signature. 



Address. 
City 



Mail to: Wayne Green Inc., Books Sales, Peterborough. NH 03458 



.State. 



.Z.p. 
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PUT YOUR 

"TRS-80* 

IN CONTROL 




Interface your TRS-80 to out- 
side devices. Learn with the 
projects in TRS-80 as a Con- 
troller. You can use your 
computer to control lights, 
switches, and even a small 
computer you build yourself. 

All it takes is a minimum 
knowledge of electronics and 
programming. Circuits are 
simple. Most programs are 
fewer than fifteen lines long. 
The instructions are clear and 
fully illustrated with photo- 
graphs, schematics, and 
figures. 

Jerry O'Dell has designed 
these projects to be 
both easy and 
inexpensive. You 
don't need disk 
drives, plotters, 
digitizers or 
other fancy 
units. 




You don't have to be 
an expert and you 
don't have to be rich. 

All you need is a TRS-80 
Model III with 16K RAM. Level 
II BASIC, and a few other 
parts that you will no doubt 
find useful at a later date. (You 
can also use a Model I, with 
the conversions provided in an 
appendix.) The components 
you'll need are all readily 
available. 

The book begins with a de- 
scription of the Model III and 
Z80 and all the chips, circuits, 
prototyping boards, and other 
devices used in TRS-80 inter- 
facing. There are also helpful 
suggestions throughout for ex- 
panding the projects into more 
complex applications. 




Jerry W. O'Dell. Ph.D.. is a 
psychology professor at East- 
ern Michigan University. He 
has published many articles, 
including several in 80 Micro 
and the Encyclopedia for 
the TRS-80. 

BK7394 $12.97 softcover 
7 by 9 approx. 176 pp. 
ISBN 0-88006-O6 1-1 
Wayne Green Books 1983 

Credit card orders call TOLL-FREE 
1-80O-258-5473 or mail your order 
with payment of $12.97 each plus 
$1.50 per book shipping and 
handling to: Wayne Green Book 
Sales. Peterborough. NH 03458. 
Dealer inquiries invited 

( lit vk the box on the 
coupon ior your FREE 
WAYNE GREEN 
BOOKS 1983 
RETAIL CATALOG. 



Due to printer error, unavail- 
able until November 30, 1983 
We apologize tor any incon- 
venience 




[KBiiooirv 



copies 



* TRS-SO I* a 
trademark of the 
Radio Shack dlvl 
•Ion of Tandy Corp 



Put my TRS-80 in control. Please rush me 

of TRS-80 as a Controller (BK7394) at $12.97 each. 

[ ) Enclosed is $12.97 per copy plus $1.50 for shipping and 
handling, f 1 Please send me a 1983 retail catalog. 

; MASTERCARD MCbank* 

V "ISA ~. AMEX 

Card * Expires 

Signature 

Name 

Address 

City 

State 

All orders shipped UPS if complete street address is given. 

33DB8T 



Zip_ 
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• 1*97 
(••96 
•MM 
1(1(1 
(•1(1 
((1(2 
((1(3 
((1(4 
((1(5 

• (1(6 
((1(7 
••1(8 

• •1(9 
((IK 
(•111 
•(112 
(•113 
(•114 

• •115 
•(116 
M117 

•die 

((119 
81121 
••121 
(•122 

• 8123 
■•124 
((125 
031/6 

• •127 
((126 
((129 
8(1 il 
((131 
((132 
9(133 
•(134 

• (135 
((136 
((137 
((138 
(•139 
Kill 
((141 
((142 
((143 
((144 
(•145 
((146 
((147 
((148 
((149 
M15( 
••151 
•(152 
••153 
((154 
((155 
((156 
((157 
((158 
((159 
((16( 
((161 
1(162 

• •163 
•(164 

• •165 

• (166 
8(167 
((168 
((169 
((17( 
((171 
((172 
((173 
(•174 
((175 
((176 
((177 
•(178 
((179 
(1181 
•(181 
((182 
(•183 
((184 
((185 
((186 
((187 
((188 
((189 
((19( 
((191 
((192 
((193 
((194 
((195 
((196 
((197 
((198 
(•199 
88288 
((2(1 
((282 
((2(3 
8B284 
8(2(5 
8(2(6 
88287 
(8288 
88289 
88218 
88211 
8(212 
((213 
((214 
••215 
((216 
((217 
((218 
(•219 
((22( 
(•221 
((222 
((223 
((224 
••225 
•(226 
((227 
((228 
((229 
88238 

• •231 
••232 
••233 

• •234 
••235 
8(236 
((237 
(8238 
8(239 
((24( 
((241 
((242 
((243 
((244 
88245 
(8246 
(8247 



LIST3 CALL 



LIST3C CALL 



XOP. 
POP 



LIST4 U> 



LIST23 LO 



LIST48 LO 



JP 
LIST43 INC 
LDDR 
INC 
INC 
DK 
PUSH 
PC'SH 



L1ST45 LO 



:z 



DK 
OU 

PCP 

; ; 
■ ,; 

pa 

B 

rot 



LIST48 NOP 
LO 
Pl'SH 
PUSH 
PUSH 
JP 

LIST58 NOP 
POP 
POP 
POP 



1.LIST3C 

DSPWRD 

BJUT.KEY 

Z,LIST7( 

Z.LIST7( 

ARROWU 

Z.LISTB 

A,(HL) 

(DH 

Z, LISTS 

SPACE 

A, 'S' 

(SPWORD) ,A 

HL 

HL.INBUFU 



Z.LIST48 

DSPSPB 

BRKKEY 

I,LIST7( 

Z.LIST78 

ARROWU 

Z.LIST( 

A,(BL) 

8DH 

NZ.LIST3 



ILIST3 

■proceoa next word 

■ 9et next word 

; working with word 

isave HL 

l(DH Byte after INBUPE 

; restore HL 

■ get neat sec 



■display word 

l<break> ? 

l)p LIST7( If <break> 

■ was 's 1 pressed 

■ end, then search 

iwas uparrow pressed? (backspace) 



used 


(or 


listing 


only 














Cllt 


and 




search 






>ressed? 








and 


resume 


search 





■tart listing again 



::. 


DE.INBUPE 


:- kj 


HL 


vm 


A 


■K 


HL.DE 


• :-■ 




J? 


Z,LIST2( 


CALL 


UPDOWN 


a 


BM'ET 


» 


I.LIST7( 


a 


ARROWU 


jp 


Z,LIST( 


CP 


'8 ' 


JP 


Z.LIST15 


Lt> 


A.SWIDTH 


CP 


B 


JP 


1.LIST9 


CALL 


NEWUf 


LO 


B.SWIDTB 


INC 


HL 


JP 


LIST3 


CALL 


NEHLH 


LO 


A, 's' 


JP 


LIST78 



l)p if HL at end of buffer 

I flu (still 

■ exit and get next search key 
jup arw 

Ibacksp, so start listing again 
I [slearch cad 

■ exit and continue search 
lA-acreen width 

mew line? 

troll screen in new line needed 
i reset count for char printed on 
iHL->next char after (D 
l loop until EOR 
I roll screen 



UPDOWN 
BRXKEl 
Z,LIST7( 
ARROW 

Z , LIST( 



Z.LIST23 

NEWLN 

B.SWIDTH 

c,( 

A.'W 

ISPHORD) ,A 
DE.INBUF 

LIST48 



Kbreak>? 
icxit and get n 
llup arrow)? 
ibacksp, so sta 
I [slearch cmd? 



ecord extends past 



ch key 
again 



Z,LIST5( 

HL.INBUFE 

DE.ISBLT 

DE 

K 

B,( 

A,C 

( 

NZ.LIST43 

BC 

LIST48 

BC 



KL 



l has EOP been reached? 

I)p LIST5( If EOP 

[transfer remainder of INBUP to SINBUP 



.-include char before string to be transfe 
l trans to SINBUP 
.•adjust for lnc of BC 
■adjust for lnc of BC 
iDE-> 1st char of word 



.-HL->INBUrE-C 

lDE-> wrd start In SWBUr 

lHL-> wrd start in SINBUP 



((248 
((249 

((25( 
••251 
((252 
((253 
((254 
((255 
((256 
(•257 
((25( 
((259 
((26( 
((261 
((2(2 
((263 
((2(4 
((265 
((266 
((2(7 
((268 
8(269 
M2?( 
••271 

• •272 

• •273 

••274 
•(275 
••276 
8(277 
88278 
•(279 
88288 
((281 
((282 
((283 
((2(4 
((285 
((2(6 
((2(7 
((2(8 
8(289 
8(298 
((291 
((292 
((293 
((294 
((295 
((296 
((297 
((296 
((299 
(13(8 
((3(1 
((3(2 
((3(3 
2(3(4 
((3(5 
(•3(6 
((3(7 
((318 
6(3(9 
86318 
((311 
(•312 
(•313 
••314 
8(315 
•(316 
•(317 
((318 
((319 
((32( 
((321 
((322 
69323 
((324 
(•325 

• •326 
••327 

•(32a 

(•329 

ai33( 

(1331 
((332 
((333 
((334 
((335 

• •336 
••317 
Mill 
((339 
8(348 
((341 
•(342 
((343 
((344 
•(345 
••346 
•(347 
((348 
8(349 
((35( 
((351 
••352 
((353 
((354 
((355 
((356 
•8357 
88358 
((359 
(•36* 
8(361 

• (362 
••363 
••364 

• •365 

• •366 
••367 
••368 
••369 
••37« 
••371 
(•372 
1(373 
•(374 
((375 
(•376 
((377 
((378 
((379 
((3(( 
((3(1 
((382 
((3(3 
((3(4 
((385 
((386 
((3(7 
((388 
((319 
((39( 
((391 
((392 
((393 
8(394 
((395 
8(396 
88397 



NEWLN 

Hl.NSGEOF 

VDLINE 

(WAIT 

SJJJXEY 

l.LIST7( 

32 



LIST7( PUSH AT 



A, (SINSET) 
(■IHSETl.A 
A,( 
(BOP), A 



■restore lnaet 



I return If <biaak> 

I 'Searching '(3 

I return and continue 



■display record found while searching 

■record is in RECBUP 

■B reg used for count of chat remaining 



lealti A - cad fro* UPDOWN routin 
ireg altered: AJ»,BC,DE,HL 
■calls! NXTWRD, DSPWRD, SPACE, DSPSP 



; since NEWLN dec's SORLN as soon as 

I record is displayed 

latart of record on penultimate Ur 



Z.DSPRC 

■C 

:,35?3C 



I record? 

Idliplay entire record 
.-continuous display? 
■display entire record 



,-do (Hlot bypass UPDOWN 



i do (ilea bypaaa UPDOWN 



LD 


(MODE) ,A 


[J3 


A,l 


LD 


(LIMENR) ,A 


LD 


B.SNIDTH 


JP 


DSP4 


CALL 


NXTWRD 


CALL 


DSPWRD 


C» 


BRKKEY 


JP 


1.DSP6 


CP 


•1' 


JP 


z.DSpa 


CP 


••■ 


JF 


Z.DSP12 




A,(HL) 


a 


(DH 


JP 


Z.DSP5 


CALL 


SPACE 


CALL 


DSPSP 


Cf 


BRKKEY 


JP 


Z.DSP6 


CP 


■1' 


JP 


Z.DSP8 


LT 


A,(HL) 


CP 


(DH 


JP 


NI.DSP3 



lOSPl 

litart display' 



isearch mode 
istrlno, ends with (DH 
ll - first line 
|2 - 2..n lines 

ichecks for null record 
■9*t next word 
■display word 
■<break>? 
■exit If break 
.•switch to list code? 
■exit if switch in mode 
■was last char at •(? 



:Ft 



cha 



z-i 



I EOR? 

.•exit if EOR 

■get next set of spaces fo 

idisplay apaces 

Kbreak>? 

teilt If break 

■switch to list aode? 

Itilt if switch in aode 

■get next char in record 

icheck for null record 

■ loop if not EOR 



■ DSPS 



l-D 

LD 

CALL 

PUSH 

CALL 

POP 

RET 



■EOR reached 

■ qet search display node 

l?contlnuous 

UP DSP5A If continuous 



■do not bypass UPDOWN 



■ DSPS 

■switch from search to list mode 

ireturn with A - '1' for list mode 



■DSP12 



LD 


A,(SDKODE) 


CP 


■c 


J* 


Z.DSP14 


LD 


A, •■• 


LD 


(1YUPDN) ,A 


cal- 


UPDOWN 


POM 


AT 


CALL 




POP 


AP 


PF.T 





DSP14 CALL 



■DSP14 
■exit: down 



■ NXTWRD 

■get next word 

icntryi 

■exit: 

lentryi HL -> start of 

lexlti HL -> atart of 

I DE-> char after 

I C - word len 

I B - I char rema 

I A - char after 
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19398 








ireg altered: AP,C,DE 




00399 


NXTWRD 


PUSH 


HL 


l.ave start of word 




00400 




LD 


C,0 


.Initialize char count 




00401 


NWRDLP 


LD 


A,(HL) 






96482 




CP 


0DH 


jEOR? 




99493 




JP 


Z , NWRDRT 


lEOR encountered 




99494 




CP 


20H 


l ' '? 




00405 




JP 


Z , NWRDRT 


; space encounterd 




■MM 




I.D 


A, SWIDTH 






99497 




CP 


C 






88496 




JP 


M.NWRD65 


jdon't lnc c after SWIDTH 




89499 




INC 


C 


ibump char counter 




99410 


NWRD6 5 


INC 


HL 


ibump HL 




09411 




JP 


NWRDLP 


jloop until end of word 




00412 


NHRDRT 


LD 


D,H 


iDE-> char after word 




90413 




I.D 


E,L 






99414 




POP 


HL 


;HL->8tart of word 




99415 
99416 
99417 




RET 














) DSPWRD 




90418 














00419 


DSPWRD 


NOP 




idlsplay word 




00429 








lentty: HL -> start of word 




00421 








1 C - word length 




00422 








I B - 1 spaces left on line 




99423 








lexit: B - 1 spaces left on line 




99424 








;exit ptai DWRD2,DWRD7,DWRD11,DWRD12 




88425 








ireg altered: AP.BC, DE.HL 




00426 


DHRD2 


LD 


a, a 






00427 




CP 


C 






00428 




RET 


% 


I return if null word 




00429 




LD 


A, 8 






09430 




CP 


C 


;is there room for word? 




• 1431 




JP 


Z.DWRD4 






00432 




JP 


P.DWRD4 






00433 




PUSH 


DE 






00434 




CALL 


UPDOWN 






00435 




CP 


ARROWD 


1? down arrow 




00436 




JP 


NZ.DWRD10 


ijp if not d. arrow 




00437 




CALL 


NEWLN 






09438 




POP 


DE 






99439 




CALL 


INSET 






00449 


DWRD4 


LD 


A,(HL) 


;point to char 




99441 


DWRD5 


AND 


7PH 


.mask bit 7 




00442 




CALL 


VDCHAR 


idisplay char 




00443 




DEC 


8 


lone less space 




00444 




LD 


t^,l 






09445 




CP 


B 






00446 




JP 


NZ.DWRD7 






00447 




INC 


HL 






00448 




LD 


A,(HL) 






90449 




CP 


0DH 






00450 




JP 


Z.DWRD12 


mo inset if EOR 




00451 




DEC 


HL 






00452 




CALL 


UPDOWN 






00453 




CP 


ARROWD 


jdown arrow? 




00454 




JP. 


NZ,DWRD11 


ijp DWRD11 if not down arrow 




90455 




CALL 


NEWLN 






00456 




CALL 


INSET 


linaet and adjust B (• char remaining 


on line) 


09457 


DWRD7 


INC 


HL 


ibump char pointer 




00458 




LD 


A, (HL) 


iget next char 




08459 




CP 








88460 




RET 


I 






00461 




CP 


)DH 






00462 




BET 


Z 






00463 




JP 


DWRD5 


I loop until word end 




00464 


DWRD10 


POP 


DE 






09465 


DWRD11 


RET 








09466 


DWRD12 


LD 


A, 'e' 


j last char of word on last char of 11 




09467 




RET 








90468 
00469 












' 






i SPACE 


00470 














80471 








;read spaces 




00472 








lentry: HL -> start sp 




00473 








lexit: HL -> start sp 




09474 








1 DE -> next word 




08475 








i C - I of spaces 




00476 








ireg altered: AP,C,DE 




99477 








I calls: none 




99478 


SPACE 


PUSH 


HL 


.-save start of spaces 




09479 




LD 


c,e 


initialize space count 




00480 


SPACE4 


LD 


A,(HL) 


iget next char 




00481 




CP 


20H 


; ' '? 




00482 




JP 


NZ, SPACE? 


UP SPACE7 if not space 




00483 




LD 


A.SWIDTH 






99484 




CP 


C 






08485 




JP 


M, SPACES 


I don't inc 1 of spaces if past end of 


line 


88486 




INC 


C 


line • of spaces 




80487 


SPACES 


INC 


HL 


ipt to next char 




09488 




JP 


SPACE4 


iloop until non-space char 




99489 


SPACE7 


EX 


DE.HL 


iDE->next word 




99490 




POP 


HL 


lHL->start of spaces 




00491 




RET 








00492 
89493 


















IDSPSP0 


99494 












09495 








IDSPSP routine when listing 




99496 








isee DSPSP below for more info 




90497 


DSPSP0 


LD 


A,l 






00498 




LD 


(LINENR) ,A 






00499 


DSPSP0C PUSH 


DE 






00500 




DEC 


HL 






00501 




LD 


A,(HL) 






00502 




INC 


HL 






00503 




CP 


0DH 


,-was last char before space EOR? 




99504 




JP 


Z,DSPSP3 






00505 




JP 


DSPSP2 






89506 
99597 


















I DSPSP 


99598 












90509 








idlsplay spaces 




99510 








lentry: BL->start of spaces 




00511 








1 C = 1 of spaces 




00512 








1 B - • char reamining on line 




00513 








lexit: A - UPDOWN cud 




00514 


DSPSP 


PUSH 


DE 


isave start of next word 




00515 




LD 


A, (LINENR) 






00516 




CP 


1 






90517 




JP 


Z.DSPSP3 


iskip if first line 




00518 


DSPSP2 


LD 


A, (NINSET) 






99519 




ADD 


A,B 






99529 




CP 


SWIDTH 


■start of line? 




00521 




JP 


Z,DSPSP8 


ibypass if start of 2...n 




00522 


DSPSP3 


LC 


A f B 






00523 




CP 


C 


lis there room for spaces 




08524 




JP 


M, SPEOLN 


I3P to eoln routine 




09525 




JP 


Z, SPEOLN 






90526 




LD 


A,(HL) 






00527 


DSPSP7 


POSE 


DE 






00528 




CALL 


VDCHAR 






99529 




POP 


DB 






00539 




DEC 


B 






99531 




INC 


HL 






90532 




LD 


A, (HL) 






••533 




CP 


)DB 






00534 




JP 


Z,DSPSP8 






09535 




CP 


' ' 






0)536 




JP 


NZ.DSPSP8 






09537 




JP 


DSPSP7 






• •538 


DSPSP8 


POP 


HL 


iHL->next word 




••539 




LD 


A,0 






00540 




RET 








00541 
00542 


















iSPEOLN 


• •543 
0)544 












ispaces to be printed at end of line 


• 0545 








.•therefore truncate spaces 




00546 


SPEOLN 


CALL 


UPDOWN 






0)547 




CP 


ARROWD 


1? down arrow 












Listing 11 continued 



V^cC^fc 




Daisy wheel quality 

without daisy wheel 

expense. 

You need the quality print that a daisy wheel 
printer provides but the thought of buying one makes your 
wallet wilt. The Selectric™ Interface, a step-by-step guide to 
interfacing an IBM Selectric I/O Writer to your microcom- 
puter, will give you that quality at a fraction of the price. 
George Young, co-author of Microcomputing magazine's 
popular "Kilobaud Klassroom" series, offers a low-cost al- 
ternative to buying a daisy wheel printer. 
The Selectric™ Interface includes: 

•step-by-step instructions 

•tips on purchasing a used Selectric™ 

• information on various Selectric™ models, in- 
cluding the 2740, 2980, and Dura 1041 

•driver software for Z80, 8080, and 6502 chips 

• tips on interfacing techniques 

With The Selectric Interface and some background in elec- 
tronics, you can have a high-quality, low-cost, letter-quali- 
ty printer. Petals not included. 

Credit card orders call TOLL-FREE 1-800-258-5473. Or 
mail your order with payment plus $1.50 shipping and 
handling to: Wayne Green Inc. Attn: Retail Book Sales, 
Peterborough, NH 03458. 

Dealer inquiries invited. tfr -4 *% r\ n 

ISBN 0-88006-05 1-4 1 28 pages q) 1 Z ♦ 9 7 

□ Yes, I want Selectric Interface (BK7 388). Enclosed is $12.97 per 
copy plus $1.50 for shipping and handling. 

□ MASTER □ VISA □ AMEX 



Card #. 



Expires 



Signature 
Name 



Address 



City 



State and Zip 

All orders shipped UPS if complete street address is | 



33DB8S 
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••«)« 




JP 


l.UPtMtLP 


ido not eait if already In llat aode 


••so 




JP 


n, dspsp* 


; ;p i! not d irrow 


Mt)7 




LO 


A,"l' 




MM 




CALL 


K8HLH 




•KM 




LD 


(■ODE) ,A 


iset RODE-dUat 


MM 




CALL 


i user 




•MS* 




JP 


■MMP 


leiit 


MM1 

MMf 


dspsp* 


J* 
pus* 


DSPS PC 
AP 




IN«I 

■ •641 


1 


















■MM 
MSM 

••5*5 




PUSH 


DC 




•M42 
•M4J 
•M44 








lUPDNO 




LO 
CP 


5 f A 




UPDHO 


CALL 


OUT* EC 


loutput record 


■MM 




JP 


1, DSPSPB 




•M4S 




JP 


UPDSLP 


iloop until arrow ox break praaaed 


••557 
•1511 


DSPSPB 


CALL 
POP 


NEMLN 
DE 




•M4i 
•M47 


I 


















••91* 
MM 


nspsfc 


POP 
POP 


AP 

HI. 


lHL->nast word 


•K4« 
IHM 








lOPMP 










MM1 




in 






•MS* 








iprint either a line or current record 


MM 

■•Ml 










•MSI 
MCS2 


UPDHP 


LD 


■elMMMI 


ifet aearch-dlsplay Bode 
iL-llna. I>record, C -continuous 


' 






iiasrr 




MM4 

MM) 










•MS3 




CP 


•L* 


ill**? 








inew line so Inset niaaber of 


•MS4 




JP 


i.opdhpi 


iprint line 


MM* 








:ipac.» in NIMSET 


•KSS 




CP 


'C 


i continuoua? 


MM) 


IKSET 


PUSH 


■C 


:save C 


•MM 




JP 


I.UPDNLP 


iprint line 


MM! 




LD 


■ .SaTIDTN 


llMcrim width 


•MS7 




P0S1 


K 




MM* 




LO 


A,(BiaSCT) 


mo. of epecee to Inset 


•MS* 




PUSH 


DE 




MSN 




CP 


• 


unset • (7 


•MS* 




PUSH 


■L 




•Mil 




J* 


t ,mhi 


ino inset 


•MM 




CALL 


pimtEC 


1 print record 


MS72 




LD 


C,A 


IC now hag inaat value 


•■((1 




POP 


■L 




••573 


IHSETL 


LO 


A," ■ 


1 inaat loop 


• 86 6 2 




POP 


DE 




| MS7« 




CALL 


VDCHAP. 


idep * ' 


•MM 




POP 


K 




••575 




DEC 


B 


idee no. of char cmalnintj on Una 


M««4 




JP. 


UPDNPE 


leilt thla section 


M57* 




DEC 


C 


;d«c no. of char to inaat 


•*I(S 


UPDNPL 


CALL 


PHTILN 


iprint line 

iloop until arrow or break preaaad 


MS77 




LD 


A,* 




• •((( 


UPDNPE 


J* 


MM 


MS71 
MS79 




CP 
JP 


C 

II . IHSETL 


land of Inaat loop? 

iloop until inaat eoatplata 


•1**7 
••((• 


















lUPDNW 


MIU 

msii 


msrr* 


POP 

LD 


DE 

C,E 


rexit fcoai routine 
I raatora C 


••«*• 
• 16 7* 
















■write (print) entire acreen 


MSM 




LD 


A. 2 




••(71 


upwrn 


PUSH 


K 




MM) 




LD 


(LimmK) ,a 




•M72 




PUSB 


DE 




HSU 

MSM 

MM* 




RET 






IK7J 
■M74 
•M73 




PDS( 
CALL 

POP 


■L 

PP.SC* 

■L 


■print acreen 


1 






lupocan 




•tsn 

[ MSM 










•M?( 

•M77 




POP 
POP 


DE 

■c 










iThia routine ia called after a Una 






MSI* 
■MM 
MS*1 








lis dleplayed by the LIST or MP routine. 
rprlatina la initiated fioa thla routine 
I entry i 


• •678 
■M7* 
(MM 




JP 


MM 


iloop until arrow or break praaaed 














IDPDNE 


MS*} 
MS*] 








lealti A raturna key praaaed 
1 one aait point i STONED 


••(•1 
••(•2 






















■switch froa llat to aearch aode 


MS** 








tree] altered! AP.tK.HL 


••(•1 


UPONS 


LD 


A, (MODE) 




MS*S 


UPTOWN 


PUSH 


DC 


laave DE for entire routine 


••(•4 




CP 


'a' 


■aaarch node? 


MS*« 




LO 


A, IPRMOOE) 




•acts 




JP 


I.UPDNLP 


■ do- not exit if already in search aode 


•IJ97 




CP 


•c 


lia print node continuoua? 


SB 6 86 




LD 


A, 'a' 




••31* 




CULL 


1.PP.TBLN 


jlf so print line 


••(•7 




LO 


(NODE) ,A 


iNOOt-lelearch 


***** 




LD 


a, (Brupwi) 


1 


••••• 




JP 


UPON ED 


■ eiit 


•MM 
Mj|l 




CP 
JP 


i,UPDHLP 


lia display node sttnual? 

I continue It dap aode manuel 


••(•* 
■MM 
















lUPDNU 


MM 

•MM 




LD 

JP 


A.AUKMD 

ureirED 


jcontlnoua dap grade 

rreturn with down arrow in A ten. 


•M)l 

• •692 










iup arrow presa Ibackapaca) 


MM* 

MfM 










1*693 
M(*4 


DPJMfC 


LD 
CP 


A, INOOE) 


iliat aode? 








lUPDNLP 


•MM 

Mil 










1*6 9 5 
M(M 




JP 
LD 


NI.UPDNLP 
DC.INDCB 


■do not back apace if not liat aode 
iDE->aource file DCS 


laaeter loop of UPTOWN routine 


■MM 


OPDNI.P 


CALL 


KBIMIT 


iclear key buf 


• •6 97 




CALL 


BACEIP 


■backapaca one aector 


MM) 




LD 


A,2 




■•••• 




CALL 


■ACKSP 


ibackapaca one aector 


MM 




CALL 


VDCHAR 


; cursor off 


•MM 




CALL 


•ACKSP 


■backspace one sector 


Mill 




CALL 


(■■AIT 


iwalt until key la preaaed 


M7M 




POSM 


K 




Mill 




CP 


ERIIEY 


i <breas >? 


M7I1 




LD 


■C.IIDCBCR) 


,BC-:-cunent record 


Mil 




JP 


I.UFDHED 


ijp to and of routine if brack 


M7«2 




CALL 


ACAD I a 


■read record 


MM 




CP 


ARKOHD 


■down arrow? 


M7M 




POP 


*c 




•MIS 




JP 


l.UPUIiED 


1 )p to and of routine if down arrow 


••7)4 




CALL 


HEWLM 


■roll acreen one line 


•Ml* 




CP 


ARROW 


i up arrow? 


M7M 




LD 


A,l 




•M17 




JP 


l.UPDNJ 


j Jp to back apace routine 


••7(( 




LD 


(COT), A 


mot EOP 


•Ml* 




0« 


11 


jconvert char entered to lover caaa 


•«7«7 




LD 


HL.NSCBAI 


■ '•Backapaca 3 aectora*'M 


•Ml* 




CP 


•»' 


j'i' -> aw itch froa eearcb to llat 


M7II 




CALL 


VDLINE 


|d«p agq 


MM 




JP 


i.updui 


ijp to llat/ealt section 


M7M 




CALL 


NRTLN 


■rool screen one line 


•M21 




CP 


"■ ' 


i'«" ■> switch fro* list to aaarch 


1(71* 




LD 


t.Aimu 


■return with up arrow in A 


•M>2 
■M2) 




JP 

CP 


l.UPDHS 


lip to aeercb/ealt section 

|V •> write (print) entire acraen 


Mill 
M712 
















lUPDNID 


■MM 

■MM 




JP 

CP 


I,UPDIM 
"P" 


I3P to write acraen section 
IP' ■> print line 


• •713 
M714 










■ •alt froa UPTOWN 


MM 




JP 


t.ureicp 


lip to print section 

l 'o* »> output currant record 


M71S 


UPDWD 


POP 


Dt 


■restore DE 


•M27 




CP 


•o 1 


••71* 




BET 






■Mm 




JP 


i.urcao 


Ijp to output section 


M717 


•TO POM 


BEfl 


• 


ibypass updown routine 


•M2» 




JP. 


OPMtLP 


j loop until arrow or break preaaed 












MCM 


!■■•■• 


















MM1 








(UPDssD 












•M)2 








r switch fro* aaarch to llat aode 


• •718 


■SOAK 


DEPN 


'■stacsapace 3 sector s* ' 


•MS) 

Mill 

•M)S 


OHMS 


LD 
CP 


A, (NODE) 
'1' 




••71* 
M72( 

••721 




DKl'B 


■1 




■llat node? 




EM) 







THOR symbol of new power for your Model I/III/4 Computer 

CALL 1 -800-64 1-3885 for Orders Only. For technical information or in Colorado call: 303-337-5909. 



THOR INTERNAL MODEL Ml/4 
DISK DRIVES 

All the hardware and easy directions to install one or 

two drives— With TRSDOS"— (NEWDOS* for dual 

drives) 

Kit containing one two drives. 1 Drive 2 Drive 

Single 40 J532 $752 

Dual 40 $618 $816 

Dual 80 $702 $952 



THOR WINCHESTER 
DISK SYSTEM 



SPECIAL 
PRICE 



One or twodiives — Price includes one drive with NEW- 
DOS 80' case and power supply Slot tor second 
drive 



S Megabyte 
10 Megabyte 
15 Megabyte 
20 Megabyte 



(Prices Subject to 
Change Without Notice) 



$1449 
$1649 
$1899 
$2149 




WinchMttMiNMtwoiti Unit 

ULHT15 Western Micro Systems 

• 2760 South Havana. Suite S • 

Aurora, Colorado 80014 

'TRSOOS is a trademark ot Tandy Corp and NEWDOS 80 is a trademark of Apparat Inc 
Prices are cash — Visa MasterCard American Express COO available on request 
■^■"■■^■^■^^■^■^■■^■■■^■■Deaiers enquiries welcome •»»»»»»»»»»•»*«»«■■■»»»■■■■■■•■■■■■•»•■ 



THOR NETWORK CONTROLLER 

Connect up to 254 computers o' most any make over 
as much as 5000 leet of cable Share 5 to 60 mega 
bytes or more ot disk storage- Can for additional infor- 
mation and prices 

THOR DIGITAL PORT 

14 IN and 15 OUT— Each port a lull 8 bits . 
Connector to attach to Model lflll/4 bus- 
Complete with cable and case— Requires 5 volts at 150 ma 
Assembled and tested 

For Model I Only $39 95 

For Model Ml/4 Only $44 95 



THOR POINT-OF-SALE SYSTEM 

Includes 16 lines of 32 changes of green screen monitor 
(adjustable tilt), keyboard. 40 character per ime aiphanu 
menc printer, and cash drawer— Software to perform all 
cash register functions such as automatic pricing, inven- 
tory control, and daily totals Can plug into a Model Ml/4 or 
the THOR NETWORK CALL 
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READ THIS 



EPSON 




Lowest 
Prices! 



RX-80 FX-80 

RX-80FT FX-100 

RX-100 



DISK DRIVES 

for the 
TRS-80 Mod 1 , 3, 4 



Bare Tandon 1 00-1 $1 69.95 
2 TEAC 55A in Cabinet $399 
Call or Write for Complete Pricing 



.;:■/;/; 




Star Mi cronies Prices So Low, 
f\ rilAIMI We Can't Even 
\J 1 1 VI l\I I Print The mi 



GEMINI 10x 
GEMINI 15x 




DISKETTES $19.95 

CDC Brand, 5V4", 
Double Density 

Box of 10 Diskettes 



TRS-80 Mod 4 

64K, 2 Drive $1595 



RS-232 — $99.95 




For printer prices and a FREE CATALOG, 

call our TOLL FREE, quick information 

Hot Line 

800-331-3896 

In Oklahoma, Call 918/825-4844 



THESE ARE OUR CASH DISCOUNTED PRICES COD AND CHARGE ORDERS ARE 3% HIGHER AIL COMPUTERS ARE SHIPPED 
FREIGHT COLLECT PRICES. SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE IBM £t IBM PER 
SONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES INC TRS-80 b RADIO SHACK ARE TRADE 
MARKS OF TANDY CORPORATION 






^918/825-4844 SmaII 

AMERICAN Busies 
U&^ pft&s:^., COMPUTERS 



NEED INFO QUICK? 

Then |us! call our automated TOLL FREE 
answering machines Leave vuui na 



mailed 1st Class the same cla\ Ontyraquasti 
for product information will b« procastad 
all others will b« disregarded by our 
answering, service 

cau 1-800-331 3896 

In Oklahoma Call 

1918-825-4844 *' 217 
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Inside the Model 100 



by David P. Sumner 

To help you write sophisticated programs on your Model 
100, I'm providing a fairly extensive memory map, some rele- 
vant documentation, and a list of the tokens for the Basic key- 
words. 

One word of caution: It's possible that some versions of the 
Model 100 have a ROM slightly different from the one in my 
machine. You should also be aware that some locations have 
multiple uses, some of which may not be documented here. 

Running a Machine-Language Program 

You will find the addresses of several routines provided in 
the memory map useful (see Table 1) primarily for machine- 
language programs, but it's important to know how to access 
them from Basic. The secret is in the Basic command Call. To 
run a machine-language program that resides at location 
30306 (the Model 100's sound routine), type in the Basic state- 
ment CALL 30306 and you'll hear a beep. Not all Calls are so 
direct. Often you'll need to pass data to the routine that you're 
calling. The Model 100 provides nicely for this. A statement of 
the form 

CALL address.X.Y 

initiates the execution of the machine code stored at the given 
address, but first it assigns the value in X to the accumulator, 
and the value in Y to the register pair HL. Thus, the value of X 
can only be between zero and 255 (so that it can fit into the 
8-bit accumulator), and the value of Y can be any 16-bit inte- 
ger from zero to 65535. 

For example, a Call to location 32 prints the contents of the 
accumulator (considered an ASCII character) on the display. 
If you simply type CALL 32, nothing happens since the accu- 
mulator contains zero. However, if you type CALL 32,65 
you'll see the letter A appear on the screen. You've put 65, the 
ASCII code for an A, into the accumulator prior to the Call. 
The effect of CALL 32,X is the same as printing CHR$(X). In 
fact, since PRINT CHR$(7) produces a beep, CALL 32,7 also 
results in a beep. Another example: The routine located at 
10161 displays the message located at the address pointed to 
by the register pair HL. If you look at the memory map, you'll 
see that the 100 stores many messages throughout the ROM. 
For example, try typing CALL 10161,0,3442. The computer 
displays the message "extra ignored." Type CALL 



The Key Box 

The programs in "Blackjack" and "Program Length" 
will run in 8K RAM. 





Table 1. The memory map. 


NOTE: 


Material in single quotes 


represents ASCII text. 


A "+■ 


after a location indicates 


a 2-byte pointer. 





(RST 0) JMP 32051 


3 


•Menu' 


8 


(RST 1) Test for special 




character and fall into RST2. 


16 


(RST2) Set pointer to next 




character of BASIC text. 




(JMP 2136) 


24 


(RST3) Compare registers HL,DE 




directly 


32 


(RST 4) PRINT ASCII contents of 




accumulator. 


36 


(TRAP) Handles power-down. User 




interface at 62978. 


40 


(RST 5) JMP 4201 Checks variable 




type. 


44 


(RST 5.5) JMP 62969 


48 


(RST 6) Returns sign of FAC1. 




(JMP 13276) 


52 


(RST 6.5) JMP 28076 (62972 RAM 




vector interface) 


56 


(RST 7) Executes routine 




indicated by next byte. 




(JMP 32767) 


60 


(RST 7.5) Updates timer, adjusts 




power-down values etc. (JMP 




6962, user can interface at 




62975) . 


64 


BASIC function addresses. 


128 


BASIC Keywords with high bit set 




in the first character of each 




word. 


610 


BASIC command addresses. 


750 


Table of BASIC addresses. 


796 


2-Byte error codes. 


858 


Initial values for pointers 62960 




-63103. 


1003 


'Error' 


1010 


'in' 


1014 


•ok' 


1019 


'Break' 


1094 


Syntax error. Other entry points 




at 1100, 1103 .. 1115 for other 




errors. 


1117 


Error message based on contents 




of E register. 


1245 


PRINTS error messages 




(accumulator holds a value from 




28 to 58) . 


1520 


Builds BASIC line pointers. 


1576 


Enter with DE containing a line 




number. Exit with BC containing 




Table 1 continued 
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10161,0,32676, and the TRS-80 logo will appear on the 
display. 

PEEK, POKE, and Pointers 

There is more of interest here than just the addresses of 
particular routines. Basic uses many locations to store data 
such as the values of variables, the text of Basic programs, and 
pointers that determine how the computer behaves. The 
PEEK command accesses the values in these locations, and the 
POKE command can change them. 

For instance, the location 63368 contains the horizontal po- 
sition of the cursor. If you let X = PEEK(63368) in a Basic 
program, the effect is the same as if you had used the expres- 
sion X = POS(0). Try the following short program as an illus- 
tration. (Don't overlook the semicolon in line 20.) 



You'll see the key menu displayed on the label line. Now clear 
the label line by pressing the label key again. Finally, type 
POKE 64173,0 and press the enter key. Pressing the label key 
now has no effect. If you type 

POKE 64173,255 

things return to normal. 

Many of the pointers point to addresses, line numbers, and 
other 16-bit integers. The Model 100 stores such addresses 
with the low byte of the integer followed by the high byte. For 
instance, the computer stores the line number where a break 
occurred in locations 64426-64427. To determine the line 
number just type PRINT PEEK(64426) + 256*PEEK(64427). 

To determine the starting location of the currently active 
program, type PRINT PEEK(63100) + 256*PEEK(63101). 



10FORI=lTO100 
20 PRINT PEEK(63368); 
30 NEXT I 
40 END 

If the number stored in location 64173 is zero, then you can- 
not use the label line. With a POKE command you can put a 
zero into this location. Try the following experiment. First en- 
ter Basic from the main menu and then press the label key. 



Floating Point Operations 

In order to use the floating point routines, you must first 
place the proper values in the floating point accumulators. For 
instance, to find the square root of 2 using a call to location 
12378, you must place 2 in the primary floating point accumu- 
lator FAC1 prior to the call. After the call, the value of the 
square root of 2 resides in FAC1, and you must move it to the 
proper variable. 



Table 1 continued 








the location of the line, and HL 


2902 


PRINT 




the location of the next line. 


3073 


TAB( 




The carry flag is used to 


3141 


LINE (general) 




indicate if the line exists. 


3152 


LINE INPUT 


1606 


Tokenize BASIC text. 


3188 


'?Redo from start' 


1830 


FOR 


3225 


INPUT * 


1899 


TO 


3235 


INPUT 


2112 


BASIC command dispatcher; 


3289 


READ 




accumulator holds token. 


3442 


'Extra ignored' 


2136 


Set pointer to BASIC text. 


3625 


>r = r< 


2162 


DEF (general) 


3926 


ERL 


2177 


DEFDBL 


3966 


VARPTR 


2182 


DEFINT 


4072 


If character in M is lowercase. 


2198 


DEFSNG 




the upper case equivalent 


2207 


DEFSTR 




is returned in the accumulator. 


2267 


FC error. 


4236 


OR 


2283 


Used by GOTO, GOSUB, and RUN to 


4247 


AND 




determine the 2-byte value of 


4258 


XOR 




the line (in ASCII) to branch 


4269 


EQV 




to. The HL register points to 


4277 


IMP 




the ASCII string of digits, the 


4296 


LPOS 




16-bit integer is returned in 


4302 


POS 




DE. 


43A5 


Store accumulator as low byte of 


2319 


RUN 




16-bit integer. 


2334 


GOSUB 


4352 


INP 


2358 


GOTO (contains a bug!) 


43M 


OUT 


2381 


Jump here if UL error. 


4398 


ASCII text (string/variable) 


2406 


RETURN 




converted to integer. 


2462 


DATA 


4411 


LLIST 


2464 


REM, ELSE 


4416 


LIST 


2499 


LET 


4514 


PRINTS from buffer until byte 


2607 


ON (general) 




is encountered. 


2612 


ON ERROR 


4522 


Put data into buffer until a 


2736 


RESUME 




byte is reached. 


2831 


ERROR 


47 40 


PEEK 


2842 


IF 


4747 


POKE 


2894 


LPRINT 


4811 


Saves registers, waits for 

Table 1 continued 
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character of input, and restores 




registers. 


4848 


PASTE. 


5029 


Toggles the label line. 


5138 


Break routine. 


5145 


POWER 


5169 


Power off /Returns to program on 




power -up. 


5201 


Power off 


52«9 


POWER CONT 


5225 


Sets power-down values. 


5288 


Preliminary tape I/O routine. 


5290 


Called at the end of tape I/O. 


5296 


Returns byte from tape in 




accumulator. 


5313 


Sends byte in accumulator to 




tape. 


6281 


EOF 


6404 


TIHE$ 


6436 


DATE$ 


6485 


DAY$ 


6520 


ASCII of days stored here. 


6553 


Converts byte pointed to by DE to 




an ASCII digit. Result placed in 

M. 

TIMES (as command/assignment) . 


6571 


6589 


DATE$ (as command/assignment) . 


6641 


DAY$ (as command/assignment) • 


6547 


MAX RAM 


6776 


I PL 


6814 


COM, MOM 


6851 


KEY ON/OFF/ STOP 


6927 


ON TIME$ 


7096 


KEY (general) 


7101 


KEY LIST 


7136 


PRINTS B PRlNTable-characters 




starting at address in HL. 


7182 


Defines function key. 




HL points to string, accumulator 




holds key number minus one. 


7255 


PSET 


7270 


PRESET 


7277 


Line drawing routine. 


7519 


Subroutine for PRINT @ 


7568 


CSRLIN 


7579 


MAX (general) . 


7602 


MAX FILES 


7609 


HIMEM 


7619 


WIDTH 


7621 


SOUND (general) 


7653 


SOUND OFF 


7654 


SOUND ON 


7660 


MOTOR 


7667 


Turns motor on. 


7669 


Turns motor off. 


7674 


CALL 


7714 


SCREEN 


7774 


LCOPY 


7994 


FILES 


8081 


KILL 


8247 


NAME 


8446 


NEW 


8832 


CSAVE (general) 


8856 


CSAVEs current BASIC program. 


8889 


Sends the DE bytes starting at 




location in HL to tape. 


8908 


SAVEM 


8925 


CSAVEM 


9079 


CLOAD (general) 




Tabk 1 continued 



The routines that you need for these actions all appear in the 
map. You can use the machine code below to find the square 
root of the variable pointed to by the HL register pair. 



PUSHH 
CALL 12740 
CALL 12378 
POPH 
CALL 12746 
RET 



We will need this address later. 
Put the variable into FAC1. 
Take the square root. 
1 told you we needed that address. 
Replace the value by its square root. 
That's all. 



Access the program above from Basic by using the next pro- 
gram, being sure to protect it first by the command CLEAR 
256,61999. This prevents Basic from destroying the machine 
code starting at location 62000. 

5 GOSUB 100 

10 INPLTT'X ";X 

20 A = VARPTR(X) + 65536 

30 CALL 62000,0, A 

40 PRINT X 

50 END 

100 FOR 1=0 TO 11 
110 READY 
120 POKE 62000+ I,V 
130NEXTI 
140 RETURN 
150 DATA 229,205,196,49,205,90,48,225,205,202,49,201 

This program assumes that you've placed the machine-lan- 
guage routine at location 62000. Line 20 determines the mem- 
ory location of the variable X, and line 30 passes this address 
to the register pair HL before executing the routine at 62000. 

Lines 100-150 POKE the machine code described earlier in- 
to memory. 

Now run the program, and you'll see that the value of the 
variable X is replaced by its square root. 

Some of the other floating point functions seem to require 
the setting of the variable type flag prior to a Call. 

Interrupts and the RST Instructions 

Like the 8080, the Model 100's 8085 chip contains eight 
restart instructions that are effectively 1-byte Call instruc- 
tions. (See Table 1.) 

Unlike the 8080, the 8085 has several interrupt routines 
known by the mnemonics RST 5.5, RST 6.5, RST 7.5, and 
TRAP. The addresses of each of these resides in the low 
bytes of ROM. However, the Model 100 allows a user to in- 
tercept these routines by placing a Jump instruction in a par- 
ticular location in RAM. These interface vectors are 
documented in the map. 

The Basic Commands 

The memory map contains the addresses of most of the Ba- 
sic commands and functions. The important thing to realize is 
that most Basic commands expect the accumulator to contain 
the next byte of Basic text upon entry to the routine. Some 
commands, such as Beep and End, aren't modified by addi- 
tional text. A simple call to the addresses of these routines has 
the desired effect. On the other hand, the actions of some 
commands depend upon the text that follows them. For exam- 
ple, consider the Key command. When this statement appears 
in a Basic program or in immediate mode, several things may 
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LEARN BASIC 



(It's a piece of cake) 




t • THE BASIC HANDBOOK 

Encyclopedia of the BASIC language 



LEARNING TRS-80 BASIC 

for Models I, 11/16 and III 



LEARNING IBM BASIC 

for the personal computer 



LEARNING TIMEX SINCLAIR BASIC 

for the Timex'Smclair 1000 and ZX-81 



• THE trs-«> MODEL 100 PORTABLE COMPUTER 

A complete step-by-step learner's manual 



Please send 



BASK Handbooks $19 95 

Leamtn3lBMBASICi«S1995 

TRS-80 Model 100 Portable Computer «.S1995 



Learning TRS-80 BASIC <«S1995 
Learning TIMEX'Sinclair BASK « $1 4 95 



Calif residents add 6% sales tax Shipping ana handling charge 1200 per order (foreign orders US J 3 00) 



Total $ 

Address _ 
City/State/Zip 
H Check 
Account # 



Name 



□ Visa 



[ ] MasterCard Expiration Date 



mm 



Signature 



Ask your favorite bookstore or computer store 
for CompuSoft's DAVID A. LIEN 

books, or send the coupon at left to: 



CompuSoft ' Publishing 
535 Broadway, Dept. 141283 
El Cajon, CA 92021 



,.,< 



GUARANTEE 

If you're not totally satisfied, return the book in salable 
condition within 30 days for a refund of the purchase price. 



Or Call: 800-854-6505 619-588-0996 



for the I to- 80 from Micro- Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green Screen fits over the tront of your 
TRS 80 Video Display and gives you improved contrast with 
reduced glare You get bright luminous green characters and 
graphics like those featured by more expensive CRT units 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver 
Used by others The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS 80 Video Display It is attached with adhesive strips 
which do not mar your unit in any way 

The full frame design of the Original Green Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I, Model III, or Model IV) 

THE GREEN-SCREEN $15.95 

Add $1 50 for postage and handling 



Terms Chec* or money order, no CODs or credit cards, please Add amount 
shown lor postage and handling to price o' the item All items shipped within 48 
hours by lirsi class or priority mail Virginia residents, add *''<• sales lax ^^62 



Micro- Mega ■ P.O. Box B B SS • Arington, Va 



MODEL 100 OWNERS 

Tired of Waiting for 
Slow Cassettes? 

HOLMES ENG. has solved your 
problem with -- the PMD-100 Por- 
table Micro Drive 
The PMD-100 is a HIGH SPEED 
Storage System for SAVING and 
LOADING programs and files on 
the M100 Microcomputer. 
USER FRIENDLY menu driven soft- 
ware and a Rom based operating 
system make the PMD as fast and 
easy to use as a floppy disk. 




$349.95 

DRIVE INCLUDES: 

Wafer tapes, battery 
charger, coiled cable, 
operating instructions 



IM-100 
8K RAM MODULES 

$75.00 each 
$70.00 each (2 or more) 

Up to 32K upgrade 

Plugs into M100 sockets 

Easy to install 



KEY FEATURES INCLUDE: 

• Up to 70K Storage per wafer. 

' Fast Data Storage/Retrieval 
(Nearly as (asl as disks) 

' Portable & light weight 

» ROM based operating system 

' Connects to RS232 Port 

» Rechargable Battery 

• Replacable wafer tapes 
» 16K Ram Buffer 



1 HOLMES 

= ENGINEERING, INC. 

8-5:30 (MST) Mon. Fri. 

10-2:00 (MST) Sal. (sales only) "* 153 



5175 Green Pine Driwe Salt Lake City, Utah H4 123 
(801) 261 5652 or 24 Hr BBS (801) 263 1103 



Call For Dealer Nearest You 

Dealer Inquiries Invited 
Full warranty on all products 

Add shipping handling $10.00 

US and Canada All others add 

15%, Prices subject to change 

without notice 
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follow it. For instance, KEY ON, KEY OFF, KEY LIST, or 
KEY 5, "PRINT" are all possible. At the time the program ex- 
ecutes the command, the computer has already tokenized the 
keywords, and the Key routine expects to find the appropriate 
token or text in the accumulator. The token for ON is 151 , and 
so typing CALL 70%, 151 produces the effect of KEY ON. 
Similarly, since the token for LIST is 165, CALL 70%, 165 will 
result in the same action as if you had entered KEY LIST. Un- 
fortunately, you'll find that not all calls to Basic command 
locations respond as expected. So be cautious when ex- 
perimenting with these addresses. 

Using the Memory Map 

The examples given earlier should help you take advantage 
of much of this information. You cannot use all of the rou- 
tines in the ROM directly, however. Many of them, like the 
floating point operations, require setting up special conditions 
prior to the call. And, although I would strongly urge you to 
experiment with your computer, be sure you have saved any 
important data or programs on tape first. An inappropriate 
call or POKE can easily garble a program or cause the com- 
puter to hang. Of course, you will not damage the computer 
by such a crash, but you may be unable to restart the computer 
without using the memory kill button on the bottom of the 
computer. 

About the Map 

Notice that items enclosed in single quotes represent actual 
ASCII text. For instance, the word 'Error' is stored in mem- 
ory starting at location 1003. The letters H,L,D,E,B,C, and A 
refer to registers in the 8085. ■ 

David P. Sumner can be reached at 1009 Walters Lane, Co- 
lumbia, SC 29209. 



Table 1 continued 


9235 


Gets DE bytes from tape and 




stores them at the location 




pointed to by HL. 


9302 


CLOAD? 


934^ 


'Verify failed' 


9361 


LOADM, RUNM 


9383 


CLOADM 


9538 


Moves B bytes from address in HL 




to address in DE in an 




increasingz 




manner. 


9587 


CLOADM? 


9685 


'Top End Exe' 


9697 


•Exe: ' 


9982 


'Found' 


9989 


'Skip' 


10042 


STR$ 


10161 


PRINTs message pointed to by HL. 




Message ends in quote or 0-byte 


10444 


String addition. 


10508 


Moves L bytes from address in BC 




to address in DE (increasing). 


10563 


LEN 


10575 


ASC 


10597 


CHR$ 


10605 


STRING$ 


10638 


SPACE $ 
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for Portable, Personal and Desktop Computers 

Available for these popular 8-bit and 16-bit microcomputer formats: 



All CP'M" 8' Computers (SD) 

All IBM PC Compatibles 

TRS-80 Model 2 (with CP/M) 

TRS-80 Model 4 (with CP/M) 

Apple II (with CP/M) 

Apple lie (with CP/M) 

Franklin ACE (with CP/M) 

Morrow Micro Decision 

Northstar Advantage 

Corona PC & Portable 

Corona Portable 

COMPAQ Portable 

Hyperion Portable 

Seegua Chameleon 

Ti Professional 

Columbia MPC 

Osborne Executive 

Osborne I (SO) 

Osborne I (DD) 

DEC VT-180 

CompuPro 

Xero« 820 

IBM PC 

IBM XT 

KayPro II 

KayPro 10 

Call about 
other formats 




• ' ...for several years the defacto standard for 

microcomputer software, and still a good example 

of some of the better thought-out 

software on the market. " —interface Age 



SATISFACTION 

GUARANTEED 

or Your 

Money Back 



Complete 

Package of 

Software. 

Training Aids, 

Manuals, and 

Users' Newsletter 

ONLY 

$395 

CP/M format 

$495 



IBM format 



TM 



Deskto p Accountant 

FULL-FEATURE, FULLY-INTEGRATED ACCOUNTING SYSTEM 
Everything you need to keep the books... at a price you can afford! 

Your Bookkeeper. Accountant, and Banker will love you for installing this fine system! 



Check these features: 



This remarkably-valued Accounting System will manage 
your company's business records and automate your 
entire bookkeeping process— from the posting of indi- 
vidual transactions to producing up-to-the-minute 
income Statements, Balance Sheets, and other impor- 
tant management reports Desktop Accountant'" gives 
you a Big Company,'' professional image with printed 
invoices, statements, and checks It is user-friendly, 
completely menu-driven, offers system-prompted 
data entry, and is compatible with both floppy and hard 
disks Feature-for-feature and dollar-for dollar it is the 
best software value on the market! But don't let the 
low price fool you Desktop Accountant™ is not a 
"cheap'' accounting system, only inexpensive. That's 
because original development costs were recovered 
years ago allowing us to sell an excellent product in 
high volume at low prices and still earn a fair profit This 
high-quality, reliable software was designed and writ 
ten in 1975 for small-to-medium sized businesses Since 
then. It has successfully proven Itself in well over 
10.000 companies in all 50 stales and m 13 foreign coun- 
tries II is also used and recommended by hundreds of 
bookkeepers, accountants and CPA's. including the 
regional offices of several famous "Big Eight'' account- 
ing firms! No other Accounting System offers you so 
many features, benefits, and valuable extra services You 
can pay more but you can't buy more 1 Desktop 
Accountant™ is backed by our 30-day. no-risk, money- 
back guarantee ol 100% customer satisfaction! Call for 
free literature or order now with complete confidence. 



Read What Users Say... 



' 'Two hours after receiving the Desktop Accountant I was 
up and running live data, and generated an entire month's 
work and financial statements the following day." 
J C Barteis President 

K 0'i-ir . « . Bj . i-s "■'■!; 

' 'To gat anything better we would have had to spend 
multiple thousands of dollars. I think It's a dynamite 
package tor the money." 

-Bob Cox V P General Mgr ifrrws 

(flunuttctimng company! San Antonio Teut ON FIE 



Here's what you get: 



1. A professional-quality, full-feature, fully-integrated 
accounting system 2. Six-to-fourteen diskettes 
(depending on your system's disk storage capacity) 
3. Four easy-to-follow, self-teaching User's Manuals 
(over 540 pages') that are highly rated by satisfied 
users. 4. An exclusive, new audio cassette tape with 
step-by-step instructions for quick installation and 
start-up S. "Read Me First" a unique 40-page system 
guide and start-up aid 6. Complete sample data and 
sample reports for practice and training a big help 
to new users 7. FREE 1-year subscription to Users' 
Newsletter, Debits and Credits ' It's full of tips, ideas, 
news, and useful suggestions from us and other users 
Recent issues have run over 20 pages long' 8. FREE 
complete Source Code in popular MBASIC so you can 
easily customize any program to suit your special needs 

9. Telephone "Hot Line'' service lor helpful Installation 
support, Start-up support. Technical support, and Train- 
ing support The quality of our cheerful customer sup- 
port has been acclaimed "excellent." 'first-rate." and 

"very courteous and professional" by our users 

10. Access to our growing network of Experienced 
User Consultants'" in both the U.S. and Canada 
These qualified knowledgeable businesspeople 
themselves own this fine software and are available to 
assisl you with almost any aspect of installation, train- 
ing, operation — or even customization if desired. You'll 
receive the latest Directory of these helpful Consultants 



Look who's using it: 



Here is a sample (taken from our customer files) of the 
wide variety of businesses successfully using this time- 
tested. soiKJiy-estabMsheO, user-proven software 

• BoooMpng »«wicm • CPA/Accountig ■"»* • CorWudOfl cofffpaVWM • 
Whoa— *» f *-•*» ■ fWtaji f >on*» • Pr«v»x* • *mnnc* Aga^cta * Snopptg 
C*n«*» • Mutwia Shopt • Engfcn^mg *"■• • So»>»w» Co™*)»*m* • Compute* 
rtaafr* • Pubaaattars • rnaroat MrvcM CO r^ipan— • trnmton • Applamc* »axv 
•=• *"m • DfkwaM • Boavwu • Unnenvb, ems n a— School • CaohcaVc Dwcaaa* 

• BeepMt Mi"amr*9 • S*l MaWer • CiVM-MK** Hnpattf • CaV Weak* • PuM* 
LaVaVy • C#»»»«« P«eVH * *^ u ja j rtttp*oduc*'nanu <» c t tfrwiq co anpay>^« • MoMuett 

• Coal Compevh- • ' v/f *m tvoduc*'! and 9m* ntMU>r * • Gtntvai Sum (in AaMkal. 

• HaaJiri *•"-*<•* oro^miaiion • Qova*nmani Kgawctm • RaconJ and Tape atom 

• Trade Aa.aocuBT*on ■ Oapncs fwmi • Off** product! oampaafvaa ■ «#ai Eataw 
firm*, • O" Product* dVlrtxaDi • tnm+umatr* Company • My*au»c Produttt com- 
pany • Outdoor EapadNiona company • Many typaa o' tcftoo* • Chiropractor* • 
Physaciana • Lanoacapar* > la* Vim ■ HaaUau-ant* * PVinatxng C ompawaa • 
RaWOM • f amen ■ Banna • Comuflami • and many many, mora* 1 



Call for FREE LITERATURE, including sample reports, comparison chart, user letters, etc. 
Not sold in stores • Order today by Mail or Phone • Phone Orders Filled Promptly 



Orders. Questions, and Literature Requests CALL NOW, TOLL-FREE 



<7J» 1-800-832-2244 

I. S«— lla — __:_ «.*.!! 4 OAA 7M IO-1-t 



Please mention 
Ad #120-V 



VISA_ 

In California call 1-800-732-2311 

Technical Support Hotline (8 AM to 5 PM. Mon.-Fn.) (415) 680-8378 

Sand Orders To: 1280-C Newell Avenue. Suite 147-V, Walnut Creek, California 94596 

• Wham ordering pleoae mention or include tne A 
(eater 2-day -WArr SeryVta • C«e»omta reaadert* 



A Complete System! 

Includes all four standard general accounting programs: 

GENERAL LEDGER is completely integrated to automatically post 
endof-month transactions from A/R, A/P and Payroll It prints 13 detailed 
reports for the entire company, and optional Income Statements for up 
to 99 departments. It produces up-to-the-minute comparative financial 
statements with current, year-to-date, budget, and last year (month and 
YTD ), showing both dollar amounts and percentages, and presents 
everything you. your bookkeeper, and your accountant need to know about 
the company • G/L automatically reconciles all accounts, and main- 
tains extensive, detailed audit trails showing the source of each G/L entry 
for quick, easy, tracing • Trial Balance includes all transactions • Flex- 
ible Chart of Accounts • True double-entry bookkeeping • Master File 
capacity 400 Accounts • Monthly Transactions capacity 1 ,000 with 200K 
diskette; 3.500 with 500K diskette; 7,000 per Megabyte with a Hard Disk 

ACCOUNTS RECEIVABLE provides Instant, on-line customer 
account information (both current and aged), with complete, timely 
invoicing, including open-item (or balance forward) and statement 
capabilities It makes the entire billing process fast. easy, and efficient 
It quickly identifies your overdue accounts, help* speed collections, helps 
control your cash flow, and assists you in making better financial deci- 
sions Both detailed and summary customer activity and aging reports 
are instantly available • Preprinted forms available lor Invoices and 
statements • Detailed audit trail • Maintains comprehensive customer 
data tiles • Produces 8 reports and documents • Includes automatic 
periodic customer/client billing option which is ideal for service businesses 

• Itemized monthly transactions • Master File capacity 400 Customers 

• Monthly Transactions capacity 800 with 200K diskette; 3.500 with 500K 
diskette 7.000 per Megabyte wilh a Hard Disk 

ACCOUNTS PAYABLE maintains complete vendor/voucher 
history and includes check-writing capabilities Current and aged 
payable reports are available upon command It prepares an extremely 
useful cash flow/cash requirements report that greatly improves 
management control of your most valuable resource — cash' It prints 
checks (on commercially available forms on which your company name, 
address and logo can be Imprinted) with comprehensive check stubs 
that your vendors will appreciate • Produces 1 1 reports and documents 

• Automatic pay selection program allows payment by due date or by 
discount date • Manual and automatic checkwrltlng • Check register 

• Detailed audit trail • Itemized monthly transactions • Master File 
capacity 400 Vendors • Monthly Transactions capacity 800 with 200K 
diskette, 3,500 with 500K diskette; 7.000 per Megabyte with a Hard Disk. 

PAYROLL is a complete easy-to-use professional-quality payroll 
system Be the office hero each week when the checks come out on time 1 
This program calculates payroll for every type of employee (hourly, 
salaried, and commissioned) and prints payroll checks (with popular, 
comprehensive check stubs) with an absolute minimum of input Your 
company name and logo can appear on these, too • Stores and reports 
comprehensive employee and payroll information • Maintains monthly, 
quarterly, and yearly totals for reporting purposes m multiple statesC) 

• Offers user-maintainable Federal, State, and local lax tables; • 
W-2 printing • 941 Reporting • Produces 10 reports and documents 

• Master File capacity 400 employees An outstanding Payroll package' 



Produces 42 Reports & Documents: 



General Ledger I, Chan o» Accounts 2. Chan o' Accounts with summary dollar 
amounts 3. Cun ol Accounts wilh prior year comparisons 4. Daily Transactions Report 
S. Itemized Monthly Transactions a. Balance Sleet 7. Balance Sheet with prior year 
comparison 8. Income Statement t. Income Statement with prior year comparison 
10. Departmental Income Staiementlsi 11. Departmental Income Sutement(s) win prior 
year companso n 12. Detail report lor individual accounts 13. Trial Balance Statemeni 
ACCOUntS Receivable I. Daily Transactions Report 2. Invoices (with or without 
preprinted lorms) 3. Statements (wilh or without pre-prmted lormsl 4. Summary Aging 
Report S. Detailed Aging Report S. Itemued Monthly Transactions 7. Detailed Customer 
Activity Report a. Summary Customer Account Report 

Accounts Payable I. Daily voucher Report 2. Daily Credit Report X Checks 
with Detailed stubs 4. Check Register ». General Ledger Transfer Report a. Cash 
Requirements Report 7. Transaction Register a. Open Voucher Report S. Aged Payables 
Report 10. Detailed Vendor Activity Report 11. Summary Vendor Account Report 
Payroll I. Federal Tan Tables 2. Stale Ta« Tables 3. Payroll checks with stubs 
4. Payroll Check Register S. Monthly Payroll Summary a. Quarterly Payroll Summary 
7. General Ledger Transler Report a. Detailed Employee File Listing a. Produces 941 
Worksheet 10. Pnnts annual W-2 Forms 

System Requirements: Either CP/M 1 or MS-DOS (PC-DOS) • 
Microsoft BASIC • 64KRAM • Two disk drives or hard disk • 132 column 
wide carnage pnnter, or an 8 Vi " x 1 1 " printer with compressed print mode 
(an Epson MX-80 or similar printer) 



reayMiiahAlrStrvtoa 
I nejellllll 'rada "•' 



irlii • No aalaa lo Oaa*a'* 



appaartno near our lolaphona numrj*i • Ordora ahlppad within 48 hour* via UPS • Add IS 00 lor 
*H SaMM) Tti • Ptrmwu by VISA 'MaalarCard COO <aO. Caahiaf'a Owl • All Brand Nome* ara manufac 
rpfa+BW ordara plaaaa earl or w*IW boTore ordortnct • 1SS3 Rocky ISountaln Somvara Syatama. 



100% SATISFACTION GUARANTEE 

No-Risk. 30-day Money-Back Guarantee 

Order Desktop Accountant and evaluate it yourself for 30 days Test the 
performance Of each program using our comprehensive Sample Data Fnea 
to enter and process data, query accounts, print checks and reports, and 
more. Review the five User's Manuals, hear the Training Tape, read the 
users' Newsletter, even call our Technical Support Group with your ques- 
tions »bu musl be completely satisfied with Desktop Accountant or you 
may return it in good condition wifh We Sealed Master Disk UNOPENED 
(it installs your live data) for a prompt courteous, complete refund' 



A\ 



ROCKY MOUNTAIN 
SOFTWARE SYSTEMS 

Sroeca s's 'n Accojn'inq Software 



• See List of Advertisers on Page 291 
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10667 


LEFT$ 




FAC1. 


10716 


RIGHTS 


12746 


Moves FAC1 to address in HL. 


10726 


KIDS 


12852 


Saves FAC1 on the stack. 


10759 


VAL 


12892 


Floating point constants. 


10807 


INSTR 


12942 


.25 


11084 


FRE 


12974 


pi/2 


11113 


FAC1 < — FAC1-FAC2. 


12990 


Square root of 3. 


11128 


FAC1 < — FAC1+FAC2. 


13015 


1 


11519 


FAC1 <— FAC1*FAC2. 


13203 


2*pi. 


11719 


FAC1 <— FAC1/FAC2. 


13298 


ABS 


12006 


Moves C bytes starting from 


13309 


Negate FAC1. 




address in HL to address in DE 


13319 


SGN 




in a decreasing manner. 


13417 


Moves B bytes of memory from 


12015 


cos 




address in DE to address in HL 


12041 


SIN 




in an increasing manner. 


12120 


TAN 


13426 


Moves B bytes of memory from 


12145 


ATN 




address in DE to adress in HL 


12239 


LOG 




in a decreasing manner. 


12378 


SQR 


13569 


CINT 


12452 


EXP 


13610 


CSNG 


12606 


RND 


13754 


CDBL 


12686 


MOVE FAC1 to 64633-64640. 


13893 


FIX 


12692 


Adds memory to FAC1. 


13908 


INT 


12698 


Subtracts memory from FAC1. 


14804 


PRINTS the 16-bit integer stored 


12704 


FAC1 <— FAC1*FAC1 (squares FAC1) 




in the register pair HL. 


12707 


Multiplies memory and FAC1. 


16288 


TIMES ON 


12725 


Moves FAC1 to FAC2. 


16306 


TIME$ OFF 


12728 


Moves number at address HL to 


16313 


TIME$ STOP 




FAC2. 


16393 


Clears COM and TIMES locations. 


12737 


Moves FAC2 to FAC1. 




Clears KEY definitions 


12740 


Moves number at address HL to 




and sets 63060 to TMm , , . 
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INTRODUCING 



TELE-STOCK 



i 



for TRS-tO* Mad 100 



XVZ iOPP. 

i»lM'10£" ir044 
Hl^f. Mil 13. " 

CIO** Bid 



3& 



'V"' 1 






STOCK MARKET DECISION ASSISTANCE 

12 to 24 hours ahead of the newspaper 
at less than the cost of the newspaper. 
Your Model 1 00 automatically calls the 
Dow Jones News Service immediately 
following the close of the market each 
day. retrieves the market activity for 
your investments (it takes about 1 
minute and cost 15-30 cents), then 
displays and prints for each investment: 

• Tuays Actrthy 

•45 day historical graph shorn* HIGH. LOW. 
CLOSE. VOLUME 

• Ratmrw m lamtm—t 

The cost ot the daily service, this soft- 
ware and even your T R S-80 may be tax 
deductible when used for this purpose 
(consult your tax advisor for details) 

IMPROVE YOUR INVESTMENT PERFORMANCE 

for only $59.95 (Ca. residents add 6% 

tax) on cassette with manual. 

Send check, money order or VISA/MC 

number with expiration date to: 

TELESOFT" 

P.O. Bit 9399 

ntrnmi Oaks. Ca. 91359 „ 15 

ar cat 999/499-927 f 

■Requires 24K Model 1 00 with direct connect or acoustic 
cable 'TRS-80 is a trademark of the Tandy Corporation 



JM?ACT0ft 



8' *0B Z0LOST0NE 




>0u a*E the comtMi DE* or the i«nrro». 
4 ftTMl 9ESE**C" B- SE WITHIN ThE »i**t' 

tho*e*ll' s :n»c» Cite it :s u» ro *ou 

TO *E*El r "€ EnE»* into The oute* code. 

Krone, the* c*us* he imp*cto*. but 
sf>4*f or the ettaiAi. bouncing dot. 

(NMCRM IS * "IC" SPEED. MACHINE 
.anOuaoE SMC. 

•OOEl I t III ltK an IJ1.M 

nooCi i t in n* i isk tij.tt 



<0" Br BILL 40015 * : 

K0*' IS * m»C»lM, LANGUACE '*0G*An 
that w i ll ALL0* 0U TO CO*' M0S t ANr 

single L040 -»:- he 1.4NCU4CC •*oz*ah. 

01 CASSETTE. K0* »/tt ALLOW The -OOEl 

111 use* to CO*' » **oc*am in *t 
500'liOO BAUD. 4.0 CO" IT BACK OUT ar 
500/1300 84U0. K. *•> SHOWS riLEHAmC. 
STMTI1C 400».. 0T*L BYTE COUNT. 

Ehte» aoo*.. 4*0 BllOWS ro* -ULTl*iE 
3U—S. 

hOOEl 1 4 111 It Ta*E tt.fi 



THE SOFTWA \E EXCHANGE 

WIS COM TON MAD 

CLEVELAND I T8.. OBIO 44111 



»-28 



400 11.30 »E* ITE- *0E*ED ro* St* 
*U 0*DE*S ShI**E0 l*ST ZlASS HAL 

INCLU0E CHECK 0* h. . • ;00: 400 S2.DC 
OHIO 1ES1DE1TS aOD 3LES TA1 
- DEaiE*S INVITED - 



LARGE CAPACITY „ 

ACCOUNTING PROGRAMS J 

w 

■< 

3 

K 
a* 

a 
o 
m 
o 

> 

> 



ACCOUNTS RECEIVABLE 

5000+ CUSTOMERS 
1 5000+ TRANSACTIONS 

BALANCE FORWARD 99 TRANSACT CODES 
30-60-90-120 AGED. STATEMENTS SHOW 
DATE/INV4VDESCRIP/AMT (WITH AGEING) 
SELECTIVE FINANCE CHARGES & RATES. 
FAST ENTRY POST'NG W/AUDIT REPORT 
SUB-ACCTS. % OF CREDIT LIMIT DATE OF 
LAST PAYMENT SALES ANAL YSIS.SPECIAL 
90 DAY ACCOUNTS LABELS 

GENERAL LEDGER 

400+ ACCOUNTS 
5000+ TRANSACTIONS/MONTH 
NO OTHER SYSTEM OFFERS... 

t REPORT FLEXIBILITY/CAPACITY 
t DEPARTMENT P & L(UP TO 9) 
t USE 100+ SUB-TOTALS 
t STATEMENT OF CHANGES (ASSETS) 
t PERCENT P4 L + ACCOUNT DETAIL 

1 49.95 Each • Both for 1 99.9 5 

Both Programs... 

- Run on Model 1.3/4. LNW. LOBO 

- Require Only 2 Drives 

- Come with Sample Data 

- ARE AVAILABLE for Hard Disk 
- 100% Written in BASIC 

- Require 80 Column Printer " 355 

Ask About Our Other Programs 



H. D. P. 

2059 West Lincoln 
Oroville, CA 9596S 
916 -533-5992 



Add S3 oo 
Shipping & Handling 

Postman Collects 
Cash If Sent COD 

VISA or M/C 



N118A8 AXIOVdVO lOMVI NIXSAS Ah 
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15758 






printer. 


16511 


RESTORE 


19360 


Sends carriage return to printer 


16538 


STOP 


19434 


INKEY$ 


16543 


END 


19659 


OPEN 


16602 


CONT 


19R24 


LOAD 


1662^ 


Determines if HL points to an 


19«25 


MERGE 




alphabetic character. 


19919 


SAVE 


16626 


Determines if the accumulator 


20008 


CLOSE 




contains an alphabetic 


20110 


INPUTS 




character. 


20591 


LFILES 


16633 


CLEAR 


20725 


'CRT CAS COM WAND LPT MDM RAM' 


16756 


NEXT 


20806 


TELCOM program. 


16930 


PRINTS CHR$(lT)+CHR$(lfl) 


20558 


Enter here or one of 20561, 


16937 


BEEP 


20563. 


..20579 in case of file errors. 


16941 


PRINTS CHR$(11) 


20593 


DSKO$ 


16945 


CLS 


20595 


DSKIS 


17001 


Turns on reverse video. 


20860 


'Telcom* 


17006 


Turns off reverse video. 


20869 


•STAT' 


17008 


PRINTS CHR$(27)+CHR$ of 


20874 


'TERM CALL RFIND MENU' 




accumulator . 


20900 


'Find Call Stat Term Menu' 


17034 


Clears the label line. 


20906 


1 x pps ' 


17064 


PRINTS label line. 


21060 


'Calling ' 


17994 


Puts input data into input 


21890 


'Full Half Echo' 




buffer. 


21909 


•Wait' 


18315 


DIM 


22353 


'File to upload File to download 


18320 


Get variable name and type. 


22385 


'aborted' 


18833 


USING 


22396 


■No file' 


19268 


PRINTS ASCII character in 


22406 


'Disconnect' 




accumulator. 


22417 


PRINTs message. Sends a cr if not 


19322 


Sends byte in accumulator to the 




at start of a line. 
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This Prescription 
Will save the life of 
your VISICALC ! 

— Don't Buy a New Machine to Run it On 

— Don't Buy a New Spreadsheet Program 



BUY VISICALC 

ENHANCERS from 
SOLUTIONS 

October 1983 Popular Computing 
inloWotk) September S 1983 



SY1 [PTOM: Desperate need to sort the rows or 
columns of a VisiCalc spreadsheet 

*X: SORT™ from SOLUTIONS 

SY1 CPTOM: Bleary Eyes from trying to print a good 
looking report from VisiCalc 

*X : REPORT™ from SOLUTIONS 



SORT 



T 



y 



Sort tr 
spread 
1 Fbrmu 
or coli 
Sort a 
• Sort I 
•Use u| 
ties or 



; rows or columns of your VisiCalc 

.neet 

is and values move with each row 

Tin 

)hahetically or numerically 
ascending or descending order 
lo four additional keys to Dreak 

specify secondary sorts 



Both are tollable lot IRS 80' Models 
l/H/12'16. i . Apple - H + . HE HI and lot me 
ibm pc '' ana compabttes 



REPORT 

» Print with variaDle width columns 
» Segment large spreadsheets into 

multipage reports 
» Repeal columns and rows and multipage 

reports 

» Eliminate unwanted columns 
•Align decimal points 
» Center or justify labels and values 
» Add titles and page numbers to your 

report 
• Write reports lo disk for later printing or 

transmission 



Solutions, Inc. 

13 State Street, Box 989. Montpelier, Vermont, 05602. Telephone (802)229-0368 

Sena -ne a Free Brochure 
PLEASE END ME THE FOLLOWING SOFTWARE 
SORT 6900 REPORT S7900 



Send i ie BOTH SORT and REPORT for $15800 
ALSO AV, ILABLE <SAK W» 

Do* J <nes Spread Sheet Link $27900 
GL Br ige $19500 



Payment Method Preferred 

Check or Money Order Enclosed 

Charge My Credit Card Visa MasterCard 

Card no Exp Dale I 

Signature 

Name 

Address . 

City 



Slale. 



I'D 



I 



Include 5 '00 lor US shipping ana handling 
VisiCalc? is a trademark of VisiCorp. TRS80" is a trademark of Tandy Corp IBM F : 'w , s a trademark of IBM Corp Apple- is a trademark of Apple Computers. Inc _, 2 76 
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22423 


MENU 


27611 


Moves BC bytes from address in HL 


22574 


PRINTS number of free bytes. 




to address in DE increasing. 


22580 


PRINTS 'Select:' and responds 


27636 


•BASIC TEXT TELCOM ADDRSS SCHEDL 




appropriately to input. 




Suzuki Hayashi' 


23128 


PRINTS starting at address in HL 


27721 


BASIC (as called from MENU) 




until a zero byte is reached. 


27795 


Temporarily saves the function 


23164 


Sets up function keys* 




keys. 


23273 


Months stored in ASCII. 


27804 


Restores the function keys. 


23312 


'Microsoft' 


29156 


Adds a character to the keyboard 


23332 


'Select:' 




buffer. 


23366 


Original key definitions stored 


29250 


Returns ASCII of keypress in the 




here. FILES LOAD" SAVE " RUN 




accumulator; 




LIST MENU 




does not wait-returns 


23400 


ADDRSS (program) 




if no keypress. 


23407 


SCHEDL (program) 


29381 


SOUND routine. DE contains pitch. 


23450 


PRINTS 'Not found press space bar 




and B contains duration. 




for menu" 


29772 


Turns on the pixel (x,y) where D 


23758 


AD^RS.DO 




contains x and E contains y. 


23767 


'Not found' 


29773 


Turns off the pixel (x,y) where D 


23852 


•Call' 




contains x and E contains y. 


23920 


PRINTs date and time at top of 


30326 


Togqles the speaker. 




screen and updates it until a 


30306 


Equivalent to BEEP. 




key is pressed. 


30481 


Character set 5-bytes each. 


24046 


TEXT (program) 


31729 


Keyboard matrix 


24051 


Requests a file to edit. 


32«51 


Initialization 


24085 


'File to edit' 


32231 


Initialize pointers (cold start) 


24106 


'FIND LOAD SAVE COPY CUT SEL 


32422 


PRINTS TRS-80 logo. 




MENU' 


32428 


PRINTs number of free bytes. 


24145 


EDIT (program) 


32523 


MAX FILES* 


24367 


Waits for a space keypress and 


32664 


* bytes free' 




then returns. 


32676 


TRS-80 logo stored in ASCII. 


24376 


'Text ill-formed' 


40960- 


62959 User RAM in 24K machine. 


24395 


'Press space bar for TEXT* 


62964+ 


HIMEM value. 


24753 


'Memory full 


62966 


Code called at 32145 and 32197. 


26051 


Moves memory starting at address 


62969 


RAM vector for RST 5.5. 




in HL to address in DE until a 


62972 


RAM vector for RST 6.5. 




byte is reached. 


62975 


RAM vector for RST 7.5. 


26062 


'No Match' 


62978 


JMP 516 9 


26071 


'String' 


62981 


Code called at 32108 and 32292. 


26380 


'Width' 


62991 


Code called at 896. 


26421 


'Save to: ' 


63012 


Code 


26579 


'Load from: ' 


63024 


8-bytes KEY ON/OFF flags; 0N=1 

Table 1 continued 



MODEL 

100 

ASSEMBLER 

$22.95 

Requires 16K Ram 
Assemble to Tape or Ram 
Available on Tape or Disk 
Extensive Documentation 

CUSTOM SOFTWARE 

605 North Ci #2 
Wei line ton* KS 67152 

316/326-6197 " 49 



8K MEMOFlY MODULES 
FOR THE MODEL 100 
PORTABLH COMPUTER 



$8! each 
2 or mo e $80 each 

Exact Replacen ent for RS Memory 

Easy to Install 

Warran y Included 

VISA and MC Accepted 



iota systems 

1690 De - Valley Road 
Aptos CA 95003 
(408 684-0482 



Prices Subject To hange Wiinout Notice 
TRS-flO a a traden irk of Tandy Corporal) 



SCRIBE 

REAL 
WORD PROCESSING 
CAPABILITY 

for the 

Radio Shack TRS 80 

MODEL 100 

Portable Computer 

USES ONLY 2K RAM STORAGE 

$24.95 

PLUS S 2.00 HANDLING 
Chattanooga Systems Associates 
P.O. Box 22261 
Chattanooga, TX 37422 

DEALERS INQUIRE „ 225 
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Tabk 1 continued 

OFP=0 

63033 Vertical Print position to 7. 

63034 Next horizontal print position 0- 

39. 

63035 Number of active lines 0-8. 

63036 Number of active columns 0-40. 

63037 Label line flag; 0«unused, 

255=used. 

63038 Inhibits return to first line if 

not zero. 

63040 Cursor line. 

63041 Horizontal print position. 
63048 Reverse video if not zero. 

63054 x-pixel set. 

63055 y-pixel set. 

63063 Power-down value (constant) . 
63070 Code (to 63078) 
63079 OUT/INP self-modifying code. 
63090 Error code 

63092 Value of LPO« 

63093 Output flag; 0=display, 

1 "printer. 
63096+ Top of available RAM. 
63098+ Current BASIC line number; 65535 

stored here if no program is 

running. 
63100+ Start ot current BASIC program 

text. 

63104 End of statement marker (: OR 0) 

63105 Multi-purpose buffer area. 

Tokenized text starts at 63105. 
Input buffer starts at 63109 and 
extends to 63362. 

63368 Value of P0« 

63369 Function key definitions 

currently active, (extends to 

63497) 
63498 Function key defintions used by 

BASIC, (extends to 63626) 
63628+ Pointer to start of PASTE text. 
63639 Start of work area. 
63785 Day of the month low digit here, 

high digit in 63786. 

63787 Current day of the week 

(e.g. 3>wed.) 

63788 Current month - decimal 1 to 12. 

63789 Current year stored with low 

decimal value here and the high 
decimal value in 63790 

63791 Timer; decreases from 125 to 0. 

63792 Timer decreases from 12 to 0. 

63793 Power-down countdown value 

(varies) . 

63795 Tne computer stores the current 

time starting here with the low 
digit of the number of seconds. 
A numerical value - not ASCII. 

63796 The hiqh digit of number of 

seconds. 

63797 Low digit of number of minutes. 

63798 Time and date continues here with 

one decimal value per location. 
63805 6-byte value of TIME$ for ON 

time$ statement (in reverse 

order) . 
63812 COM ON/OFF flag. 
63813+ Address of COM ON routine. 
63815 TIME$ ON/ OFF flag. 
63816+ Address of TIME$ ON routine. 
63818 ON/OFF flag and routine address 

Table 1 continue 



Continuous 
Checks, 

Statements, 
and Invoices 

for Desk-Top Computers 

• Compatible with software from over 300 
sources. Or program to NEBS standard 
forms yourself. 

• Continuous Micro-Perf' M Letterheads and 
matching continuous Envelopes provide 
a clean, trim look. 

• Also, diskettes, continuous labels, other 
supplies and accessories. 

• Our policy is to process forms printed 
with your name within 6 working days. 
Then ship direct to you (We pay shipping 
charges on prepaid orders). 

QUALITY PRODUCTS 

SMALL QUANTITIES AT LOW PRICES 

MONEY-BACK GUARANTEE 

FREE Full-color, catalog 

fast service by mail or phone 
TOLL FREE 1 + 800-228-9680 

(Mass. residents 1 + 800-922-8560) 



COMPANY 


STREET 


CITY. STATE. ZIP 


SOFTWARE BRAND PACKAGE* " ™ 

I — | DO OWN 

1 1 PROGRAMMING 


COMPUTER BRAND MOOEL 


PLAN TO PURCHASE WITHIN 


YOUR LINE OF BUSINESS 


NUMBER 6P EMPL6Y£ES 


1 M6ST OfT* N USE MY C6MPUYER FOR 





_ 



WORD PROCESSING 



1 



ACCOUNTING 



□ 




cJfewsa---.- 



12 South MfOTl Town 




*- See List of Advertisers on Page 291 



15111 



^533 

— J 
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Table I continued 

of function keys; 3 bytes per 
key. (extends to 63841) 
63842 Files in the format: address, 6- 
character name, 2-byte extension 

63898+ Address of BASIC program that has 

not been saved to RAM. (Suzuki) 
63909+ Address of Hayashi f points to the 

end of documents. 
64173 Label line enable flag; enabled 

if not zero. 
64175 Name of IPL program. 
64190+ Used for temporary storage of 

stack pointer. 
64208+ Length of CLOADed/CSAVEd program 
64357 BASIC variable type. 
64404+ Line number of active DATA 

statement. 
64409+ Location of BASIC variable for 

assignment statement. 
64411+ Start of current BASIC statement 
64413+ 2 less than value in 63096-63097 
64415+ Line where error occured. 
64417+ Most recently entered/listed line 

64419+ Location of statement where error 

occured. 
64421+ Location of ON ERROR GOTO line. 
64423 Error status flag. 
64424+ End of BASIC expression. 
64426+ Line where Break occured. 
64428+ Location after error (contains 

or 58) . 
64430+ Start of documents. 
64434+ Start of variables. 

The region from 64536 to 64640 is 
used for floating point computations. 

64536 FAC1 (floating point accumulator) 

8-bytes. 
64617 FAC2 (floating point accumulator) 

8-bytes. 
64642 Maxfiles. 
64659 Name of current BASIC program; 6- 

bytes. 
64668 Name of program loaded from tape; 

6-bytes. 
64904 Start of date and time stored in 

ASCII. Used for Menu display. 

Not used for TIME$. 
65024 Start of screen memory. 

65348 Sound flag; on=0, off =175. 

65349 Cassette on/off flag. 

65424 Holds the value 2 as long as a 
noncontrol key is held down. 

65429 Devoted to the number keys. Also 
uses location 65430 

65431 Bits are set here according to 

which ot the following keys are 
pressed: SPACE, DEL, TAB, ESC, 
PASTE , LABEL , PRINT , ENTER . 

65432 Pressing a function key sets the 

corresponding bit in this 

location. 
65441 Behaves like 65*32. 
65*42 The following keys set bits in 

this location: SHIFT,CTRL,GRPH, 

CODE, NUM, CAPS LOCK. 



65446 Code (not ASCII) for most 
recently pressed key. 

65450 Number of characters in keyboard 

buffer. 

65451 Keyboard buffer (32 byte maximum) 

Odd bytes contain ASCII values. 
A 255 in an even byte indicates 
a function key. 
65515 Used to store 5-byte character 
code. 



Token 


Keyword 


Token 


Keyword 


Token 


Keyword 


128 


END 


171 


DATES 


213 


AND 


129 


FOR 


172 


DAYS 


214 


OR 


130 


NEXT 


173 


COM 


215 


XOR 


131 


DATA 


174 


MDM 


216 


EQV 


132 


INPUT 


175 


KEY 


217 


IMP 


133 


DIM 


176 


CLS 


218 


MOD 


134 


READ 


177 


BEEP 


219 


\ 


135 


LET 


178 


SOUND 


220 


> 


136 


GOTO 


179 


LCOPY 


221 


= 


137 


RUN 


180 


PSET 


222 


< 


138 


IF 


181 


PRESET 


223 


SGN 


139 


RESTORE 


182 


MOTOR 


224 


INT 


140 


GOSUB 


183 


MAX 


225 


ABS 


141 


RETURN 


184 


POWER 


226 


FRE 


142 


REM 


185 


CALL 


227 


INP 


143 


STOP 


186 


MENU 


228 


LPOS 


144 


WIDTH 


187 


IPL 


229 


POS 


145 


ELSE* 


188 


NAME 


230 


SQR 


146 


LINE 


189 


KILL 


231 


RND 


147 


EDrr 


190 


SCREEN 


232 


LOG 


148 


ERROR 


191 


NEW 


233 


EXP 


149 


RESUME 


192 


TAB( 


234 


COS 


150 


OUT 


193 


TO 


235 


SIN 


151 


ON 


194 


USING 


236 


TAN 


152 


DSKOS 


195 


VARPTR 


237 


ATN 


153 


OPEN 


1% 


ERL 


238 


PEEK 


154 


CLOSE 


197 


ERR 


239 


EOF 


155 


LOAD 


198 


STRINGS 


240 


LOC 


156 


MERGE 


199 


INSTR 


241 


LOF 


157 


FILES 


200 


DSKIS 


242 


CINT 


158 


SAVE 


201 


INKEYS 


243 


CSNG 


159 


LFILES 


202 


CSRLIN 


244 


CDBL 


160 


LPRINT 


203 


OFF 


245 


FIX 


161 


DEF 


204 


HIMEM 


246 


LEN 


162 


POKE 


205 


THEN 


247 


STRS 


163 


PRINT 


206 


NOT 


248 


VAI. 


164 


CONT 


207 


STEP 


249 


ASC 


165 


LIST 


208 


+ 


250 


CHRS 


166 


LLIST 


209 




251 


SPACES 


167 


CLEAR 


210 


• 


252 


LEFTS 


168 


CLOAD 


211 


/ 


253 


RIGHTS 


169 


CSAVE 


212 


A 


254 


MIDS 


170 


TIMES 










• Basic reads ELSE 


as.LSE, withLSE = 


145. 






Table 2. Basic keywords and tokens. 





242 • 80 Micro, December 1983 



It's Simple. . . CALL AND SAVE MONEY 



1-800-841- 



CONVENIENT 
ORDER ENTRY 

GA. INFO. 912-377-7120 



"Telemarketing Works For You" 



£s commodore 

CALL FOR BEST 

PRICES ON 
COMMODORE 

COMMODORE 64 

VIC 1541 DISK DRIVE 

VIC 1530 DATASETTE REC. 

VIC 1525 GRAPHIC PRINTER 

VIC 1520 COLOR PLOTTER 

VIC 1600 VIC MODEM 

VIC 1701 COLOR 14" MONITOR 

COMMODORE 64 SOFTWARE 

HESWARE SOFTWARE 

WORDPRO PLUS 3 



•CALL 




• PURE RADIO SHACK EQUIPMENT 

% 



UP 
TO 



20 



AND 
MORE 



DISCOUNT 

***CALL FOR PRICES*** 
ON COMPLETE LINE 



IBM COMPATIBLES 

YOUR CHOICE 

eaGLE PC 

COLUMBIA PC 
CORONA PC 

SCALL 



RB ROBOT 

RB5X *CALL 

ARMATRON 

ROBOT ARM 
•29 



EPSON 

PRINTERS 
FROM $ CALL 

FX-80 SAVE 

RX-80 SAVE 

FX-100 SAVE 



TRS-80 PRINTERS 



COMPLE 



BBB 



SMITH 
CORONA 



TP-I DAISY 

WHEEL 

PRINTER 

FROM SCALL 



ELINE FROM $ 199 



SOT* 

<;emini 

1 )X & 15 

PR INTERS 



FROtf 



279 



C. Itoh 

SCALL 

Transtar 

SCALL 



OKJDQA 
PRINTERS 
FROM SCALL 

MICROLINE SERIES 

•83A 
•84P »92P «93P 
PACEMARK 2350P 



MODEMS 
Q)Hayes 



NovatJonffl 



•CALL 



MONITORS 
USI 

SCALL 



NOTICE 



ALL PRODUCTS WE SELL ARE BRAND NEW 

AND COVERED BY THE MANUFACTURER'S 

SPECIFIC WARRANTIES. COPIES AVAILABLE 

UPON REQUEST 

WE DO NOT SELL ANY USED. RECONDITION 

ED. FOREIGN OR INFERIOR MODIFIED EQUIP 

MENT 

PRICES AND PRODUCTS SUBJECT TO 

CHANGE WITHOUT NOTICE 



QJJADRAM 

COBPCCATlOf 



GRJ.PPLER + 



FREE 



FFbiNKLIN 

CO SAPUTERS 

•CALL 



UPON REQUEST 

•DISCOUNT PRICE LIST & 

INFORMATION KIT 

WRITE 

MICRO MANAGEMENT SYSTEMS 

TELEMARKET DEPT. §1^ 



AST & 

C0L0RPLUS 

BOARDS 

SCALL 



\feibatim 

NEW 
PRODUCTS 

•CALL 



Since 1978 

PIONEER IN DIRECT TO 
CONSUMER SALES OF MICRO 
COMPUTERS AND ELECTRONICS 
NAME BRAND PRODUCTS 
LARGE INVENTORIES 
NEXT DAY SHIPMENT ON 
MOST PRODUCTS 




DISCOUNT 
PRICES 



. 



Micro IV! anagement 
Systems, Inc. 

2803 Thoi lasville Road East 

Cairo, Georgia 31728 

(91. ) 377-7120 



^96 



BUY 
DIRECT 

TELEMARKET DEPT. 



a i 



*■ S—Ustof Advrtlaers on Page 291 
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Make Your Own Modem Cable 



by Cari Oppedahl 

While the Radio Shack modem cable for the Model 100 
comes with one free hour each of CompuServe and Dow 
Jones services, this may be of little use to you if you already 
subscribe, or if you need more than one modem cable. For 
these reasons I built my own. 

The circuit diagram for the Radio Shack cable appears in 
Table 3. One end is an exotic 8-pin DIN plug (see Photo 1) 
whose spacings are slightly different from those of the 8-pin 
cassette DIN plug. Look closely at the top panel of the Model 
100: The difference lies in the placement of pins 6, 7, and 8. In 
the phone jack pins 7 and 8 sit directly below 1 and 3, while in 
the cassette jack pins 6, 7, and 8 are somewhat closer together. 

Extending from the 8-pin plug are two conventional-look- 
ing modular telephone line cords. You would connect the 
beige cord to the local phone company dial tone, as with a wall 
jack, and the silver cord to a conventional telephone if you 
were using the computer as an automatic dialer for voice calls. 

Unplug the modem cable from the Model 100, and the tele- 
phone connected to the silver cord will go dead. So Radio 
Shack provides a shorting connector to mate with the 8-pin 
plug in place of the Model 100. It connects pins 1 and 7, 
temporarily making the modem cable into a rather expensive 
telephone extension cord. 

But with a bit of drilling and soldering, you can make your 
own cable at a cost of only a few dollars. Even if you buy all 
the parts new from Radio Shack and want to duplicate all the 
functions, including autodialing for voice telephone calls, 
you'll spend only $10.88. (See Table 4.) 

Since you need only pins 1, 3, and 7 (and you can omit pin 1 
if you don't need the silver cord) you can pry loose one of pins 



DIN pin 


Modular plug 


1 


grey cable, green wire 


2 


NC 


3 


grey cable, red wire. 




and beige cable, red 




wire 


4 


NC 


5 


NC 


6 


NC 


7 


beige cable, green wire 


8 


NC 


Table 3. Connections in 


Radio Shack Model 100 modem cable. 



Part Description Current Price 

Two 5-pin DIN plugs, part number 274-003 $1.49 

Telephone line cord, part number 279-374 $4.95 

Inline coupler, part number 279-358 $2.95 

Table 4. Parts list for homemade modem cable. 



2, 4, or 5 to be used in position 7. However, it's difficult to re- 
move pins from the black plastic. I ended up buying an extra 
5-pin DIN plug, and simply cracked apart the plastic to get a 
spare pin to mount into a newly-drilled hole in the other. 

After you extract an extra pin from a DIN plug, drill a hole 
in the 5-pin plug so that you can insert the new pin and glue it 
in place. This requires a 5/64-inch drill bit and a steady hand. 
Before drilling, slip off the plastic sleeve of the DIN plug by 
lifting the tab above pin 2. Then separate the two halves of the 
metal barrel inside. This exposes the black plastic carrier con- 
taining the five pins, which requires a hole for the new pin 7. 
The important thing is to drill the hole directly below pin 1 , so 
that the new pin 7 fits into the matching hole in the Model 100 
phone jack. 

Then, mix up some epoxy glue. (I used a brand that sets in 
10 minutes with satisfactory results.) Grasp the extra pin with 
a tweezer or needlenose pliers, apply glue to it with a 
toothpick, and insert it carefully into the hole. (See Photo 2.) 
Hold it parallel to the other pins until the glue has hardened 
somewhat. Then let it set for the period recommended in the 
glue instructions. 

Next take the modular phone cord and cut it in half. Taking 
one half, carefully remove about an inch of the outer jacket. 
Inside you'll find green, red, and probably black and yellow 
wires. Clip the yellow and black wires (if any) short and strip 
the red and green wires, which carry what the telephone com- 




Photo 1. Radio Shack 8-pin DIN plug. 




Photo 2. 5-pin DIN plug with new pin 7. 
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N&MTEZUNIA 
NMCRO 



P.O. Box 2169 

Camp Verde (Lizard Flats) 

Arizona 86322 

WE KEEP YOU RUNNING 



COMPUTERS 



Moon 4 aa* 2 dnrae » P.S-233 MR Co-***. 

261066 20rRi232 PuraFlSanOMNFV* 

2610(7 itKModi »inM«S«. 

2*10** MmiMwniiis 

263003 H»C«»CW»«> 

26-JOi' MCiOMmCmCaavuar 

2*302* IWfrriBWl 

2*3027 WIlMHHKCottCnwv] 




(MX MtaiOOrBtn 

263*07 KMItCMIMMCPWB 

26-4004 Modl220»aa 

26-4005 M0dl27O»» 



26-6005 tWIMIOM 4*2* 

26600* MO0 It* aan*tl*M> ITMBiarTlDak M 

266050 Oil '»i »» JM 

UMrMadHiConvMv. iitk rs-232 trsdos Con»un 

Compare wm CPfM 2 2 and «U ol FREE SOTV.ABE 14*8 

20P.BA PonaDM 2 DSDD grim 80.25 4MM graphic* 7 
green phcaphor ecrearv PjS-232. lEEE-eSS « CarMrontce pone 

~TtT WoMSta. MMU.0) SuperSon CMcSta IMS 



26-1443 B- Dreckpral T'*C10t 

261447 Ba-OVacarpajlTreeiOr 

2H«« Smga IV- s/aei f eeaa 

261456 AcoueacCora 

261459 »Oneaan*l Tftnar 

3*1401 UMIKUHMncCM 

261408 HS-232CCeDa 

76i40» MMiOOPnranCaBB 

26-4401 iiiiiit nn miff 

26-14W 10 RS2J2C CaDa 

26 '491 2S HS-733C Case 

2*14*2 50 RS232C Cat*. 

2614*3 100 RMtXCW 

»i«H M-»CCaatiiM> 

26I4« FtS732CMuIMoOa»Aoeoai. 

2*i*a* fnaNvMi 

2* 1498 WS-232C '. — ex. S»ecn 

26JS05 PC IPmi 

263M1 KltaV 

263605 PC2PnMaT 

2*3662 PC4Pnraa 



26-2212 NEW PASCAL. For The UaoW 4 

28-2213 Mod 1 LOOS 

262214 Uog] LOOS 

262216 CPfMPWoTheMoran 

2*2217 CCAS1CFo.rh.Uoa. 4 iPaou... CP.-Ml 

262230-23 van, 

262224 m i n i C otiii r ru 

26- 2/08 COPCaiWHOl 'epa 

262710 Com Compun. IM.OT Oat 

262718 P*0'a 

262721 CearCoMpuaorLOOO Oak 

267722 LOaOMMtaoi 

163014 0a»7a**a IWIHh 

263030 NEW 0M Par the Can. Cl» HI.M 

26J036 ME* 6AS4C 0* F,x T«a Cor. Cor-OA. 



mx *e tcwrmum so*. opf CaMi aaaa 



CP/M 



CP'U2 2lorlheUoo*4 IN. Very M STONE 
PlTCP/M2 2inFbo«T M2/-12 I* 

P » t C»"M 2 2m Had 142 12 16 
AIMCnOmOSoRwanA.aHOli CatMoaFprc 



BOOKS 



C.IT0H 



6510 



MODEMS 



P i u a'—i I20C04 Frtcaon/Tractor P>*J 
1550 PnxunMr} i?0cpt lorOHMPaoei PvaW 

FIO-40 Slarw-ner eTjcpa O aa , .tieel 
810-55 Pnnamaauv 55cp* Oeayarvaal 

F10 HtOMCDOnol Tractor «7P1aMK COW 

Fio Seit>* Bet Shell Fiaai 

MOO nanlAWOuaay laOox 2-CoDr 
OK-iOO Ooreateiana Mag, 

Cx-4000 Pn—Puma •&» 



IB0SlT(^UaMYPJEVC8arjE 

1 ailar *a aaaa. KID-8B ae» o>« an M aaaM ■ 

Tha era aaa keen reeilat **e*aHimii.el.w*o*fcore 

TCWICO..ONL, $ 299 



ANADEX 



P— 0.1) 100, HOPS 



PERIPHERALS 



Of 9620 laoceePnaar 



wp-6000 2**c*a Maa»u— »fK<H| Pi .aa 

OP4600 jOBUai Super 7r«k nam Tractor 



r to. MP 6000 6500 





16-0230 
16-O501 
261130 
26-1131 
26-1208 

te-1410 

263007 
26-3008 
26-3022 

Sam* 
36-3033 

Sara* 
263024 
263025 



SUPPUES 



5*46 Hero Oak Pnnary 
Modi 3.4 5MSr«MO*kSer»ndary 

CCauji C iina TarayPaooton 

MoOlOOMcOorr.Cao* 
Color Computer Cerrymg Cue 
Color CompuDar 3oy*BOU. Par Par 
Color CompkAjr Oaa Onva Kit 
•s lOova anoapt our orano 3*n)*SSS 
Color Co-noun. Dak Cmw 1 2or3 
a t om a m an aur arena SamSSSS 
Coicr Co-noun. l**M>a» rW«« 
Coo Compunr Uoum 
Oa> D~a tor ea Color Co-npuajr 2 



PC2<^n-a>*)Ceee 
PC 2 P3-232C raataa 
PC2 4H«J4WU 0U« 

■CIS 



535 SSOO O a a a — p*p»omq 

535 OSOOOaiii*** PeokoiiO 

S SSOOOawaaa PaataiiO 

* OSOOOaiiana* Paaioiio 

5 35 Faaon nam 75 0a«i 

S noaort HoUiMCMH 

S5 nil TractOrPapar Qooa 20 Slo» 2900 Snaa'i 

14 .11 I racior Papar Gooo 20 Slock 2900 sreau 

525 HaadCaarwtoKa 

I MaaaCMarair|K< 



SOFTWARE 



k*7* CM Or Htlraaivai Par 7l» Mora. 4 
31-0310 TBSOOS23For Trauooa I 
3S-0317 TRSOOS I 3>orTtaUorai3 
26-0313 inSCOS8 0Fo. T^uooa. 
361507 




26-3618 

Sanai 
26-4152 
26-4153 

26-4166 
264166 



■ajaioOCanangCaa* 

MooiOOSBRAMUoauli 
• •oc~a.KaoioL.oavg SaaiSSSS 

MO0 2 12 18 1 2W> rang 0a« Primary 
Mod 3.13. 1 8 12MB Hart Oat Saoaaary 

Mod 12 lUWjui Drhaeipra-ortBok 
Moo 12 ieStrrona2 0nv«Expn»iortBVrv» 



FURNITURE 



361306 Moo 3 Sy^wrn Daak 

261306 lJr»ara»Piva»Sajr« 

2*1324 CarapvaarTaaa 

261325 Panor™ 

26-4301 Ma82Daa> 

26-4303 Oaaaa Inn r Cl iii 




PRINTERS & ACCESSORIES 



261156 Qaafnail 



361 ISO Pbbbt 
2«-ii*i H aaPiPaaar 



iscaiaiOnsPaPVBaa 



2611*2 ocp i 

261183 FVjaia 

261196 C«jaua 

261186 CoBr Compua. Orarjnrca moui I 

261250 DWP-410 Oaa y aaa Pnwar 
DMP400 lAur a paPnmar 

DMP 500 220CP4 PnrMar 
0MP 100 SOcotPmar 
DMP 200 l20cO.Ptr.ar 

2612S6 DMP-120 120cp.CXalMoor,Pr. 

2C-12S6 DMP 2100 l80co.Ou.Moo.Pi 

36-1257 owp 210 Oaairaaa P i.aa 



261261 



26'25l 
26-1252 

26-1263 
261254 




26'5io Trans*. 

26'515 RB)*J* Nf« 

26-1516 aMajpan K 

26-1521 V* 

26-IS40 -.EWMooa ICaoaa.aoox 

261541 N>^laaw3JV<caaa>Pata>**a 

26154) NEW Moaa 3 Prro. 

261562 Oarirmaaaji 

261553 *av*ar« Cora-ail 

2S-1554 AoxuraiPnaiii 

261566 AooauraiWica ana 

26-1556 DanPaaaa 

26-1557 Concra. !«.. O" 

261566 BuananMaarigLat 

26'559 Mattuf*rjrura>Qlraarwor.Conaol 

261560 '..adAsaali 

261562 Pro". 

26-1563 Scrsari 

3615*5 Mooa. 

261586 MorH i v*cat 

261568 laargtcaCaic.S.aaia 

2615S8) Mttdasvacac Crranoao 

26157* KWKaKiw 

2*-i5*o Pwaxiiai aaj 

261581 Par 

7615*2 Tmlaanacjar 



26-1565 



26158* 
261580 
26-15*1 
2615*2 
2615*3 
2615*4 
261595 
26-1588 
261597 
262010 
26-2011 
262012 
262013 
362014 
26-2017 
26-3018 
263022 
38-2023 
262150 



? 18 


26-4507 


■aaSpaual* 


2 m 


S3 aw* 


■aaSDB) Ofaja Saaaaa 


■8 


36-460* 


ian*aam|i amCoraq 


■ 


26-4510 


lpaaaBj* 


uri to 


76-4St! 


vaCac 




264612 


aajkaia 




28-8513 


JnCeaang 




264614 


Oraartnay 


9 


28-4615 


Praa.«PX« 


■5 


26451* 


PiaakTrarais OaajB 


12 


264517 


Proa.Pto.Uoa.0. 


••9 




TanaAunMam 


9 


264521 


VaCaiE 


■1 


264525 


Eactronrc Bro*a 


■1 


264531 


SCPIIPSIT 2 


13 


264632 


SCRIPSIT utaty Oak 


9 


264534 


SCPaPSVTOcajrayY 




26-4536 


SCRIPSIT Plow D~« 




264540 


Tuanul Aia»,a« 




26-4545 


Lagaaort Support 


r» 




Araoawtt. *a— aaa 


2 


28 Hag 


Maa.Pi .aia 


2 


26455* 


PirtHIr™ 


2 


28-4567 


PWaaAagNaa 


1 


28-456* 


PIliaaPi.iMil 


l 


28 856* 


PraBoa 


< 6 


2645*0 


WCSTUMP7 



262102 


mo. i lm ■ Marva 


262103 


Msrajl Tai.».aMar»ai 


28-210* 


■aaaa 3 Tattnea Marwa 


26-2110 


■aaaa 4 Taoants Manua 


262111 


MOO* 3 DOS Maxal 


28-2112 


Mdob 3 BASC aajavcaan Man** 


2*2114 


Sojrcacoc* aaafaaaa 


26-2115 


m.aawa %a» HS0 


26-2117 


Moo. • DOS Mavar 


262240 


!■ ajaaa *oraal«8t 


28-31*1 


Calar CaaauaT Mama* 


28-31*2 


Enma Coar Caiaaua. Manual 


26-4*20 


unsfOraanMau 


264*21 


moo. 2 TacPnoa Piar a«* Maraa 


264*22 


Mow 12 Oparaana Manual 


2**040 


Modal 16 Oca-vort Uau. 


266041 


Mod. 168 Ooantrtg Manual 


62-2084 


rpis-ao p«**i basic M*r>d6oo« 


t n S-80 Oak 1 Olhar Myaiarat 


Mrocaon BASIC CacooaJ 


SMSK'amrSBaoar 


6AS4C 


Fanar s Ban. Oaaa Da* 


basic Paaar * Baaar L49rar> Oaa 


BASrCDaki/OFaaariaanar 


nwCaasniTRS-SO 


TPSOOS2 JOacoOao 




• uaavaaaOaaiiO 


no. Do « Or- T-a TPTS-80 


TKS-SO Baonrari Qaa> 




UPGRADES 


laKPMM 200raac " «-** fl aaaa 


6a>*MM ISOnaac I'lAKaarOxararaia 


361122 


aajdal 4 8*81 PAM aa aart ***, 


261123 


MrM. 3 to Mod. 4 upgrarxt U 


26-1125 


Mooa3iiPM.ra.at. *oaro 


2611*8 


mm. 4 -vPaaoiuw *oao 


261127 


MOrM40raaOM 


Saaaa>ac<Ma*«apiou'Diata ga-raSSSS 


28-1143 


MrjdaiDouoaOaraiiY«4 


F»rttOo4A£ROCOMP DOC DouOa Darkly K,l 


2* 1145 


Modrtl RS237K.1 


28-1148 


Moo»l3RS232Kn 


SamaMabovaawxplou'erarid SavaSSSS 


2611S3 


Mrxge3 0ra*r>K4 


Sarrai 


>atx>r«eacapiourorarid SamSSSS 


261163 


Ftada Snaoh 40 '-.* Oak Onai 


■aai 


■ apca«euap>40raD> Taraor> SawaSC 


264104 


Moo. 2 ii Pumuaur »oaro 


264105 


•aKHAMBoara 


2*4163 


* OBKOra* 


36-4167 


8 SkaOnra 


norma, moo- Maa34aaU Spaarxa MOO 


2*3013 


i6««AMFo-MC 'CC00rC0-«k** 


2*3016 


Carj Curauum lo. P-iiWa mmaao 


26 3018 


Caajr Coapular E .araarl tASat ROM 


264)010 


MM? l2roMral*8*00*IU 


2*401 T 


Moc ' .- caro Cap. 



364805 aaaaaaa PaaaW 

28-4807 OroaEnry-CS 



BUY FROM US RIGHT NOW! 




Scnpat Oajaaaary 

fcatt* 

Pna*. Pka L0*c va 



■tC Course 



AaaaaoV Lanpaaa Oaaaspmani Com* 

C0AS 0a* Varaon 

Moo 3 Dak Cov»«4 

HEW A a targ, cangiao. Courte Tapa 

MEW Aaaa-nak, unaaaai Cou-aa Oak 

MfWPoaarTorgl 

•cwooiPa 



264701 FORTRAN 

264702 EOAS 

264703 CCfXX 

264704 CO8OlPA»vTna0r81i 
26-4705 Conoagr BASIC 

364706 Cur-War BASIC Run Irrna C»» 

26470? COPOt Ganaac 

264 706 Report Ganar.tor 

2*4710 Piae/am Eaaar 

26-4712 A a ia umi Maajaal* Daa a1 88aa a» Sa8l * ra 

2*4713 EOAS I 

2*4714 Palo iaT. 

2*4716 EkSTXC 37*0 

2*4731 HiIiiiii FarThaMa— 2 '! i* 

2*4730 8j6nC3270 W8naja2 

264740 a>«i« 

2*4742 CJSASIC 



28-4S34 
36 4835 
264*10 
2*4912 
2*8100 
2*6101 
264)105 
264)201 
264)203 
264)204 
2*6206 
2*6207 
26*206 



Our. 



'ycv 



oonoiaaaatairouaani CKatott are aa rawa rt Sacauaaoifha 
aaa tag m maBana ae.^n n m) ptcat ar* auoaKi u dang* 
a^ntoul Apace Pre* raducnorrt .r* ta rjaaaad along aulornaacaly 
Tour osmpany and/or paraonai crack, ara aa Ko ma and wtf nol 
daiay your ordar w* uM TaiaCnach Piaaaa ooaarva tlaaa 
raourarajnit and your oro*r .a Da anapad aanixrt deMy Tha 
oraok man e* draan on a USA or Canadan Dank ana payaoam 
uSOraar. a muai ca.Dam i» .-a uu a ck ar aim raa n youriaaai 
*»••*• ano Man r i u ia nuatar Tia n anamra aaat tXACTLY 
■«■«» ma nana grrras on rr, crack Than M Bare a to i »t 

aar*4«>n w accapt tonrnKt" liprnt Masavcanl v.«i 
Craou aar* i-araar and •* aao aap COO COO i 



*" -«a, 




SCPaPS.' tor Pa rang Oa. 
Oomary tor aa naro Oak 
8Xa*J7ajn ajr n.MaOraaa 
TRSOOS20 

IRSCOS4 2 

CCBOl Da-aopnani Syirat. 

C08C9. Piun-arra Daaana 

TTtSOOSIS 

OanaraLada*- 

Aoooumt naoavaoa 

Account. P.yKra 
Orda Entry /ICS 

SaaaAitaaraa 

JDDCoaang 



CS 



*» M*an* 



"*w nuni Ma siaia Saan la. oaaaciaa on 
a"-** ■— aa j a aj ai or rori.a. « yo. or » t, spm you/ m. 
aaMaarapaaaaiatXTM'aiaiaiaaonnaraj a« K •» naa*, 
o> aw Buanaai mar* ara MO af FuaaM ON sOfTwARE 
MEPVACEMIklTS a».l BE "»ot« DIOO OE FEC irv( mars 

aain ol a a ia t ol rra 
you Many a oarroaar pr caa jr n a a aa* 088 ua lot 



•AJMiAirrY 
Aa rtema carry ttt ononal rnanvfanuni 
nappy to maa you acopy upon rarjua.1 




aarramy V4e a. Da 

MaJfcts caecks ** wticome u cash. 



2*1440 SaajkiS*. 




266401 XEMn Cli ana i i i saaaaa 

2 *6* 3 6 COSXX 

7**457 MBASJC 

28 9880 MuarPMr Moo. ill >FNI> 

Eacnc Panoj 2 o Mi at) 
aaayParaa Ml 1*3 
Pad Pat aa Mi M3 



•r* ami arajr tour oafltaoaa 
CML roil Faei riom AtYWHfHe m rnf usa 

800-527-0347 
800-442-1310 

« »*a ^^*M l^ft I "fy:.] 



* S— Utt of AdmVmn on Page 291 
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Photo 3. The red wire goes to pin 3, while the green wire goes to pin 7. 




Program Length 



by Ronald F. Balonis 

Length. BA, an 8K RAM utility program, provides a 
method to compute program length in order to manage 
memory space on the Model 100. (See Program Listing 1.) 

All memory references are in decimal notation. The user 
menu directory is located in RAM memory from 63930 to 
64139, with each entry using 11 bytes. The first byte of each 
entry denotes the type of file: is for a killed/empty file, 128 is 
for Basic program (.BA) files, and 192 for text (.DO) files. The 
next 2 bytes are the start address of the file in RAM memory, 
and the remaining 8 bytes are the file name and extension. Dis- 
assembly of the file area indicated that 26 is the end of file 
(EOF) indicator of a text file, and the standard string of three 
zeros is EOF for a .BA file. 

The program conducts a sequential search of the directory 
for a file match, and then a sequential search of the file for the 
EOF byte, using PEEKs to read the memory. The menu direc- 
tory search, while slow, proved acceptable, but the EOF 
search of the file had a tiresome wait with long files. This was 
an application in need of some machine language, and so I 
made my first attempt at a machine-language subroutine on 
the Model 100. 

Borrowing on early Model I techniques, I fashioned a sim- 
ple machine-language sequential search routine for the EOF 
search. The program loads it into the Model 100 with data 
statements, and the Basic PEEK and POKE statements pass 
the variables to and from the routine. A word or two of warn- 
ing about my experience with machine language on the Model 
100 is in order: Errors, at least of the types I made, cause the 
computer to do a cold restart, erasing all of the user programs. 



Photo 4. Completed modem cable. 

pany calls "ring" and "tip" signals, respectively. 

Thread the DIN plastic sleeve onto the phone cord so that 
later you can slip it onto the DIN plug. Then solder the cord to 
the plug, connecting the red wire to pin 3 and the green wire to 
pin 7. Reassemble the metal barrel. (See Photo 3.) Slide the 
sleeve back on, and the cable should be ready to test. (See Pho- 
to 4.) 

Testing the cable is easy. If you have access to an ohmmeter, 
use it to check that none of the DIN pins is shorted to any oth- 
er, and that none of the modular plug pins is shorted to an> 
other. Then check for continuity along the modem cable — the 
red wire at the modular plug should connect with pin 3 at the 
DIN plug, while the green wire should go to pin 7. Then pluj 
the modem cable into the computer and the telephone line. 

Call your local Radio Shack store to get the telephone num- 
ber for Tymnet or Telenet. With the computer in TELCOM 
dial that number on an extension phone, and when you heai 
the high-pitched carrier tone, push F4. Words and letter 
should appear on the screen. Then push F8, the Bye key, anc 
type Y. The tone should stop. ■ 



Program Operation 

Line 15 clears string space and reserves 50 bytes (from MAX- 
RAM to HIMEM 63960 to 63910) for the machine-language sub- 
routine. Lines 30-50 POKE the machine-language program 
(see Program Listing 2) into this memory space. 

Lines 100-180 prompt for a file name, test that it has a valid 
formation, then construct a menu directory match string of it. 
The program stores the file names in the menu directory 
without the period before the extension, with the name left- 
justified and the extension right-justified, and with spaces fill- 
ing the middle if necessary. Lines 200-260 do the sequential 
search of the menu directory using the PEEK function to 
create a match string. Line 205 tests for a killed/empty file, 
and line 225 tests for a match of file names. If a match is 
found, then lines 230-235 get its address. Line 310 passes this 
address to the machine-language program for the EOF search 
called in line 320 or 330. Lines 400-430 compute and display 
the results. 

The utility program is simple to use. Just enter a valid file 
name and in two to three seconds the program displays its 
length for logging. Press the space bar for another program or 
to exit. ■ 



Carl Oppedahl can be reached at 99 Park Ave., New York 
NY 10016. 
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Write to Ronald F. Balonis at 118 Rice St., Trucksville, PA 
18708. 



C-Notes 



5 ' LENGTH. BA FIND LENGTH OF A PROGRAM 

10 'BY R.F.BALONIS JULY 16, 1983 

15 CLEAR 100,MAXRAM-50: 'JULY 17, 1983 

20 TITLE$="LENGTH OF A PROGRAM" 

25 '-MACHINE LANGAUGE PROG. END SEARCH- 

30 FOR 1=62911 TO 62958 

40 READ Z:POKEI,Z:B$=B$+" " 

50 NEXT I 

60 DATA 0,0,229,42,191,245,43, 

35,126,254,26,194,198 

70 DATA 245,195,234,245,229,42, 

191,245,43,35,126,254 

80 DATA 0,194,213,245,35,126,254, 

0,194,213,245,35 

90 DATA 126,254,0,194,213,245, 

34,191,245,225,201 

95 ' 

100 B$="":FNM$="":ADRS=0 

110 CLS:PRINT@10,TITLE$ 

120 PRINT@82, "ENTER NAME AS IT APPEARS 

ON THE MENU" 

130 PRINT@165,"<ENTER> TO EXIT "; 

135 INPUT FNM$:IF FNM$="" THEN MENU 

140 I=INSTR(FNM$,".") :TYPE$=" " : TYPE=0 

145 IF 1=0 THEN 100 

150 TYPE$=MID$(FNM$, 1+1,2) 

155 IF TYPE$="DO" THEN TYPE=1 

160 IF TYPE$="BA" THEN TYPE=2 

165 IF TYPE=1 OR TYPE=2 THEN 170 

ELSE 100 

170 FILN$=LEFT$(FNM$,I-1) 

175 IF LEN(FILN$)<6 THEN FILN$-FILN$+" 

":GOTO 175 

180 FILN$=FILN$+TYPE$ 

185 PRINT0285,"**** SEARCHING DIRECTORY 



190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 

250 

*** 

260 
280 
290 

300 

*** 



1 — SEQUENTIAL DIRECTORY SEARCH — 
FOR 1=63930 TO 64139 STEP 11 
B$="":IF PEEK(I)=0 THEN 240 
FOR 11=3 TO 10 

B$=B$+CHR$(PEEK(I+II) ) 
NEXT II 

IF INSTR(B$,FILN$)<1 THEN 240 
IL=PEEK(I+1) :IH=PEEK(I+2) 
ADRS=IH*256+IL: 1=6 4139 
NEXT I 
IF ADRS=0 THEN 250 ELSE 290 

PRINT8285," **** NOT IN DIRECTORY * 

ii , 

FOR 1=1 TO 1000:NEXT I: GOTO 100 
i 

1 FIND THE LENGTH 

PRINT@285," **** COMPUTING LENGTH * 



310 POKE62911,IL:POKE62912,IH 

320 IF TYPE=1 THEN CALL 62913 

330 IF TYPE=2 THEN CALL 62928 

340 • 

400 CLS:PRINTei0,TITLE$ 

405 IADR=PEEK (62912) *256+PEEK (62911) 

410 PRINT@163,"< "FNM$" > IS "IADR-ADRS" 

BYTES LONG" 

420 PRINT@287,"**** PRESS <SPACEBAR> *** 
*■ . 

430 IF INKEY$=" " THEN 100 ELSE 430 



Program Listing 1. Length. BA— utility. 



Memory Address Source Statement 


Object Code 


I Addr 62911 
H Addr 62912 






DO Entry 62913 Push HL 
62914 LDHL. 62911 
62917 Dec HL 


229 
42.191.245 
43 




►62918 Inc HL 

62919 LD A. (HL) 

62920 Cp 26 


35 
126 
254,26 

194.198.245 
195.234.245 

229 

42.191.245 

43 






62922 JNZ 6291 8-* 
62925 JP 62954-* 




BA Entry 62928 Push HI 

62929 LDHL. 62911 
62932 Dec HL 










►62933 Inc HL 

62934 LD A. (HL) 

62935 Cp 


35 

126 

254.0 

194.213.245 




62937 JNZ 62933-* 








62940 Inc HL 

62941 LDA. (HL) 

62942 Cp 


35 

126 

254,0 

194,213,245 




62944 JNZ 62933-** 






62947 Inc HL 

62948 LD A. (HL) 

62949 Cp 


35 

126 

254.0 

194.213.245 

34,191,245 

225 

201 




62951 JNZ 62933-J 


62957 Pop HL 

62958 Return 


Program Listing 2. Length. BA — machine language. 



by Paul Serotta 



Blackjack 



Blackjack isn't a mere conversion: This program uses the 
Model lOCs unique features — graphics, sound, and interrupt- 
controlled function keys — to simulate the popular casino card 
game also known as 21. Like the Vegas version, the game pro- 
gram pits a single player against the house's dealer (the Model 
100). The object of the game is to accumulate a hand worth 21 
points, or as close to 21 as possible, without going over. The 
house wins if you draw over 21 , or if the dealer's hand is closer 
to 21 than yours is. 

The 8K program starts by asking you to type in your name 
and press the enter key. From now on, it addresses you per- 
sonally. The program gives you a stake of $1,000 and asks you 
to enter your bet. Should you decide to wager the entire 
amount on the first hand, the buzzer sounds and the program 
applauds your bravado with an encouraging "Go for it!" 
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Conversely, a low bet (under $100) merits the program's dis- 
dainful "You are cheap!" 

After you've entered your bet (in full-dollar amounts only), 
four boxes appear on the screen. The two upper boxes repre- 
sent your first two cards; a typical deal might be a king of 
clubs and a six of hearts. In the lower right-hand box the pro- 
gram displays the dealer's first card, for example, a six of 
spades. You then have the following options, selected with the 
lOO^s function keys: hit, double, stay, and quit. Press the Fl 
key if you want another card, the F2 key if you want to be 
dealt another card and double your original bet, the F3 key to 
play a two-card hand against the dealer, or the F4 key to stop 
the game altogether. 

When you stay, you're electing to play your current hand 
against whatever the house turns up for itself. The program 
then keeps dealing itself more cards until it has reached 21 — an 
automatic win, beaten your hand, or gone over. If you lose, 
the program tells you "You are busted." If you win, it admits 
"I'm busted — you win!" Should the dealer's hand match 
your own, the program declares the deal a draw or "push" 
and no one wins or loses. 

The program keeps a running tally of your stakes; after 
each deal it reminds you of how much money you have avail- 
able and asks you to enter another bet. 

It's impossible to cheat at this Blackjack, by the way. Try 
wagering more money than you have in your purse or dou- 
bling at the wrong time, and the program calls you on it. 

When you decide to bail out, press the F4 key and the pro- 
gram totals your winnings — or your losses. 

There's one bom every minute. ■ 

Contact Paul Serotta at 131 Penrose Drive, Pittsburgh, PA 

15208. 



Program Listing 3. Blackjack. 



10 REM ********************************* 

20 REM BLACKJACK 

30 REM 

40 REM PAUL SEROTTA 

45 REM 131 PENROSE DR. 

50 REM PITTSBURGH, PA 15208 

55 REM 

60 REM ********************************* 

80 REM 

99 REM DIMENSION CARD ARRAY, SET 
PLAYER'S AMOUNT OF MONEY 

100 DIMC(52) :PM=1000 

105 REM CLEAR FUNCTION KEYS (F1-F4) 

110 FORLL=63369TO63432:POKELL f 0:NEXTLL 

112 REM TITLE PAGE 

115 CLS:LINE(70,24)-(115,52) f l,B:LINE( 

120,24) -(165,52) ,1,B:PRINT§173,"ACE 

";: PRINT §1 81, "JACK "; 

125 GOSUB9000:CLS: PRINT@121 , "PLEASE 

TYPE YOUR NAME AND PRESS 'ENTER'" 

140 PRINT:LINE INPUTN$:GOSUB9000 

145 KEY OFF: IFPM<=0THENGOTO3000 

147 REM INITIALIZE LOGIC VARIABLES & ASK 



FOR BET 

150 PP=1:CS=2:PA=0:CA=0: PT=0 :CT=0:CR=2: 

PC«81:CP=201: GOSUB9020 : PRINT: PRINTN$; " , 

YOU HAVE $";PM 

160 PRINT8200,""; : INPUT"PLEASE ENTER 

YOUR BET";BET:BET=INT(BET) 

170 IF BET >PM THEN GOSUB90 50:GOTO160 

180 IFSGN(BET)=-10RSGN(BET) 

=0THENGOSUB9050:GOTO160 

190 IFBET=PMTHENPRINT§293,CHR$(27) ;"p";" 

GO FOR IT 1! ";CHR$(27) 

; "q" ; : SOUND4000 , 15 : SOUND3000 , 10 : SOUND200 

, 8 :FORDL=1TO500 : NEXTDL 

195 IFBET<100ANDPM>500THENPRINTe291 ,CHR$ 

(27);"p";" YOU ARE CHEAP !! ";CHR$(27) 

;"q"; :SOUND4000,30:SOUND12000,30:FORDL=1 

TO500: NEXTDL 

200 

GOSUB9020:GOSUB9100:GOSUB9110:PP=1:GOSUB 

9500 :ONKEYGOSUB1000, 4000, 2000, 3000 

202 PRINT@100,CHR$(155);" 

YOU";:PRINT@220,CHR$(155) ;" 

DEALER" ; : FORDL=lT03 00 : NEXTDL : PRINT@1 , S 

PACE$(6);:PRINT@220,SPACE$(9) ; 

210 PRINT@PC,C$;CHR$(156+SU);:PC=PC+ 

8:PT-PT+CV: GOSUB9500:PT=PT+ 

CV:PRINT§PC,C$;CHR$(156+SU) ; :PC=PC+8 

215 IFPA=2THENPA=1:PT=PT-10 

220 PP«0:GOSUB9500:HC$=C$+CHR$(156+SU) 

:CT=CT+CV:CP=CP+8:GOSUB9500:CT=CT+ 

CV:PRINT@CP,C$;CHR$(156+SU) ; :CP=CP-8 

225 IFCA=2THENCA=1:CT=CT-10 

230 IFPT=21ANDCT<> 

21THENPRINT@CP,HC$;:PRINT@280, "BLACKJACK 

i$l$!$l$l$l$I ";:PM=PM+BET+INT 

(BET/ 2) 

: F0RDL=1T05 : SOUND4000 , 10 : SOUND8000 , 10 : NE 

XTDL:GOT0145 

240 IFCT=21ANDPT<> 

21THENPRINT§CP,HC$; : PRINTQ280 , "I HAVE 

BLACKJACK $$1 I - YOU LOSE ";:PM=PM- 

BET:SOUND14000,15:SOUND16000,20:FORDL=1T 

01000: NEXTDL : GOTOl 4 5 

250 

IFCT=21ANDPT=21THENPRINT§CP,HC$; :GOT0221 



260 KEY ON 

270 PRINT@280,"HIT DBL STAY 

QUIT" ; : FORWW=lTO200 : NEXTWW: PRINT@280 , SPA 

CE$(39) ;:FORWW=1TO200: NEXTWW 

280 IFNH=1THENNH=0:GOTO145:ELSEGOTO270 

999 REM PLAYER HITS 

1000 CR=CR+1 

1010 IFCR=3THENLINE(94,9)-(142,30) 

,1,B:GOTO1050 

1020 IFCR=4THENLINE(141 ,9) -(189,30) 

,1,B:GOTO1050 

1030 IFCR=5THENLINE(188,9)-(236,30) ,1,B 

1050 PP=1: GOSUB9500:PRINT@PC,C$;CHR$( 

156+SU) :PC=PC+8:PT=PT+CV 

1060 IFPT>2lANDPA<=0THENPRINT@280,N$;", 

YOU ARE BUSTED 

" ; : FORDL=1TO10 : SOUND12000 ,DL : NEXTDL : PM-P 

M-BET: FORDL=1TO50 : NEXTDL : NH=1 : RETURN 

1070 IFPT>2lANDPA>0THENPA=PA-l:PT=PT-10 

1100 IFCR05THEN RETURN 

1200 PRINT@280,"5 CARD CHARLIE - YOU WIN 

11"; :F0RDL=1T08 : SOUND5000 ,DL : SOUND15000, 

DL : NEXTDL : PM=PM+BET+INT ( BET/2) 

Listing ) continued 
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Listing 3 continued 

:NH=1: RETURN 

1999 REM COMPUTER'S LOGIC 

2000 KEY OFF 

2005 PRINT@280, SPACE $( 38) ; 

2010 PP=0:PRINTeCP,HC$:CP=CP+16 

2020 WC=94: IFCT>16THEN2200 

2050 CS=CS+1: 

IFCS-6THENGOTO2206 : ELSELINE (WC, 32) - (WC+ 

48,53) ,1,B:GOSUB9500 

2060 WC=WC+47:CT=CT+CV:PRINT@CP,C$;CHR$( 

156+SU) ;:CP=CP+8 

2070 IFCT>21 AND CA>0 THENCA=CA-1 :CT«CT- 

10 

2075 IFCS=6ANDCT<22THENGOTO2206 

2080 IFCT<=16THEN2050 

2199 REM WHAT HAPPENED? 

2200 IFCT>21THENPRINT@280, ,, I , M BUSTED — 
- YOU WIN 

l!";:SOUND14000,20:SOUND10000,20:SOUND50 
00,20:SOUND3500,20:PM=PM+BET:GOTO2500 
2206 IFCS>»5THENPRINTe280,"I'VE GOT A 5 
CARD CHARLIE — YOU LOSE" ; :PM=PM- 
BET:SOUND7500,20:SOUND5000,15:SOUND10000 
,20:GOTO2500 

2210 

IFCT=PTTHENPRINT@280 , "PUSH 

";:FORDL=7000TO10000STEP1000:SOUNDDL,8:N 



EXTDL:GOTO2500 

2220 IFCT>PTTHENPRINT@280,"I WIN 

$$$$$$$$$»; :SOUND16000, 25: PM-PM- 

BET:GOTO2500 

2230 IFCT<PTTHENPRINTe280,"YOU WON 

1 1 1 I l"; :SOUND3000,20:SOUND8000,20:SOUND3 

000,20:PM=PM+BET 

2500 FORDL=1TO1250:NEXTDL: IFCO> 

25THENGOSUB9100 

2505 NH-1: RETURN 

2999 REM QUIT 

3000 CLS:PRINT@80,"BYE "jN$:IFPM> 
=1000THENPRINT@200,"YOU WON $";PM- 
1000: END: ELSE 

3010 PRINT @200," YOU LOST $";ABS(PM-1000) 
I END 

3999 REM PLAYER DOUBLES 

4000 IFCR>2THENPRINT@280,"YOU CAN'T 

DOUBLE NOW DUMMY 

11";:SOUND7500,20:SOUND13000,20:FORDL=1T 
01000 :NEXTDL:PRINT§2 80, SPACE $( 38) 

;: RETURN 

4002 IFBET*2>PMTHENPRINTe280,"YOU DON'T 

HAVE ENOUGH MONEY **** 

"; :SOUND3000,10:SOUND15000,10:SOUND8000, 

10 :FORDL=lTO1000:NEXTDL:PRINT@280 f SPACE $ 

(35) ;: RETURN 

Listing 3 continued 



TRS-80 

100% Radio Shack Equipment 

SAVE A BUNDLE 

Order Toll Fret 1 '800-874-1 551 



FLA Residents 9)4-438-6507 collect 



EPSON, OKIDATA, CITOH, TABCO Printer Switches 



T*m SALES CO. 



704 W Michigan Ave; P.O. Box 8098 
Pensacola, FLA 32505 



'TRS-80 is a trademark ot Tandy Corporation. 



Sm Ust of Mmtlsers on Pag* 291 
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Listing 3 continued 

4005 PP=1:CR=CR+1: LINE (94, 9) -(142,30) 

,1,B:GOSUB9500 

4010 PRINTePC f C$;CHR$(156+SU) :PT=PT+ 

CV:BET=BET*2 

4020 IFPT>21ANDPA<=0THENGOTO1060 

4030 IFPT>2lANDPA>0THENPT«PT-10 

4050 GOTO2000 

8999 REM PRINT WELCOME 

9000 F0RLL-1T05: PRINT@50 , "WELCOME TO 
";CHR$(27) ; "p"; "BLACKJACK" ;CHR$( 27) ;"q" 
9010 FORDL-1TO60: NEXTDL: BEEP: 
PRINT§50 , SPACE $ ( 20 ) 

; : F0RDL=1T06 : NEXTDL , LL : RETURN 

9015 REM PRINT NAME OF GAME ON FIRST 

LINE 

9020 CLS: LINE(0,0)-(239,7) 

,l,BF:PRINTgl5," BLACKJACK " :LINE (0 r 7) -( 

239,7) : RETURN 

9030 REM ANY CHEATING ?????? 

9050 PRINT§280, "NO CHEATING IN THIS GAME 

1"; :SOUND4000,10:SOUND10000,10:SOUND1600 

0,10 

9060 

F0RDL=1T07 50: NEXTDL :PRINT§223, SPACE$ (96) 

; : RETURN 

9099 REM SHUFFLE THE CARDS 

9100 CO=0: F0RLL-1T052:C(LL) 



=1:NEXTLL: RETURN 

9105 REM DRAW THE INITIAL 4 CARDS 

9110 LINE(0,9)-(48,30) ,l,B:LINE(47,9)-( 

95,30) ,l,B:LINE(0,32)-(48,53) ,1,B:LINE( 

47,32)-(95,53) ,1,B 

9115 RETURN 

9499 REM PICK A CARD 

9500 SEOVAL(RIGHT$(TIME$,2)) 

: FORI=lTOSEC : DUM=RND ( 1 ) : NEXTI : RN=INT ( RND 

(D*53) 

9510 IFC(RN)=0THEN9500 

9520 CO=CO+1:C(RN)*=0:SU=RNMOD4: 

9530 IFRN>4THENGOT09535:ELSEC$="ACE 

":CV-11 

9532 IFPP»1THENPA=PA+1 : ELSECA=CA+1 

9533 GOTO9600 

9535 IFRN>40THENGOTO9540:ELSEC$»STR$(INT 
(RN/4))+" ":CV=INT(RN/4) 

9537 IFRNMOD4O0THENC$=STR$(INT(RN/4)+l) 
+" ":CV=INT(RN/4)+l 

9538 GOTO9600 

9540 IFRN<45THENC$-"JACK 

":CV=10:GOTO9600 

9545 IFRN< 

49THENC$="QUEEN":CV=10:GOTO9600 

9550 C$="KING ":CV=10 

9600 RETURN 
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ARE YOU TIRED OF HEADACHES AND WATERY EYES 
FROM STARING AT YOUR TRS-BC I'B HARSH WHITE VIDEO DISPLAY? 

Well, a FATIGUE FIGHTER optical lilt »r changes that display to a nice, easy on 
the eyes, green. It Is made of hard 1/8 L ch thick acrylic for durability, attaches In 
seconds without tools, and matches TRS BO " styling. So, Invest In some relle!, get a 
FATIGUE FIGHTER for your Model I, II, or II. It will probably be one of the most used 
accessories you will ever buy. 



PS. Available 
direct from us or at 
computer stores. 

TRS 80 IS A TAN0Y CORP TRADEMARK 



TO ORDER: 

Send Nan* & Addrtss Typed or Clearly Prtntad will Check or 
Money Order (U S FUNDS) tar $14 95 Each. Includin Shaping 
Canadian Orders Add SI 00 Each AH Other Foreign rters Add 
S3 00 Each tar Stooping NO WEDIT CARD ORDERS 00 s (U S 
ORDERS ONLY) are S3 00 Additional per Order & are * cepted try 
Mail or by Calling 904 378 ?494 or 9-S M F Florida Re dents Add 
5%S»tlta 



WE 

I — DEALER I 



INNOVATIVE DESIGN 
. E. 19TH DRIVE 
LE.FL 32601-3326 "35 

EB INVITED — 
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Monitor 100 Changes 

I found the "Monitor 100" program (August 1983, p. 171 ) 
particularly interesting, but to make it work I had to make t v. 3 
changes to the printed version. 

First, statement 58 is redundant and should be delete* . 
Also, in line 200, MID$(0$,3,4) should be MID$(0$,2,4). 

The Model 100 is an excellent complement to my big con - 
puter (a Kaypro II set up as an RCPM/RBBS). I can prepai : 
draft documents on the go, then capture the incoming text ft ; 
to disk. 

A Bask program on the Kaypro (ADDLF.BAS) adds a lin ; 
feed at each carriage return (required by CP/M and man/ 
non-TRS-80 computers). You can then print the resulting ft ; 
as is, or process it further on your home computer. You ca i 
upload Model 100 Basic programs in a similar manner if yo i 
save them in ASCII format. 

I use an Epson MX-80 printer. Its ability to skip over pei - 
forations by either software command or hardware switch lei > 
you paginate documents created on the Model 100 without th ; 
intermediate step of uploading to a more powerful computer 

Anyone buying a printer for the Model 100 should look fo - 
this feature, as well as the capability to add line feeds (a hard - 
ware switch option on the MX-80). 

The usefulness of the Model 100 is enhanced by the series o " 
features initiated in your July issue. Although it is not m ' 
primary use of this computer, methods of installing machine 
language code would be a good subject for a future article. 

PhUWheele- 
5539 Towers St 
Torrance, CA 905a 



Foxfighter Glitch 

I just bought my first copy of 80 Micro, and I'm delightec 
to find the ONotes section dedicated to the Model 100. I an 
satisfied with my Model 100, but until recently thought that n( 
one was writing software for it. 

I enjoyed the Foxfighter program (August 1983, p. 200) 
but I did find a couple of glitches in it. 

The program always presents one of seven predefined screei 
displays for the air mines. This becomes routine after a littl< 
while and encourages high scoring. 

The changes shown in lines 10 and 25-34 in Progran 
Listing 1 display the air mines in random patterns instead. Oc 
casionally this results in an invisible air mine or two, adding tc 
the challenge of the game. 

Line 10 sets the RND function to one of 60 different starting 
points based on the Model 100's built-in clock. Lines 25-3^ 
use the RND function to display the air mines in variou.' 
screens instead of the seven predefined screens used in tht 
original listing. 

Also, line 150 of Foxfighter is supposed to provide an addi- 
tional fighter plane when the score reaches 500, 1,000, anc 
2,000. Actually, it only increments the number of fighters dis- 
played by 1 at these three points. Lines 150-158 in Listing 1 
change the number of fighters as well as the display. 

Harold Shavei 

509 Mulberry fc 

Suisun, CA 94585 



10 DIMX(6) ,A(42) :V=3:SCR=0: 

CLS-.PRINT992, "<<FOXFIGHTER>>": 

PRINT : PRINT : FORT=lTOVAL ( RIGHT$ ( TIME$ , 2 ) ) 

:SEC=RND(1) :NEXT: INPUT"DO YOU NEED 

INSTRUCTIONS (Y OR N) " ;A$:IFA$="Y" 

THEN 390 ELSE 20 

25 FORW TO 42:READA(I) : NEXT 

30 FORM=l TO 6 

32 Y=INT(41*RND(1) ) +l:FORI«l TO 

6:IFX(I)-A(Y) THEN32 

34 X(M) =A(Y) -.NEXTM 

150 IFSCR=500 AND 

BN=0THENV=V+1:BN=1:GOTO155ELSEIFSCR=1000 

AND BN»0THENV=V+1 : BN=1 : GOT0155ELSE IF 
SCR=2000 AND BN=0THENV=V+1:BN=1:GOTO 
155 

155 IF SCRO 500 AND SCR O1000 AND SCR 
<> 2000 THEN BN=0 
158 PRINT@0,V 



Program Listing I. Adjustments for Brad Dixon's "Foxfighter" program. 



Calculator Program 

The short calculator program in Program Listing 2 is one of 
the first programs I wrote on my Model 100. 

To run the program, input a value and press the enter key. 
Then input either a plus (P), multiplication (.), subtraction 
( — ), or division (/) sign. 

Type in your next number and press the enter key. Now 
press the equals key to get an answer, or key in another func- 
tion and continue calculating. Once you have an answer, you 
can start over, stop, or carry your balance forward. 

By using P for addition and a period for multiplication, you 
don't need to use the shift lever. 

Mark Fox 

774 Hazelwood Drive 

North Wales, PA 19454 



5 CLS 


6 PR I NT "CALCULATOR PROGRAM" 


10 INPUT Y 


11 CLS 


15 PRINTY 


20 Y$«INKEY$:IF Y$=""THEN GOTO20 


21 IF Y$-"="THEN100 


25 PRINTYS 


30 INPUT X 


31 IF YS="P"THEN Y»Y+X:GOTO20 


32 IF Y$="-"THEN Y=Y-X:GOTO20 


33 IF YS="."THEN Y=Y*X:GOTO20 


34 IF Y$="/"THEN Y=Y/X:GOTO20 


100 PRINT" " 


200 PRINTY;" IS YOUR ANSWER" 


210 PRINT 


220 PRINT"ANOTHER EQUATION? OR BAL 


FWD(Y,N,B) " 


223 Z$«INKEYS 


230 IF Z$=""GOTO 223 


230 IF Z$="Y"THEN5 


240 IF Z$="Y"THEN5 


250 IFZ$="B"THEN15 


260 END 


Program Listing 2. Model 100 Calculator program. 
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Wg/M LVfll QUALITY PROGRAMS 

W^BmJI^r M«H MEET COM PETIT VE PRICES 
2701 -C W. 1 5th • SUITE 324 • PLANO, TX 75075 • (2141 680-8268 




STOCKING 
STUFFER 
SALE! 



ULTRATERM 

Dy Untied Soltwa'e 



L AII MOP III programs •p» crfi« d in this ad will run on the Model 4 (in tho MOD III mode). 
Ipowerdriver 



NEW 

PRINTER DRIVERS 



Tiis comi^ntcaiion^ wcfcage '* or* of the most ■ 
includes a ru» teaiu'ea .n'e'itgen! ie-mm«i poo/am host frog'-rn 
i"«! fiie t'insir tuncton am fw» ronve'sor utilities to- bulletin 
tra-3 5a«^io*4nQ pijs • Suppof' lot •<f!uai>v a" manua t«c iulc 
ta 1 noar« • t«cius-veL«:'aTe-tT;3.f«'d.s* , ii*!-ar«ie'iuntlon 
afnw *j» con'** ••om -he '-ansm'-ing cynoi>fe- *n3 jin**teng>d 
X*-a'o" M •»» -ece>»ng comou* • SoM spaa. fe*tve *ti you 
*»oe x^no "«ssa»ges an The Dof«om lafl o» :> scam «•«* 
*3r*dng <nnsaoK re **««-' o* *» .to C *> seen • Ral 
L-'eir^e' i«eo'! • \}nnn*' ASO' *»*na; tie r^ns^ssion *no 
-ececcr «t*h me*nor» ax*** 3u'nof Duf»r vj«b*t$ »art ael^n 
aandPI IWys Det*en w«s *nfl pnynp* rontranej fartv-msso" 
*r ::)fflw?ifr'''Y ***•• i«-tua**y a" wvn»s * :oun«* :gMnuousN 
i*ouys "w amounr gl t-ee ■nnwy 'e^a*»"*9 nwir the bu»er a 
flU» • Mtf**ire3 h©sf srggmihit supports PRINT **j»Ri«r 
r» n <s , 'DmBa« *na ajiromatcaCv 'locates iftl cotects tsettt* 
:> f DC 8l Tiemofy s ■ncUKjed • Ajfo 0>at phone numbers Rioted i* 
o"og:a*n *iih single Key Auto da 1 MOO i or MOO 'li 



jener ation ol custom printer drivers allows 
| you to utilize all ot SUPERSCRIPSITS features with 
your EPSON (Graftrax Required). PROWRITER and 
| CITOH MO STARWRITER printers You can now 
i all ot the printers custom features such as 
| compressed expanded and proportional print 
nderlming bold-lace, super scripting, and sub- 
cnptinQ All drivers can be called from within 
I SUPERSCRlPSlT at "document open time" Order 
by printer designation as follows 

(POWERDRIVER E EPSON MX70780/100 

POWERDRIVER P C.ITOH PROWRITER 

| POWERDRIVER S C.ITOH STARWRITER 

MOD I or MOD Ml 





NEW SUPER UTILITY* 
VERSION 3.2 

I includes Operator* Manual 

arxJ 2nd Backup Df»k 

The Book Inside SU+ 3.0 

Included FREE 

A 1 9.95 Value at no extra charge 

Experience a legend with the 
program voted as the outstanding 

utWty of 1962. 
MOD I or MOD III Protected Media 



is up lo IOC budget eaieacies e wtos Had of up 10 f>*t 
• t^rts checks * desrftd • ^nti t orso^i balance 

law bar* ■«canc*a<on • »"o»w hie eiten&ots on avnen 
C«e (roc** hjntfes us* ^ecxoocu v%m ca'fls a« <**m 
3 -xor-i*i • V*mOt4 *m*l fm%Ktmn fcsc* 9 U**CV 
msac'orrs mi t» spi* a-rcng y-rt" auagu caaefvei 
***&**& hy <*• ourgoses • U*^«ms I'artutba* %v*» 
** 4» yacevs to< **» cjtvgo'i &> 6* y«a» 
i 'uf *iesbS'abft^e««'T'Vig T x3as«eiaDr r sana'hn4nce 
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1 By The Small Systems Cente 






HEW 4 
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MOD III! MINIMUM 48K 1 Drive 



ZEUS 

by Cosmopolilan Electronic 



THE TIST GENERATOR 



By 



G Software 



SuperDirectory 



v%< 



The newest eaitor/assembler Irom Vern Hester, 
author ol Uultidos. lays claim to being the lastesl gun 
m the west Once again Vern brings his magic to the 
TRS-80 with what may be the lines! editor/assembler 
available Will run with any DOS and contains all 
standard assemble' tealixes and then some Fully 
documented, this is a great value 

Included is a mm disk operating system hx the MOD 
I. Ill and 4 

MOD "M. 4 



Aminia 

EIICtTIII Ml ST1IEVTS 



$. 



i Ctflraffi s 
i«» KantMl 

tsiwn Tne s 



n -** 1 V4, ma <y tome ctrvute' usa A stjOem type* ' 



* eaucM lo answer C0"tC"y "l 
givts a score anfl snows Qu*st««n ans«re>«d ircarrtcti) Tr* si 
(V xi'-t to •etvcfe incc'tct answrs 
T(4CM[tS 

ttft*< te '00 bmHows r« *n $m* i 'o zwn* i 'ti' ' 
pr«ea * Hafaejii r>aca Hatcfwi T^^-rm, v ^^ 



SAVE 10% 



• t«1»mallc Tr««li C» 




TIM »•■! Mr»ol*r|F Ofi lh. H*f a •! 

A gteal ne* flireclory [yogram 
wiin its own opp aling system 
willen ov Vemon Meslw Tlws 
pragram «•« read any DOS !ne»e 
■s even csnoaUMiiy 6et«en 
U00 i and UOO ill arm Ooutvei 
nstalled Tne UOO I Bnjgiam can 
'eafl most UOO in Saks and me 
UOO in program can read most 
UOO i ctsks to irack double 
density is also suooorted 



IDOSPLUS J 

1 by MicroSystems Sottwa'e^T 


> Mifl 


1 SPECIALS ON A 
1 ALL VERSIONS^ 


aSaa. 


j * 


VERSION RETAIL SALE 
4 MOD 4 $150 $129 

3 5 MOO lor III $150 $119 
3 3 MOD I $100 S44 95 

Please Sceoty Model 

Number and Density When Ordering 

Some Quantities Linnied and Sub)ect lo Pnor Sale 



ITHE TOOLBOX vl 


Ifpr LDOS 


^r " 




■&T SA ^e 




-l-K 7 5% 


PCHECK/CMD 


PCOMPARE/CMD 


PFIX/CMD 


PCLEAR/CMD 


PREFORM/CMD 


PSS/CMD 


PVU/CMD 


PMAP/CMD 


PERASE/CMD 


PMX/FLT MX80 


PMOVE/CMD 


PHELP/CMD 


PDIRT/CMD 


PBOOT/CMO 


PASSGO/CMD 


PFILT/FLT 


PUN/CMD 


DVORAK/FLT 


PEX/CMD 


DVORAK/JCL 


PMOD/CMD 


CODE/JCL 


PFIND/CMD 


DECODE/JCL 


MODIo 


MOD III 




EYE EASE GREEN CRT SCREEN FOR 



TRS-80 mo 



A very unique word processing package Clean Slate nas many 
'ealures not found m word processors at Iwice the price it allows 
full customization of printer drivers and direct control of this 
printer trom text features user definable repeal keys non- 
destructive cursor graphics print offset custom keyboard driver 
and has its own built-in comm program lor trie transmission and 
receipt Can bwld a separate glossary hie and a names list lor 
auto trnm letter nstnat Vou can also creale and edit assembly 
source or base program Mes We lound a trtasve chesl ol ties 
wne known jewel at nerqntpnee Two color documeMabmi tu 
padded easie tmm < rs an oufsundng value lor thrs pnee 

UOO I in 





PREFERRED Br COMPUTER PROFESSIONALS 
EVERYWHERE 

LTTtfUTl .. 




A great value from the DOSPLUS folks, these 
utilities for your MOD 4 DOS add some really 
important features Enhancements include: 




The ULTIMATE in graphics design. This version rs MUChI 

MORE POWERFUL than previous versions and mckides 

.BETTER documefflaton as wen New tealures include ' 

AUTOORAW* and CIRCLE commands Now allows I 

you to design your own character sets' 

Includes lots ol examples on disk Your 
screen is only a "picture window" to a 
much larger drawing area 1 You are only 
limiled by disk storage, not memory" Works 
on EPSON Series (Graftrax ol Graftra»+ 
^.reCMreHortne Cltf*8510 
PROWRITER or NEC verson) Now available 
for 0MP-210Q. QMP400 and iP-g snpr. ,,„,,„; 



Now program in the "C" language 
compiler subset for LDOS. LC gener- 
ates Z-80 EDAS IV source code as 
output Compiled programs run on both 
MOO I and MOD III. Save $60.00 with 
the best LDOS editor assembler pack- 
age on the market Over 200 pages of 
documentation. Requires 2 drives and 
48 K. 

FOR LDOS MOD l/lll 



i Man fn th nucE ir he 

Tors package by James Taney of mo Venture lame includes 3 
games on the same disk Funny Face H a program inai draws 
over I million different laces on the screen as you select the 
difterent facial tealures You can play "line- up' where you select 
the lace Irom up lo 6 like taces. or have the computer draw laces 
in the automatic mode Matchmaker is a program like the TV 

game "Concentration'' where you select identical grapmes 
malches from a grid II keeps a rumng porni scce Repeat Alter 
Ue emulates the tamous "S«non" game where you have lo emer 
a repeat sequence of numbers to match me computer Sound 
«ck«]ed Funny Face atone rswel worth me pnee KUsww adore 
the 3 gam seacfon 

UOOlltl 
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IMULT1D0S 

BY Cosmopolilan Electronics 



Reads Other Operating Systems 



VERSION 1.1 $M.tS Now 84.95 

The latest release ol an outstanding operating 
system 

Buy VERSION 1.5 

at an unbelievable 

$49.95 

MOD I or III SPECIFY 




Features Over the Original PowerMAIL 

5«>3'ai?sa"v:ilegofy itv/ftj 'fiin, Ttjnne'toy*^ frns re* version 
i span #™« ana mj, u « muiiioie Hohws The o»QQiim «itl sod on 
any eignt *ws ■' you «nn Separates you' "ags and outs tnem -njo 
anotne- f:te Punt Options Labels & listing One cnoce ;s tne simple 
retepnone Dor* 'ypeiistmg T*ootintotne' -nodes gi»e you not anfyrne 
HtftfiQ Ol *iam« out also eilner FUG nometis or the actual flAG 
»SCf«nons The hn*" pfflt mode s *naJ •« :aD the SALESMAN'S 
tOnaOQK- i! onttts »! ine wno*t ><st v *tfta'e*e* d*!s you soec*y 
■ttn a,-" njj 'nc>uo>ng hji nag Jest'ipton n e acn record Tnen rue «ord 
fctfes -s rx«ted r»F» wire**" -mes of &tar* space lo* majung inose 

* w MOD l'llt'4 2/12/16 
SPECIFY 



MORE DISCOUNTS 

PROGRAM NAME SPECIAL 

BASIC S COMPILER SYSTEM l/lll 39.95 

MAKE 80 I or III 14.95 

MICROTERM I or III or 4 69.95 

SCRIPLUS 3.0 l/lll 29.95 

ST80III I or III 124.95 

DOSPLUS II II 199.95 

MICROCASH III 149.95 

M-ZAL ASSEMBLER RELEASE 2 I OR III 99.95 

TALLYMASTER I or III 74.95 

LOOS 5.1 I or III 119.95 

SUPER UTILITY TECH MANUAL 3.) 11.95 

INSIDE SUPER UTILITY* 2.2z 15.95 

THE CUSTOM TRS-80 26.95 

HOW TO DO IT TRS-80 26.95 

TRS-80 Disk & Other Mysteries 19.95 

TRSDOS 2.3 Decoded 26.95 

MICROSOFT BASIC DECODED 26.95 

BASIC FASTER& BETTER 26.95 

MACHINE LANGUAGE DISK I/O 26.95 

INSIDE SUPER UTILITY+ 3.0 17.95 



SPECIAL 
OFFER 

Any order of over 

$100.00 or more from 

this id will receive 

one choice of the 

following absolutely 

FREE 

Green Window l/ll/MI/4 



Macro- Mon 

The Shadow 

• 

Any order over $200 will 

receive 

Clean Slate 



FREE 




QiMtKIn IMM S falfKt ti Pit* s* 
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MOD I or MOD III 



Now, run CP/M on your Model 4 and ui leash the powerful features resident in 
your computer. Take advantage ot CP/rV software such as WordStar*, dBASE II 
and Multiplan™, along with thousands M others. 

• Includes INTERCHANGE*, a utility that allows read 19. writing and copying 20 ditterenl manulaclurers' disk 
formats such as IBM KAYPRO. OSBORNE. XEROX, etc • Includes MEMLINK". a unique feature that uses the 
optional 64 K RAM memory as a fast disk drive • Corr lete with all these CP/M utilities ASM. DDT. DUMP ED. 
LOAD. PIP, STAT and SYSGEN • Includes MODEM I, a powerful public domain communications program 

• Supports 80 x 24 video, reverse video, direct cursor a dressing and more • Utilizes the Model 4 function keys 
and allows user defined keys • FORMAT utility permit, up to 52 disk formats to Be constructed, all menu driven 

• Ready to run in the standard 64 K Model 4 The add tonal, extra cost. 64 K RAM upgrade noi required 

MICROPRO SOFTWARE 

The full line of MicroPro softwa e is now available formatted for 
the Model 4 using this CP/M. 

WordStar* Fast memory mapped version $250 

MailMerge* Multipurpose fiie merging program •. > 125 

SpellStar* 20.000 word proofreader on a disk .125 

Starlndex" Creates index and table of contents 95 

WordStar Professional All the above for only 450 

infoSlar* Advanced DBMS 250 

ReportStar" Report generator & file manipulator ! .... 1 75 

DataStar* Data entry and retrieval package 150 

SuperSort* Fast and flexible sorting is yours 125 

CalcStar" Advanced electronic spreadsheet 95 



Up dated tor 83-84 season, Pro-Pix features a unique 
scoring algorithm, along with other weighted proba- 
bility tactors You input weekly scores to ad pre- 
scheduled games (FuS NFL schedule by week or by 
team ts included in program) and watch Pro-Pix get 
smarter as season progresses Returned over 62% 
win recommendation last full NFL year Printer 
routines included: it win prmt wm or lose predictions 
and point spreads for an teams weekly Recreational 
use only Should not be used tor wagering 
MOD I or III 



AfkCouitt 1 

mwaia tm 

214-680-8268 

Phone Your Order In Today Or Mail To 

DISKC0UNT DATA 

2701-C W 15th St. Suite 324 

Piano. TX 75075 

Office Hours Mon-Fn 10AM to 9PM C.ST 
Send Cash. Check 01 Money Order 
Please add $3 00 tor postageand handling addition- 
al $150 lor COO's. # 

Foreign orders welcome, please specify air or 
surface All shipping charges assumed by purchaser 



iWhen ordering by 
model number II. II. 
memory size 



. please specify computer 
II). drive configuration, and 



MB and SI 

Cheerfully Accepted 



See Ust 0/ Advertisers on Page 291 
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14,000 miles with a Model 100 

Steve Roberts 9 bicycle odyssey. 




Anyone who's bought a TRS-80 
Model 100 will tell you that the por- 
table lets you work without being chained 
to a desk, but one owner is taking Tan- 
dy's "Micro Executive Work Station" 
idea far beyond an armchair or plane 
ride. Steve Roberts, a Columbus, OH, 
freelance writer, plans to conduct a 
year's business with his Model 100, 
without stepping into his office once. 

In fact, most of the time he'll be lying 
down — on a custom-designed recum- 
bent bicycle, festooned with generators 
and solar cells, which he'll pedal 14,000 
miles across America. 

On the road, Roberts will record his 
various writing projects using a helmet- 
mounted microphone and a portable 
tape recorder. After setting up camp, 
he'll transcribe his prose onto his 32K 
Model 100 and upload it via telephone 
to his main computer, a Micromax Sys- 
tem 1000, in Columbus. Kacy Branstet- 
ter, Roberts' manager and editor, will 
be standing by to receive copy, forward 
phone calls, and serve as what Roberts 
calls his "interface with the universe." 

Roberts' .DO files, he says, will make 
a pit stop between bike and Branstetter: 
The trip's primary sponsor, Compu- 
Serve Information Service, is supplying 
"essentially unlimited time and file- 
space" for uploading. CIS members are 
encouraged to chat with the rolling 
writer (his user ID number is 
70007,362), and his saga will be avail- 
able as a regularly updated data base: 
"I think you'll be able to just type GO 
SKR and it'll be there as a display file," 
Roberts predicted. 

An on-line travelogue isn't Roberts' 
first high-tech writing assignment. A 
former software and systems consul- 

254 • HO Ulr.rn narxunhmr 1Q/& 




F oberts: Til exist In a totally asynchronous fashion.' 



tant, the 3l-year-< Id author turned to 
freelancing in the l ite 1970s. As head of 



Words' worth Inc., a business commun- 
ications firm, he alternates magazine ar- 



Not cheap programs but complete software systems. I believe most software is 
pirated because it is overpriced and I'm taking this gamble to prove it. 

HELP STAMP OUT SOFTWARE PIRATES 

I advertised these Systems in 80MICROfor $79. I'd rather sell 1000 systems 
at $1 9.95 than 1 00 at $79.00. These are complete software systems sup- 
plied to you on a TRSDOS 1 .3 system diskette (I paid Tandy Corp. a royalty fee 
for this privilege). All systems fully menu driven — user friendly just insert 
diskettes, reset and go. Systems are supplied with full documentation (although 
most users report that they don't read it). 

LYNN'S PAYROLL SYSTEM 

Complete record keeping & payroll calculation. To include your state's un- 
employment tax & forms, detailed 941 form, prints paychecks & W-2's. 

LYNN'S ACCOUNTS RECEIVABLE SYSTEM 

Single entry — open invoice system. Prints invoice and statements. Built in 
aging report. 

LYNN'S CHECK REGISTER SYSTEM 

Prints checks. Register tor any month, reconciliation statement. 

LYNN'S AMWAY SYSTEM 

Includes group & individual performance levels of BV & PV Multiple sales tax 
rates. Products included on disk. New products easily added. YTD performance 
payments received and paid to your downlines. 

LYNN'S E-Z MAIL SYSTEM 

Sort by name, zip code, state. 2,500 names. E-Z edit. 

All systems have an easy menu driven back-up and are written in basic. 

AND NOW THE BEST PART 
ANY SYSTEM ONLY $19.95 EACH. 

Plus $3.00 shipping per order. Illinois residents add 5 1 A% sales tax. 
(The TRSDOS alone is worth $14.95) 

All systems phone supported call 815/436-4477 and ask the author JOE 
LYN N what you want to know. I will assist all original purchasers any way I can. 

Joe Lynn 




Computer Services 
23501 W. Gagne Lane 
Plainfield, Illinois 60544 

815/436-4477 



BankAmericaro 



V/SA 



►^ 115 



See list o/ Advertisers on Page 291 
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tides and books (Prentice-Hall's 
Creative Design with Microcomputers 
and Complete Guide to Microsystem 
Management) with corporate technical 
writing assignments. The former, he 
told CompuServe's Today magazine 
editor Carole Gerber, offer "fame and 
glory," while the latter "[provide] 
steady income." 

His bicycle trip is a shot at both. In- 
terviewed two weeks before his sched- 
uled Sept. 28 departure, Roberts told 80 
Micro he planned a 700-mile "shake- 
down cruise" around Indianapolis, IN, 
and Louisville, KY. Then, in early 
November, he'll begin his journey with 
a turn south from Washington, DC, 
toward Florida to start a clockwise loop 
of the U.S. 

"I'm anticipating [the trip's taking] 
about a year, finishing up around the 
idea, of course, is to take advantage of 
as much good weather as possible." 

In preparation for the voyage, Rob- 
erts said, he was wringing out both his 
Model 100 and his legs: "I'm basically 
living off the Model 100 now for 
everything. Between the Model 100 and 
CompuServe, my office is very light." 

As for physical preparation, "The 
obscene part of all this is that I've been 
riding around central Ohio, which is 
very fiat and [where it's) very easy to get 
cocky about your ability to go long dis- 
tances. [But] unless there are physical 
problems I don't see any trouble. I may 
bust a knee and jettison all this high- 
tech equipment." 

He's already jettisoned an item that 
would have spared him frequent visits 
to phone booths. Technical problems 
and the unit's weight aborted his plans 
to carry a second computer, a home- 
made CMOS CP/M system with V/i- 
inch microfloppies for mass storage; 
that leaves him the stock Model 100, no 
storage except RAM, and obligatory 
stops to upload every 15 pages or so. 

"I'm hoping to get something that'll 
be useful for [bulk storage] fairly 
soon," Roberts admitted. "I've looked 
at wafertape drives, and I'm interested 
in what people are doing with 3 '/2 -inch 
floppies. If all else fails I have cassette, 
though I'm not crazy about it. 

"If anyone comes up with more 
memory, I'm ready. I've talked a little 
to Holmes Engineering about the 256K 
bubble memory and it sounds like it's 
not quite ready, but that would be a 
worthwhile purchase if it comes out 
256 • 80 Micro, December 1983 



sometime during the trip." 

Meanwhile, he estimates that his cy- 
cle, camping gear, and electronics 
equipment total about 110 pounds, 
some taken up by a high-tech way to 
save batteries: "A couple of solar 
panels that were donated by Solarex 
provide 15 volts in full sun," he said, 
and another sponsor has contributed re- 
chargeable Ni-Cad cells. 

Besides relying on them, plus an ac 
line when available, Roberts has a gen- 
erator similar to those that run bicycle 
headlights: "If I've got a good tailwind 
or I'm flying downhill, it's a simple 
matter to pop [the generator] against 
the wheel and get power." 

There's one item he doesn't expect to 
use — a CB radio, carried in case of 
emergency. "I've stripped it down 
almost to just a PC board," Roberts 
said. "It's not even near me when I'm 
doing my regular writing, but if I'm 
crashed in a ditch somewhere I'd like to 
be able to call for help." 

While the trip will challenge not only 
Roberts' stamina but the Model 100's — 
"how well it will do in the sun and vi- 
bration and dirt and everything else" — 
Radio Shack is keeping its distance 
from the project. "They know about it 
but seem kind of unresponsive," Rob- 
erts said when asked about any contact 
with Tandy. "I encountered such a 
huge, faceless organization when I [ap- 
proached them] for a sponsorship that I 
went back to CompuServe." 

That may be because Radio Shack is 
unwilling to share other people's pub- 
licity stunts. Roberts seems sincere and 
enthusiastic about the trip and eager to 
discuss it as an affirmation of new 
technologies' ability to liberate desk- 
bound workers, but the enterprise is not 
exactly free of Madison Avenue-style 
merchandising. 

In addition to his CompuServe up- 
dates, there's the matter of what Rob- 
erts will write during his year on the 
road. Besides freelance magazine arti- 
cles and material for corporate clients, 
he plans two books. One will be either a 
"boring but easy to write" text about 
on-line communications and engineer- 
ing, or a computer science text which 
Roberts calls "potentially a huge mon- 
ey-maker but a lot of work." 

Roberts' second and more important 
effort will be a book tentatively titled 
Computing Across America' A Bicycle 
Odyssey, for which his agent is current- 
ly negotiating with several publishers. 



Suspicion of Roberts' making the trip 
in order to write about it, rather than 
making it and then writing about it, 
lessens the credibility of his words to 
Today's Gerber: "The whole trip offers 
an opportunity to test the viability of 
the information society. I want to see if 
I can maintain a heavily interactive, 
information-oriented professional prac- 
tice involving a lot of clients [with] com- 
plete freedom from the confines of an 
office. I'll exist in a totally asynchro- 
nous fashion." 

Also, Roberts' point is to be free 
from desks and papers, yet he'll be car- 
rying generators and solar cells. Is that 
practical? "I think it is practical," he 
told 80 Micro, "and I've been doing it 
on a very small scale recently as I've 
been practicing. 

"I find I get a lot more done when 
I'm out on a beach or something with a 
Model 100. This morning, in fact, I 
wrote most of an article at a Wendy's 
restaurant while having breakfast. 
When I'm out of the office, there are 
fewer distractions and I can get more 
done." 

This makes sense, but sounds more 
like most users' appreciation of the 100 
as a handy notepad than a defense of a 
full-time career with one. Also, of 
course, Roberts' job fits his thesis better 
than most other professions would; the 
freelance writer is the most insecure fi- 
nancially, but the least place- and equip- 
ment-bound, worker there is. 

Nevertheless, Roberts insists, his trip 
goes beyond both commercial aspects 
and his point about the open office. "If 
I wasn't writing for a living and had lots 
of money I'd be doing it anyway," he 
said. "The fact that I'm not indepen- 
dently wealthy forces me to work while 
I'm on the road, and [the 100's] a con- 
venient way to do that. 

"1 don't think it is [a publicity stunt]. 
I've thought about it a lot and won- 
dered if it was, and it doesn't feel that 
way. It's something I do privately as 
well as publicly." 

And, anyway, Roberts' tour is an ad- 
venture. Computing Across America is 
unlikely to rival de Tocqueville's De- 
mocracy in America or William Least 
Heat Moon's Blue Highways, but Rob- 
erts' combination of gee-whiz Wood- 
stock spirit and "Real People" PR 
might produce a bestseller. 

How about Zen and the Art of Model 
100 Maintenance! ■ 

— E.G. 
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For Those Who Seek, 



Bible study aids from Bible Research 
Systems include the com- 
plete KJV Bible text on 
disks. THE WORD pro- 
cessor can search the 
Scriptures for any word or 
phrase. Any portion of the 
Bible can be printed or 
displayed. Create your own 
library of research materials 
or use ours, called TOPICS. — — 

TOPICS contains cross-reference indexes on over 200 
oi the primary subjects discussed in Scripture. 

Bible Research Systems applies computer technology 
to personal study of the Scriptures. 




TOPICS 

$49.95 



Bible Research Systems 

9415 Burnet, Suite 208 
Austin. TX 78758 

) 835-7981 ^7 



THE WORD 

processor 
$199.95 

Plu» $' pottage 'handling 



Requires APPLE 11 + , IBM-PC, TRS80-1II. OSBORNE. KAYPRO, or CP/M 8" 



(&aib $lug BO 



Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors 
GOLD PLUG 80 solders to the board edge con- 
nector Use your existing cables (if gold plated) 

GOLD PLUG 80 Mod I Mod III 




GOLD PLUG 80 Mod I (6) 

Keyboard/El (mod I) 
Individual connectors 
GOLD PLUG 80 Mod III (6) 
Internal 2 Drive Cable 
Mod III Expansion port 









$44.95 
15.95 
$7.95 
48.95 
29.95 
9.95 



Available at youf tavonle dealer or order direct from EJLP. CO. 

Dealer Inquiries Invited MMB 

VISA 



TRS-80+ MOD I, III, COCO, 
TIMEX 1000, OSBORNE, 
TI99/4a others 

COCO MODULE INSTALLATION AVAILABLE 

COCO Disk Module 

Ground tab 
extensions 





At i^Hfc.iJrU ■! 



COCO Disk Module (2) 
Ground tab extensions 
Disk Drives (all R.S.) 
Gotd Disk Cable 2 Dnve 
Four Drive Cable 






rf& 



*<* 



$16.95 

INCL 

$7.95 

29 95 

39.95 



The GOLD PLUG 80 extends the existing 
connection 1/2". The ground tab extensions 
extend the ground tate T/2 to contact the 
ground clips. The ground reduces the RFI 
interference to the monitor. 



USA shipping $1 45 
Forego $7 



C*i/MoxS4 
TEXAS 5* TAX 



P.O. 



The Gold Plug 80 
GOLD PLUG 80E.A.P. COMPANY „a 
Box 14 Keller, TX 76248 (817) 498-4242 






tradwnarfc Tandy Corp 
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80 Micro, December 1983 • 257 



NEWS 



SOFTWARE 



ROM is copyright 



Apple wins; Franklin to appeal 



Diving into a hazy maze of O's and 
l's, a federal appeals court in Phila- 
delphia has issued a ruling that makes 
the question of software copyright one 
step clearer, even as it blurs the distinc- 
tion between software and hardware. 

On August 30, a three-judge panel 
upheld Apple Computer Inc.'s lawsuit 
against Franklin Computer Corp., al- 
lowing Apple to seek an injunction 
against sates of Franklin's Apple-com- 
patible Ace 1000. The key decision: 
computer manufacturers can copyright 
operating systems and programs in 
ROM, as well as applications programs. 

Writing that "the medium is not the 
message," Circuit Court Judge Darcy 
Slovher overturned a lower court's de- 
nial of Apple's suit. Franklin admitted 
copying 14 operating system programs 
before the lower court, but argued that 
such programs embodied in chips are 
essential parts of the machine — hard- 
ware — and, as such, ineligible for copy- 
right. 

The presiding federal district judge 
agreed, finding that firmware was not 
written "in a language of description" 
and refusing to issue a temporary re- 
straining order against Franklin. The 
appeals court's decision lets Apple re- 
turn to district court and seek the in- 
junction, even as Franklin's lawyer, 
James Shestack, announced plans to 
ask for a rehearing — round 3 of the bat- 
tle, so to speak — before the entire Court 
of Appeals. Round 4 might take place 
in the U.S. Supreme Court. 

In upsetting Franklin's claim that the 
programs were an uncopyrightable 
"process, system, or method of opera- 
tion," Sloviter and his colleagues said 
that that approach "mistakenly focuses 
on the physical characteristics of the in- 
struction," like paying attention to a 
book's ink and paper rather than its 
contents. "Apple," the panel declared, 
"does not seek to copyright the method 
which instructs the computer to per- 
form its operating functions but only 
the instructions themselves. 

"Franklin's attack on operating sys- 
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tem programs as 'methods' or 'pro- 
cesses' seems inconsistent with its con- 
cession that application programs are 
an appropriate subject of copyright," 
the court continued. "Both types of 
programs instruct the computer to do 
something. 

"The statutory definition of a com- 
puter program. .. makes no distinction 
between application programs and op- 
erating programs. We reaffirm that a 
computer program in object code em- 
bedded in a ROM chip is an appropriate 
subject of copyright." 

The decision makes an important dis- 
tinction between the two legal means by 
which people protect their ideas— copy- 
right and patent. As the New York 
Times' David E. Sanger wrote, "Under 
U.S. law, copyrights protect the expres- 
sion of an idea, such as a literary work. 
Ideas themselves, in the form of novel 
inventions, are protected by patents." 

In Franklin's view, Apple's operating 
programs were unpatented hardware, 
and therefore free for copying. Com- 
puter makers, Sanger pointed out, 
"have shied away from using the patent 
system to protect their programs," be- 
cause patents take a long time to obtain 
and because "it is not clear whether 
most computer programs are sufficient- 



ly novel and distinct from one another 
to merit patent protection." 

For example, Scripsh and Newscript, 
both TRS-80 word processors, are alike 
in many ways — generally, they're both 
written in l's and O's; more specifically, 
they use similar routines to perform 
similar tasks such as opening and clos- 
ing files. Like two novels written with 
the same words, they are not different 
enough to be patented. They are, how- 
ever, copyrighted by Radio Shack and 
Prosoft respectively. 

As for Apple, the Cupertino, CA, 
firm's vice president and general coun- 
sel, Albert Eisentat, was naturally pleased 
with the ruling, telling Computerworld, 
"I think it's one of the most definitive 
statements of the law that's been done 
yet." 

Whatever the odds, however, Frank- 
lin vowed to continue the fight. The 
Cherry Hill, NJ, company's executive 
vice president and chief operating of- 
ficer, Avram Miller, told reporters, 
"Our plans right now are to go back to 
the court for redress. We believe we'll 
prevail and the injunction will be 
denied." 

Added attorney Shestack, "We still 
contend that Apple was abusing the 
copyright laws to gain a monopoly on 



As this issue went to press, Osborne Computer Corp. stopped production 
of its portable computers, laid off 300 of its 400 remaining workers, and filed 
for protection from creditors under Chapter 1 1 federal bankruptcy laws. 

The Hayward, CA, firm employed 1,000 people before closing its New 
Jersey plant and beginning California layoffs last summer, plagued by more 
powerful and less expensive competitors to its Osborne 1 and delays in ship- 
ping its successor, the Osborne Executive. 

On Sept. 12, two San Jose component suppliers filed a lawsuit claiming 
Osborne owed them more than $4.5 million for circuit boards, disk drives, 
and other parts. The portable pioneer filed for Chapter 1 1 protection in U.S. 
Bankruptcy Court in Oakland on Sept. 13. 

James Lopes, attorney for Osborne, told the Associated Press that three 
banks had agreed to loan the company $600,000 while Osborne sought possi- 
ble buyers or investors. 
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micro's 




The guide that will save you time and money. 

You'll spend more time at your 
computer and less money for the 
right product. 

80 Micro's Review Guide is the 

most comprehensive collection of 
TRS-80* reviews ever compiled in 
book form. You get 500 hardware, 
software and book reviews packed 
with information about: 



•Modems 
•Games 
• Business 

programs 

&Word 

Processing 
•Joysticks 
•Books on 

programming 



•Printers 
•Utilities 
•Editor/ 

Assemblers 
•Educational 

software 
•Monitors 

• Databases 

• And more 



Don't waste valuable time chasing 
down the right product. We've done 
it for you with 80 Micro's Review 
Guide, compiled and condensed 
from the pages of 80 Micro, the 
magazine you've come to rely on. 

A live-star rating system lets you 
decide what's best. And each review 
gives you the product manufacturer's 
information so you can order and re- 
ceive your product fast. 

All for $7.95 

Order now. Use the 
attached order form, 
the coupon, or call toll free 
1-800-258-5473. 



ITC40 b a trademark ,./ Rodin Shot*, a dh Mom u) Tmtfy t ot\ outmd, I \\. «««■. H03-924-94TI 

JrCSf I want to save time and money. 
Send me 80 MICRO'S REVIEW GUIDE today. 



Please send me 



Review Guides at $7.95 eaeh 



Old add $1.50 per book shipping and handling. 

[J Check enclosed MC ["] VISA ! AE 

Card* 

Signature 

Name 

Address 

City 




80RGD 



Pt.-asr allow 6* weeks for delivery 

Exp. Date 



State Zip Code. 



Wayne Green Inc. • 80 Pine St. • Peterborough, NH 03458 Attn: M«rci« stone 



ft 



^ 



T*r 



JL— 



ft 



ft 



ft 



ft 



U 



JL 



ft 



Z 



ft 



ft 



* 



ft 



ft 



I 



ft 



ft 



S 



ft 



j&_ 




SPECIALS OF THE MONTH! 




NEXT DAY SHIPMENT OF THE LNW 80 MODEL II 



LNW-80 
MODEL II 




This computer has it all! TRS-80™ Model I and CP/M® software 
compatibility with two operating systems; DOSPLUS 3.4 and CP/M 
2.2. The LNW 80 MOD II can read and write the 5W disk formats of 
several CP/M computers including: OSBORNE, KAYPRO, XEROX 820, 
CP/M 86 as well as standard 8" IBM format. Standard features: 96K 
of RAM, parallel and serial ports, 
cassette and joystick ports. RGB and 
Composite Color interfaces, HI-RES 
graphics and much more! Six 
month warranty. 

Now included, over $ 2000 of software! 

Word processing, spread sheet, communications, 

graphics, and complete accounting software. 




Call for unpublished 
low, low price! 



PRINTER SPECIALS! 



New TOSHIBA P1350 dual mode 
printer • 100 CPS letter quality and 
160 CPS draft quality .... *1595.°° 

C.ITOH 

F10 40 CPS • bi-directional daisy 

wheel printer *1195.°° 

GORILLA BANANA *209. 95 

PROWRITER 8510 *399.»° 

PROWRITER 1550P *679.°° 

EPSON 

MX 80 ft *469.<» 

MX 100 *649." 

FX 80 *569." 

FX 100 *759. M 



RICOH 

15" Daisywheel Printer 

20 CPS *699. M 

35 CPS *829. w 

DAISYWRITER 

40 CPS, 48K buffer, daisywheel, 

incredible price! *1129.°° 

OKIDATA 

Call for guaranteed lowest price! 
GEMINI 

10X *319.°° 

15 *479.°° 

SILVER REED 

500 *469.°« 

550 *679.°° 






TRS-80 ACCESSORY CLOSE-OUT SALE! 



Micro Mainframe MOD III disk 

controllers: 

5" only *49." 

5" & 8" *77.°« 

CP/M 2.2 conversion boards for 

MOD III, includes CP/M 

48K board *99.«* 

64K board >139.°° 



2 drive power supply with 
cables *49.°° 

2 drive assembly kit • Vs disk 
controller, power supply, drive 
towers *129.°° 

Drive kit with 2 tandon TM100-1 
drives *549.°° 




mmPfw® 



We guarantee everything we sell. Any product can be returned to us 

within 15 days for a prompt refund. Just send back all the original 

contents including manufacturer's registration and warranty cards. 

All returns are subject to a 10-15% restocking charge. One year 

extended warranty available on everything we sell. Call for prices. 



All prices quoted are cash discounted prices. We also honor 
Mastercard, Visa, American Express and Company purchase orders. 



ACCESSORY SPECIALS! 



LNW Va doubler *159. 00 

LNW Vs doubler with 

DOSPLUS *179. 00 

LNW expansion II *329.°° 

Diskette Storage Cases 

• Flip-top, 75 disk capacity, 
dividers included $ 19.' 5 

MONITORS 

NEW C.ITOH 12" green with stand 

• 18 HRZ HI-RES *119. 00 

BMC 12EN with built-in anti-glare 
screen *169.°° 

USI 12" green • 20 HRZ. . . *169.°° 
USI 12" amber *179.°° 

NEW Princeton Graphics PGS- 

HX12 HI-RES RGB color 

12" *499. 00 

NEW tilt and swivel monitor stand - 
supports any monitor *29. 95 



IBM PC COMPATIBLES SALE! 

EAGLE - COLUMBIA DATA - 

CORONA - - - 

Call for lowest prices! 

WE HAVE THE PORTABLES! 

KAYPRO, TELEVIDEO, COLUMBIA 
DATA, CORONA, OTRONA - - - 
Call for lowest prices! 



1100 EAST HECTOR STREET 
CONSHOHOCKEN, PA 19428 
215-664-5383 



( P M is d trademark ol Digital Research < hi |> 1 R^ 80 i* a trademark of Tandy ( orp ilB^MI is a trademark ot Ashton Idle. Sl.Pf R is j frjdc Turk m . • ^ Im 
Pniei tie »ub|ect to change *uhoui notice Quantities tie limited. 
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equipment compatible with its machine." 
Ekos Inc., a Franklin distributor, is- 
sued a press release affirming its sup- 
port of the Ace manufacturer. Ekos 
President Steven R. Gerbsman de- 
clared, "There are other alternatives 
not yet explored, including royalty pay- 
ments, that cause us to believe we'll be 
marketing Franklin computers for some 
time to come." 

The mention of royalty payments in- 
dicates a possible direction for settle- 
ment, though no one's talking at pres- 



ent; all Miller would tell ISO World 
was, "We have contingency plans if we 
fail." 

One of Franklin's contingency plans 
is probably its IBM PC-compatible 
micro, being prepared under the direc- 
tion of engineer William Sydnes, who 
designed the original PC and reportedly 
was working on IBM's Peanut when he 
moved to Franklin in April. 

The Philadelphia ruling does not af- 
fect makers of IBM clones, because 
IBM's "open architecture" policy 



makes details of its PC system readily 
available. 

Nevertheless, the Apple/Franklin de- 
cision means that computer companies 
can protect all software — whether on a 
disk, a listing, or a chip, and in source 
or object code — by copyright. Manu- 
facturers continue to worry about 
small-scale piracy and product backups, 
but system pirates have apparently been 
sunk. I 

-E.G. 
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Waiting for Santa 



The micro industry looks to the Christmas market. 



After a summer of rollercoaster 
stock prices and grim predictions 
for TI and Atari, the microcomputer in- 
dustry tried to pull itself into shape for 
the Christmas buying season. By 
September, some companies had 
asserted themselves as movers and 
shakers, some were on the move, and 
others were merely shaking. 

Taking the latter first, Texas Instru- 
ments moved swiftly to reduce towering 
TI 99/4A inventories. A price cut to $99 
helped move the overstocked machine, 
and a peripheral package consisting of a 
disk drive and controller, 32K RAM ex- 
pansion, and rack mount, was slashed 
from $1,200 to $550. In addition, stores 
received a free $100 software package 
for every system ordered. 

According to Electronic News, 
dealers immediately started selling the 
expansion package and software for as 
little as $449, with industry observers 
predicting $399 before long. Such a 
price, bringing a 48K disk system to 
around $500, would be competitive, 
though other questions remained 
unanswered: whether buyers would be 
attracted to the software-scarce micro, 
and whether TI could survive at such a 
low (perhaps negative) profit margin. 

Turning the knife in TI's wound, 
Montgomery Ward issued its 1983 
Christmas catalog on September 
9 — and bumped the 99/4A to give space 
to Coleco's Adam. 

Timex dealers had even less to smile 
about. Ken Coach, marketing and sales 



director of Softsync, told Info World, 
"The Timex-Sinclair 1000 has petered 
right out." Coach hoped that the forth- 
coming TS 2068, the U.S. version of the 
Sinclair Spectrum color machine, might 
share the under-$200 market with Com- 
modore, but saw no prospects for the 
black-and-white TS 1500: "I'm not put- 
ting any hopes on it at all." 

Following TI's lead, meanwhile, 
Atari cut prices for most of its lineup, 
from the 2600 VCS game console (ef- 
fectively trimmed to $59 after a rebate) 
to the new 600XL and 800XL home 
computers, given wholesale tags of $140 
and $240 respectively. Even so, Atari's 
retail prices were some $60 above the 
competition's — the 600XL versus the 
99/4A in the 16K arena, and the 800XL 
versus the Commodore 64. Just as TI 
disappeared from Montgomery Ward 
shelves, the 203-store Target chain add- 
ed Coleco and dropped Atari. 

The Warner Communications sub- 
sidiary seemed to be pinning its hopes 
on its AtariSoft line of programs for 
non-Atari micros, announcing 12 
games for the 99/4A and eight for 
Commodore, IBM, and Apple. In addi- 
tion to computer versions (expected to 
retail for $38 to $50 apiece), Atari 
launched several titles for rival Intellivi- 
sion and Coleco Vision game machines. 

While VIC-20 sales slowed to a crawl, 
Commodore 64's were jumping off the 
shelves. While $199 prices gave only a 
$5 margin over wholesale cost, vendors 
relied on peripherals and software for 



profit. For instance, 90 percent of C64 
buyers also choose the 1541 disk 
drive — supplies of which nearly ran out 
in late summer, obliging Commodore 
to schedule an emergency airlift from 
Japan. 

Spinnaker Software President Bill 
Bowman echoed the industry consensus 
when he told Info World, "If the low 
end is going to have a savior, it will be 
the Commodore 64." The only machine 
that seemed competitive was Radio 
Shack's white-cased 64K Color Com- 
puter, which debuted at $399.95— well 
under the C64's original $595, but twice 
Commodore's current price. (The com- 
pact new Color Computer 2 with 64K 
RAM and Extended Basic lists for 
$468.95, plus upgrade installation.) 

How low will Commodore go? In its 
July 25 issue, ISO World claimed that 
building a C64 costs Commodore less 
than $60 and that the firm could "ap- 
parently sell the 64 for $99 wholesale 
and still make a profit." 

While no one seemed ready to tackle 
Commodore in the trenches, many 
manufacturers were comfortable in the 
higher levels of the market. Kaypro was 
making about 12,000 machines a 
month, while Apple and IBM each pro- 
duced perhaps 70,000 lie's and PC's re- 
spectively. Compaq predicted $100 
million in revenues for its first year, sell- 
ing 50,000 copies of its portable PC 
clone. 

There were rumors of more middle- 
range micros to compete with Adam 
80 Micro, December 1983 • 281 
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and Peanut— a $500, 16-bit, 256K 
Commodore; an under-$ 1,000 TI with 
concurrent CP/M in ROM. Steve Woz- 
niak told the San Jose Mercury News 
that Apple's Mcintosh, due in Novem- 
ber or December for $1,200 or so, 
would "just [boggle] everyone. It's just 
totally unbelievable and unexpected, 
not just a better version of something 
that is already around." 

Coleco rebounded from pessimists' 
gossip to show production units of 
Adam (though a press release said "less 
than $700" instead of the usual $600 
cost figure), and Child World, Mark- 
line, and Diners Club joined Wards and 
Target in placing orders for fall 
delivery. In mid-September, though, the 
press reported that Adam's FCC ap- 
proval would be a month behind 



schedule. 

Coleco also joined AT&T in plans for 
"an interactive game and entertainment 
service," bringing Zaxxon and com- 
pany to anyone with a home computer 
or game console. The service will use 
standard phone lines and an AT&T/ 
Coleco modem; subscribers will pay a 
monthly charge plus user fees to play a 
game. The announcement upstaged 
Mattel, which developed the Playcable 
service now offered by 20 cable TV 
companies. 

And IBM prepared to upstage every- 
body, with 100,000 Peanuts sold by 
Christmas. There was talk of still other 
news from Big Blue— a portable PC by 
year's end, a $10,000, 32-bit challenger 
to Lisa by spring 1984 — but IBM's 
home computer continued to rule the 



gossip world. 

Analysts couldn't agree on specifica- 
tions, Datamation reported, but they 
agreed on one thing: Whether it cost 
$700 or $900, had 64K or 90K, and used 
a tape drive or a standard 5 '4 -inch disk 
or IBM's orphan 3.9-inch disk or 
CP/M or MS-DOS on a ROM chip, 
Peanut would use the IBM name to be- 
come the dominant force in home com- 
puting. 

In the words of Peter Cunningham, 
president of Input, a Mountain View, 
CA, research firm: "Coleco's Adam 
might be state of the art for the home 
market and have the lowest retail price, 
but it will probably be IBM that makes 
all the money. "■ 

-E.G. 
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Magic/L 

challenges 

Basic 

Loki, in Norse mythology, 
is a malevolent, mischievous 
god, always making trouble 
around the gods' home of 
Asgard and (in Marvel Com- 
ics' version) trying to defeat 
the mighty Thor. If Basic is 
the Thor of microcomputer 
languages, Loki Engineering 
of Cambridge, MA, is hop- 
ing to raise a little mischief of 
its own with a syntax called 
Magic/L. 

According to Mass High 
Tech, Magic/L is "a Forth 
equivalent with simpler syn- 
tax and a high level of inter- 
activity with the user." Its 
authors, Loki's Jeff Epstein 
and Arnold Morris, compare 
it to C and Pascal in terms of 
structure, but claim it's more 
powerful and more interac- 
tive. 

"Magic/L is much faster 
than Bask, and can be learned 
in hours," Morris said. 
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WorkSlate Designed to do one thing well. 



"[It's] the ultimate in user 
friendly, and once you get 
good, it allows you to do 
things like access Assembly 
language directly." 

While working on satellite 
data display systems at the 
Smithsonian Astrophysical 
Laboratory, Epstein recalled, 



he and Morris became "frus- 
trated because [Forth] was so 
hard to read. Forth is what 
some people call a write-only 
language." In other words, 
what looks fine to a Forth 
programmer might prove 
baffling to someone who 
wants to modify the program 



later. 

In addition, Epstein claims, 
Forth and other languages 
"have their roots in prehis- 
tory. Basic, for heaven's 
sake, was written on an IBM 
1 130, much less of a machine 
than an Apple." 

To overcome these short- 
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comings, the two program- 
mers developed Magic/L, 
working on a Data General 
Nova in Epstein's basement 
in early 1981. Today, Mass 
High Tech says, Loki "is bet- 
ting its future that Magic/L 
will become a standard lan- 
guage of the 1980s — perhaps 
even competing head-to-head 
with Basic in the personal 
computer market." 

After selling it as a develop- 
ment tool for minicomputers, 
Marketing Manager Barry 
Unger said, Loki planned to 
launch CP/M-86 and MS- 
DOS versions of the new 
language at Boston's CP/M 
East show in October, and 
hoped to make Magic/L a 
household word before long. 

"New languages are usu- 
ally developed by large teams 
at universities," Unger said, 



"but we believe we have 
something that is way ahead 
of anything else, and we see a 
tremendous growth poten- 
tial." 

Who knows? If Magic/L 
proves a threat to Microsoft 
and Digital Research, Loki 
Engineering may incur the 
wrath of the gods. 

Non-pro- 
grammable 
portable 

While Tandy's Model 100 
and its rivals are lap-sized 
workstations suitable for al- 
most any computing task, 
Convergent Technologies Inc., 
of Santa Clara, CA, has 
taken a different approach. 
Its WorkSlate is designed for 



specific applications, giving 
executives a spreadsheet, cal- 
culator, terminal, and tele- 
phone in an 8 l A- by 11-inch 
package. 

The 3 '/i -pound portable, 
introduced in Computer- 
Land and Businessland stores 
and in the American Express 
catalog, has a 16-line, 46- 
character LCD display, an 8- 
bit CMOS 6800 CPU, a 300- 
baud modem, and a built-in 
microcassette recorder. Its 
16K RAM is expandable to 
32K, but its strength is its 64K 
ROM — which includes an 
advanced spreadsheet and 
windowing capabilities. 

For instance, users can put 
a spreadsheet at the top of the 
display and a financial calcu- 
lator at the bottom, moving 
data back and forth between 
the windows. 



WorkSlate's audio record- 
er lets it serve as a speaker- 
phone and phone-answering 
machine; spreadsheet tem- 
plates, called Taskware, are 
available on special data/ 
voice tapes. Its maker, Con- 
vergent^ new Advanced In- 
formation Systems division, 
claims users can use the tape 
recorder to make vocal anno- 
tations to spreadsheets, up to 
10 of which can be stored on 
a microcassette. 

The firm plans communi- 
cations, financial-modeling, 
and memo-writing software — 
not full-featured programs, 
but patches or templates to 
WorkSlate's spreadsheet en- 
vironment. There may also 
be different machines for 
writers and students; Con- 
vergent marketing manager 
Karen Toland admits Work- 



PRICES YOU CANT BEAT! . . 



LNW 80 Model II 

128K. 5/8 DISK CONTR. RGB COLOR HI 
RES GRAPHICS RS 232. PAR PRINTER PORT. 
80x24 DISPLAY. I YEAR WARRANTY, PLUS 
MICROSOFT BASIC. LNW BASIC. DOS+ 3 4. 
CPM 2 2. CHARTX GRAPHICS MICROTERM 
ELECTRIC PENCIL ELECTRIC SPREADSHEET. 
PROF BUSS ACCT1NG (general ledger, accts 



pay. accti rec. payroll) 



$1595 



BUY7>«MONTHGETATEAC40TRKS'S FREE 



COMPUTERS 

TIMEX $56 I 6 MEM $42 

APPLE CLONE (SYSCON 2) $599 

TRS 80 COLOR COMP. 1 6K $269 

MOD III 48K2/40TRK. S/S. RS232 $1,730 



CRT MONITORS 

AMDEK 300 GREEN $139 

AMDEK 300 AM8ER $159 

AMDEK COLOR I $359 

AMDEK COLOR II $639 

TAXAN RGB COLOR I 8299 

TAXAN RGB GOLOR IN 8535 

TAXAN GREEN 8125 

TAXAN AMBER 8139 



TEAC V4 SIZE DRIVES 

FD 55 A 40TRK S/S 
FD 55B 40TRK D/S 
FD 55F 80TRK D/S 

ALL TEACS HAVE A 1 YEAR WARRANTY 



Bait Comp 

$209 $245 

$280 $319 

$320 $360 



Bar* Con\pl 

$159 $199 

$225 $280 

$340 $385 



TAN DON DRIVES 

100-1 40 TRKS/S 
1 00-2 40 TRK D/S 
1 00-4 80 TRK D/S 

ECONOMY DRIVES 

COMPLETE W/CASE/PWR SUPLV 

40TRK S/S $195 



APPLE COMPATIBLE DRIVE 

W CONTR CARD. CASE & CABLE $275 

C-ITOH PRINTERS PAR SER 



PROWRITER 85 1 

PROWRITER 1550 

F-10 40CPS 

F-I0 55CPS 

F- 10 TRACTOR FEED 

QUME SPRINT I I 40CPS 



$359 $525 

$660 $725 

$1095 $1095 

$1395 $1395 

$195 

$1,450 



MODEMS 

NOVATION|-CAT $135 

SIGNALMAN $85 

HAYES Smart modem #1200" $415 



LNW SYSTEM EXPANSION II 

UPGRADE YOUR MOO 1 OR PMC 80/81 WTTH 
DISK CONTROLLER RS 232 PARALLEL 
PRINTER PORT 32K 200 NS MEMORY GOLD 
CONNECTORS TRANSFORM- CASE CABLE 

SPECIAL THIS MONTH 9339 

EXPANSION INTERFACES 

MICRO DESIGN MDX-2 $449 

MICRO DESIGN MDX-3 $289 

LNW DOUBLER w DOS+ 3.4 9189 

DOUBLE DENSITY MULTIPLIER $95 



SOFTWARE 

LAZY WRITER $IS9 

ELECTRONIC WEBSTER $11* 

MAX) MANAGER $129 

PtfSTMAN $119 

DOS PLUS 3.4 $89 



ZORLOf $79 

SUPER UTILITY ♦3.0 $45 
MAS. 80 e».JI35 

NEWSCRIPT $114 

OMNITERM I 6 $78 



24 HOUR TOLL FREE ORDERS 

VISA/MASTER CHARGE ONLY: 

(80Q) 633-2252 EXT 720 

ALL QUESTIONS: (313) $34-11 12 

MICHIGAN RESIDENTS ADD 4% SALES TAX POSTAGE 

CALL FOR CHARGES- PRICES ARE DISCOUNTED FOR 
CASH AND MONEY ORDOt (NON CERTIFIED CHECKS 
ALLOW 2 WEEKS TO OZARJKASTUc CARD AND VISA 
ADD 3% NO COD NO NET TERMS 




VFQP ACOMPUTER OUTLET 

W ^bb*«#I ^^ 16727 Patton Detroit MI4fi?lQ 



* See Usl ot Advert is er* on Page 291 
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Slate's circular keys dis- 
courage typing, but says, 
"Executives don't type. They 
do word processing with their 
mouths. 

"WorkSlate is designed to 
replace the calculator, pencil, 
paper, and eraser," Toland 
told InfoWorkfs John Mark- 
off and David Needle. "It 
will not compete directly with 
the Tandy Model 100." 

The unit costs $895, with 
Taskware tapes selling for 
$19.95 to $49.95 and a printer 
for $250. 

Small is 
profitable 

Most office automation 
firms such as DEC, Wang, 
and IBM hope to place their 
products with the prestigious 
Fortune 1 ,000 companies, 
whose business totals over 
$1.8 trillion in annual reven- 
ues. However, according to 
Focus Research Systems of 
West Hartford, CT, there's 
an even bigger market among 
small businesses. U.S. com- 
panies with annual sales of 
under $25 million apiece 
combine for over $2 trillion a 
year — and the advent of of- 
fice micros has made them 
prime candidates for auto- 
mation. 

American business, Focus 
points out, consists "of a 
handful of large companies 
and a gigantic number of 
small businesses": of an 
estimated 3.56 million non- 
agricultural companies, 3.55 
million — 99.7 percent — have 
under 500 employees. Per- 
haps 3.1 million, or 88 per- 
cent of all U.S. businesses, 
have fewer than 20 people on 
their payrolls. 

Except for a copier (most 
firms with eight or more 
employees have a copy ma- 
chine), these offices stayed 
unautomated while main- 
frame and mini salesmen 
264 • 80 Micro, December 1983 



made their rounds. "A small 
company with $200,000 in 
annual sales may allocate 
$4,000 annually for automa- 
tion, and such a sum hardly 
warrants a major sales effort 
by any vendor," Focus' sur- 
vey, "Small Business Auto- 
mation," admits. 

The microcomputer era 
changed that. From 1979 to 
1982, Focus' survey states, 
254,000 small firms bought 
computers. Of those buyers, 
80 percent had 1-19 
employees; while only 78,000 
firms that size had a com- 
puter in 1979, over 278,000 
had one three years later. 

Looking ahead, Focus pre- 
dicts over 900,000 small busi- 
nesses will buy their first 
computer within the next 
three years. By 1984-85, the 
researchers claim, the com- 
puter market among com- 
panies with under 450 
workers will total $8 billion, 
with more than half of that 
coming from firms with 
under 20. 

"Computer vendors with 
low-cost products and distri- 
bution systems capable of 
selling in volume are well po- 
sitioned to reap the benefits 
of this massive market," 
Focus concludes. 

Say it with 
paper 

In a recent "Side Tracks" 
column (November 1983, p. 
6), 80 Micro's editor-in-chief 
Eric Maloney remarked that 
the magazine prefers submis- 
sions and queries on paper to 
messages on CompuServe. The 
market researchers at Interna- 
tional Resource Development 
Inc. see broader implications, 
describing an anti-videotex 
backlash that illustrates Hege- 
lian philosophy. 

Proclaiming, "The 'Paper- 
less' Home? According to 
Hegel, No Way!", IRD 



claims that the telecommuni- 
cations boom will actually in- 
crease the consumption of 
certain kinds of paper— that, 
with "uniformity, mechaniza- 
tion, and depersonalization" 
as the thesis, people will long 
for its antithesis. 

"People don't need paper 
just for business reasons," 
says IRD researcher Ken Bo- 
somworth. "They need paper 
for personal reasons, too. A 
letter written on personalized 
stationery will be far more 
meaningful than the same 
words appearing on a CRT — 
and, for that matter, more 
meaningful than the same 
words printed out on com- 
puter paper." 

Thus, the Norwalk, CT, 
analysts predict, the future 
will bring not one big happy 
Network Nation but "a re- 
surgence in demand for" 
high-quality stationery, busi- 
ness forms, and greeting 
cards, as people seek more 
sincere correspondence. "And 
the Hegelian synthesis," IRD 
concludes, "shall be a world 
in which the old and new me- 
dia are each appreciated for 
the respective strengths they 
bring to communications." 

While rejecting the idea of 
videotex Valentines, Bosom- 
worth admits that telecom- 
munications will prevail over 
printed catalogs, directories, 
and Yellow Pages. "The syn- 
thesis-antithesis concept only 
applies in situations where 
deeply felt human needs are 
involved," he says. "If it's a 
question of efficiencies on the 
one hand and no emotional 
need on the other, the effi- 
ciencies will win out every 
time." 

CRT users 
see pink 

It seems the debate over 
possible health effects of 



CRT displays will never end. 
A National Academy of Sci- 
ences panel concluded in July 
that terminal use has no ad- 
verse effects on operators' 
vision, but the National Insti- 
tute of Occupational Safety 
and Health (NIOSH) vowed 
to continue research on 
health-related CRT prob- 
lems, including a study focus- 
ing on CRTs and pregnancy 
(see 80 Micro, October 1983, 
p. 294). 

Now three IBM PC users 
have discovered that gazing 
into a computer monitor does 
indeed have an effect on vi- 
sion, if not exactly an adverse 
one. Look at a CRT long 
enough, and white figures on 
a black background turn 
pink. 

Susan Green wald, an Evans- 
ton, IL, architect, noticed the 
color distortion after a ses- 
sion of PC word processing. 
Greenwald's husband Mark, 
an ophthalmologist, contacted 
Randolph Blake, a North- 
western University psychol- 
ogist who specializes in visual 
perception. Blake took one 
look at the CRT and gave a 
rosy diagnosis: the McCol- 
lough effect, a minor optic 
maladjustment that can last 
from several minutes to sev- 
eral weeks. 

"I routinely explain the 
IVJcCollough effect in my lec- 
ture courses," Blake told 
Computer-world. "The con- 
ditions under which the effect 
is produced have to be fairly 
constrained. But it just so 
happens that the green letters 
on the black terminal gener- 
ate just this aftereffect. 

"The most interesting thing 
is that the pattern of the color 
distortion conforms to the 
pattern and contour of the 
letters on the screen. That is, 
if you stare for a long time at 
a CRT, then see white letters 
on a black background that 
are of similar size and shape, 
you'll get the pinkish tint." 



Introducing the Most Powerful 
Business Software Ever! 

TRS-80" (Model I, II, III. or 16) • APPLE "• IBM "• OSBORNE"* CP W« KAYPRO" 




FREE-TRS-80 Mod 1. Ill & 4 
programs supplied on DosPlus 
(minimum system) Complete 
OosPlus also available 



teV 



he versaBusiness" Series 



Each VERSABUSINESS module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VersaReceivabi is- 



$99.95 



VersaLedger ii t 



$149.95 



V'FRS'; i mj driven accounts receivable, invoicing, &<vr. 

month lew I teeps track of a 

. money, and can provide automatic billing ioi 

Moments, invo .mmary 

Inventory™. 

VeRSaPaYABLES'" $99.95 

VERSA PAYABLES' is designed to keep track of current and aged payables, keeping you 

in touch with tow much mot .ind to 

Versa Payables- maintain • record on each vendor, prints checks. 

;\>yabk»s reports, vendor ;. 
and more With VERSA Pa YABIXS-. you can even let your computer automatically select 
which vouchers are to be paid 

VERSAPAYROLL™ $99.95 

i i powerful an am that 

vrnment required payroll information. Complete employee records 
are maintained, and all necessary paym , 

i 'or operator approval A payroll can be run totally, automati- 

- the operas 

red, totals may be posted to the VLRSAL ■em 



VersaLedger IV is a complete ace s as your business 

grows VtKbALLOGERir'canbeusedasasimpi. jister, 

expanded to a small business bookkeeping system or dev a large 

corporate general ledger system without any additional software. 
I" gives you almost unlimited storage capacity 
per month, depending on the system), 

• stores all check and general ledger information forever. 

• prints tractor f< 

• handles multiple checktxx>ks and gen 

• prints 17 customized accounting reports it: 

balance sheets, income statements, transaction reports, account 

Q IP comes with a professionally-wntten 160 page manual de- 
signed for fii " manual will help you become 

complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



VersaInveintory' 



$99.95 



Versa t - a complete inventory control system that gives you instant access 

to dat;i n any item 

>ck. out of stock, on backorder. etc . stores sales and pricing data, alerts 

■ 
' y or to link with the ' 
all needed inventory listing ie re 

ports, period and year to date sales rep." •- ■ I, inventory chi 

iCQMPLFTRQNXCS: 

50 N. PASCACK ROAD, SPRING VALLEY, NY. 10977 



SATISFACTION GUARANTEED! 



K.t. VERSABUSINESS- module » guaranteed tuoutpertormajlottwr competitive system*. 
and at a fraction ol their cos!. II you are not satisfied with «\, VtKSABVSINI 5G~ module, ,n . 
may leiurn il within 30 day* for a refund. Manuals for any VERSABUSINESS" module may be 
purchased for $25 each, credited toward a later purchase of that module 
A„ CP M- based Computers must be equipped with Microsoft BASIC 
(MBASIC 01 BASIC 801 



To Order: 

Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 
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* add $3 for shipping in UPS areas 

• add $4 for COD. or non-UPS areas 



DEALER INQUIRIES WELCOME 

A! prices and specifications subiect to change Delivery subject t 



1 add $5 to CANADA or MEXICO 

add proper postage elsewhere 
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While the effect is physio- 
logically harmless, Blake told 
CWs Katherine Hafner, 
physicians should be aware 
of it in case computer-owning 



patients call, worrying that 
they've suddenly been struck 
color-blind. 

To former typists or 
scriveners, the McCollough 



effect may be a small price to 
pay for the convenience of 
word processing ("There 
aren't really a lot of instances 
where we read white letters 



on black," Blake admitted). 
If you'd rather see straight, 
time away from the CRT and 
keyboard will restore normal 
color perception. ■ 



Uncle Sam 
goes micro 



• News flash: The FEDERAL GOVERNMENT has dis- 
covered that microcomputers are powerful tools, if people 
I — v know how to use them. Halfway 

I QJ through a six-month study designed 

- y to develop policies and plans for 

federal micro use, the General Ser- 
vices Administration told Computer- 
world that employees find micros 



m 



iW[ 



help them make decisions faster and complete their work 
more quickly and accurately. 

"In-depth, hands-on training and ongoing availability of 
technical assistance are essential," the GSA's preliminary 
findings declare. "Also, formal instruction in software selec- 
tion and application are essential in managing the successful 
transition to microcomputer use." 

• Radio Shack, continuing its new policy of COOPER- 
ATION with outside software marketers, has swapped con- 
version rights with CBS Inc. Tandy earns worldwide rights to 
market TRS-80 versions of selected CBS programs, while 
CBS will sell some Radio Shack software for non-Radio 
Shack micros. The agreement marks the first time Tandy has 
allowed its software to be converted to other formats. 

• As reported in October's End Bytes (p. 300), Tano 
Corp. of New Orleans, LA, has brought the DRAGON to 
the U.S., one year after its debut in the U.K. — where it's 
ceased to impress the British magazine Computer Dealer. 
"The Dragon is beginning to look distinctly archaic," writes 
CD's Peter Craig. "Sales figures prove the value of good 
marketing and distribution over a good product." 

Assessing the low-end micro market in Britain, Craig 
comments that Apple's lie "still suffers from having the dec- 
imal point in its price in the wrong place" and that its "spec- 
ification is also beginning to look a bit dated," while "the 
soon-to-be-released Atari models are disappointing evolu- 
tions of the old models." Commodore, Craig concludes, is 
"arrogant in knowing that the 64 is a world beater. The 
machine is so cheap to manufacture and so superior in per- 
formance that Commodore could quite easily zap their com- 
petition from a vast altitude." 

• From distributing printers and disk boxes, LEADING 
EDGE PRODUCTS has moved into the IBM PC market. 
The Canton, MA, firm has followed its much-ballyhooed 
PC word processor with its own MS-DOS micro, an 8088- 
based system said to run 70 percent faster than the PC and 
cost 40 percent less. The 128K machine, assembled by a num- 



ber of overseas contractors, will be the first hardware prod- 
uct marketed under the Leading Edge name. 

• 1983 was the year that computer prices fell through the 
floor; 1984 may be the year that SOFTWARE PRICES fol- 
low. Microsoft Vice-President Jim Spillars told ISO World 
in July, "I think you are going to sec products in the $100 to 
$150 range by Christmas that have been selling in the $250 to 
$350 price range." 

By September, Spillars' prediction seemed on target, with 
Commodore cutting some C64 software prices 50 percent. 
Silicon Valley Systems of Belmont, CA, slashed its popular 
Apple word processor, Word Handler, from $199 to $59.95, 
and offered a package of Word Handler and List Handler, 
formerly $298, for $89.95. It's clear that buyers of the new 
sub-$l,000 micros are unwilling to pay $250 apiece for pro- 
grams. 

• Despite extra courses and upgraded facilities, The Wall 
Street Journal reports, America's COLLEGES are falling 
behind the demand for computer classes. Georgia Tech has 
had to impose quotas on computer science majors, and the 
University of Wisconsin at Madison turns away 1,000 
would-be computer science students a semester. Those who 
get in may have to use a terminal located in a hallway outside 
a crowded classroom, with terminal time available only after 
midnight. 

• The Model 100 is only the beginning: The market 
researchers at International Resource Development Inc. see 
PORTABLES as accounting for one-quarter of all personal 
business computers and office workstations by 1987. More 
and more portables will have integrated voice/data functions 
like Convergent Technologies' WorkSlate's, that can answer 
the phone and digitize users' spoken notes as addenda to files 
or programs; by the late 1980s, "pocket consultants" with 
optical-card memory should replace "whole shelves of med- 
ical or law books" for professionals in those fields. 

• The Boston-based analysts of the Yankee Group, 
meanwhile, see TELECOMMUNICATIONS as achieving 
"mass market status in the fourth quarter of 1985." By then, 
a Yankee study predicts, 20 percent of home computers and 
up to 12 percent of video game consoles will have modems, 
and an additional 1.5 million telephones will sport terminal 
capabilities and built-in displays. 

• And, if all those on-line homes grow tired of talking to 
each other, they can turn to The Source and do CROSS- 
WORD PUZZLES. The McLean, VA, data base now offers 
a weekly British-style (cryptic clues) puzzle, created by New 
York attorney J. Baxter Newgate. Besides having "instant 
access to the answers" and being able to challenge or compli- 
ment the author, Source puzzlers will soon have the option 
of choosing different levels of difficulty. ■ 
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Learn to Program Like a Professional! 

THE COMPLETE BOOK OF RANDOM ACCESS 
& DATA FILE PROGRAMMING 





Written for TRS-80™ I. II, & III - IBM'VPC - APPLE™ M/S - OSBORNE™ - HEATH™ - DEC™ - 
SUPERBRAIN™ - and all Computers using CP/M with Microsoft BASIC™ 

The last word on disk random access and file handling techniques, this series is intended for everyone — beginning programmers, businessmen 
and professionals will learn how to create custom programs to handle inventories, mailing lists, work scheduling, record keeping, and many other 
tasks, while more experienced programmers will learn advanced, professional programming techniques for faster, more efficient data storage 
and retrieval. 

Although random access file handling is a matter of some complexity, the subject has been treated in a simple and down-to-earth fashion, so that 
anyone with some small familiarity with programming in Microsoft BASIC will be able to cope with the material. Each stage of learning uses a 
sample program as a starting point The programs grow in capability and complexity as the books progress into all of the various aspects of file 
handling and record manipulation An extensive effort has been made to keep the material coherent and every program line is explained in detail 



Volume I 
BASIC FILE HANDLING 

• The writing of a Menu to summarize program functions 

• Screen format for data entry 

• The creation of a basic record 

• The FIELD and LSET routines for buffer preparation 

• Disk storage of random access records 

• Changing or editing stored records 

• The LPRINT capability from disk using three different formats 

• Sorting the random file 

• Searching by name or key field 

• Search in "next" or "prior" fashion 

• Purging deleted records 

• Using disk file data for calculations 

• Future expansion of data fields 

• Using flags to prevent program crashes 

• Date setting, printer on-line and many other routines to make a pro- 
gram run like a commercially written program 

VOLUME I $29.95 

Option Vol. I Program Disk 

TRS-80 Model l/lll $28.50 

TRS-80 Model II $32.50 



Volume II 
ADVANCED FILE HANDLING TECHNIQUES 

Relational database programming 

Comprehensive self-balancing accounting system with printouts 

Hashcoded data file manipulation — (probably the fastest method of 

data retrieval). Hashing the input key and recovery method explained 

Span-blocking techniques allow creation of records longer than 256 

bytes without wasted space 

Blocking & Deblocking 

Shell-Metzner sort 

In-place screen editing 

Recovery of deleted record space 

Alpha-index record retrieval 

Fast machine language/BASIC sort 

Linked list record structure and sort-merge, deleted record removal 

and file reorganization 

Multi-kev file reorganization and record searching 



VOLUME II $29.95 

Optional Vol. II Program Disk 

TRS-80 Model l/ll/lll $49.95 
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ORDER LINE 

(OUTSIDE OF N Y STATE) 







DEALER INQUIRIES WELCOME 



(800) 431-2818 




HOUR \^^ 
ORDER LINE 



(914) 425-1535 



30-DAY MONEY BACK GUARANTEE 



•" ALL PRICES A SPECIFICATIONS SUBJECT TO CHANGE •" 
DELIVERY SUBJECT TO AVAILABILITY 

ADD $3 00 FOR SHIPPING IN UPS AREAS 
* ADD * ADD S4 00 FOR C O D OR NON UPS AREAS 

ADD SS 00 TO CANADA & MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U S 
CANADA & MEXICO 



The GAMER'S CAFE 



by Rodney Gambicus 



Notes 

from New 

England 



(Editor's note: With regret and some 
embarrassment, we must report that the 
Gamer's Cafe did not submit a column 
this month. We're not exactly sure why, 
since Rodney and Mad Max were right 
here in New Hampshire under our 
watchful eye. They disappeared myste- 
riously one day without even a good- 
bye, leaving behind only a photo of 
some guy smashing a computer and a 
disk marked "Misc. " That disk con- 
tained, among the clutter of half- 
finished programs and bizarre bits of 
prose signed "T. DeQuincey" (we 
suspect that Max wrote them, owing to 
the many references to the Woodstock 
Nation and Studebakers), a Scripsit file 
entitled "Notes, " which we suspect 
comprised the core of the December 




column. Those scrawls (and it's not 
easy to scrawl in Scripsit) are presented 
here, minus, of course, the many spelling 
errors and coffee stains.) 

Whine, whine, whine! It seems like 
everybody is accusing everybody else of 
cheating on Big Board games. We're 
going to need the Magnificent Seven to 



clean up the mess. "It's no fun reading 
the Big Board mail anymore," says 
Max. 

For starters, Scott Trent challenges 
Jer McLanahan's 261 in Space Warp. 
"If you have ever played that game one 
of the first things you will notice is that 
the highest possible score is 255," he 
claims. "The other thing is that it is very 





The Big Board 


Jungle Boy 


851,900 


Zagros Sadjadi. Petaluma, CA 








Killer Gorilla 


28,312 


Alex Poon. Baton Rouge, LA 


Apple Panic 


287,620 


Mary Phinney, Siockbridge, VII 


Laserball 


72.530 


Neil Matson, Panama City, FL 


Arex 


138.780 


Rob Mitchell, Peterborough, NH 


Laser Defense 


1,504.610 


Greg Samson, Loudonville, NY 


Assault 


97.457 


Zagros Sadjadi, Peialurna, CA 


Leaper 


144,500 


Tommy Seniuk, Vcgreville, Alta. 


Astroball 


317.240 


Stefan Kunze, Vlocrs. W. Germany 


Lunar Lander 


15,100 


Brent Lewis, Long Valley, NJ 


Attack Force 


1.732.820 


Dave Smith. Raleigh. NC 


Mad Mines 


10.220 


Gorman Miller. Titusville, FL 


Bable Terror 


8.857 


Mad Max 


Martian Patrol 


30,4% 


David Schwartz, San Jose, CA 


Barricade 


17.520 


Troy Scrapchansky, Uncasville. CT 


Meteor Mission 2 


119,750 


Bob Brown. Dallas. TX 


Caterpillar 


362.883 


Alvah Werner, New Albany. OH 


Missile Attack 


44.000 


Raimo Hansen, Mesa, AZ 


Centipedes 


94.836 


Belinda Chron, Tempe, AZ 


Monster Invaders 


32,620 


Troy Scrapchansky. Uncasville, CT 


Chicken 


12.035 


Noble Chowchuvech, Demarest, NJ 


Olympic Decathlon 


10.278 


Adrie van Geffen. Rotterdam. Netherlands 


Clash 


174.300 


Zagros Sadjadi, Petaluma, CA 


Outhouse 


1,000,000 


Kyle Hoyt, Titusville. FL 


Convoy 


34.770 


Rick Sayre. Stockton. CA 


Panik 


85,075 


Mark Owens. Houston, TX 


Cosmic Fighter 


806.280 


Robert Newman, Stoney Creek, Ont. 


Penetrator 


585.460 


David Schwartz, San Jose, CA 


Crazy Painter 


l.us-.ou) 


Mike Beebe. Sacramento, CA 


Planetoids 


56,450 


Carl Pflanzer. Gillette, NJ 


Cyborg 


317.000 


Robert Cavin. Laredo, TX 


Rear Guard 


195,240 


John Hope, Kingston, Ont. 


Danger in Orbit 


69.640 


Steve Sustacek, Danube. MN 


Robot Attack 


143,250 


Mark Fertig, North ville. Ml 


Defense Command 


128.230 


Bette Dufraine. Bolton, CT 


Sea Dragon 


610,180* 


Robert Fitzwilliam. Houston, TX 


Demise/ Defend 


165.000 


David Russell, Ardrossan, Scotland 


Sky Sweep 


1,000,540 


Tommy Seniuk, Vcgreville. Aha. 


Demon Seed 


103.160 


Markus Blum, Ludwigshafen, W. Germany 


Space Castle 


69,750 


Rick Sayre, Stockton, CA 


Desert Peril 


84.400 


Jay McLain, Claiskanie. OR 


Space Intruders 


14,030 


Ron Johnston, Emporia, KS 


Devil's Tower 


25.700 


Rick Sayre, Stockton, CA 


Space Warp (Level 8) 


261 


Jer McLanahan, New Canaan, CT 


Dungeon Escape 


6,531 


Donald Tindall, Littleton, CO 


Stellar Escort 


625,000 


Kevin Josephson. Chilliwack, B.C. 


Flying Saucers 


2.186 


Stuart Lory, Victoria, B.C. 


Super Nova 


2,138,710 


Mark Fertig, North ville. Ml 


Fortress 


515.925 


Greg Samson, Loudon ville, NY 


Swamp Wars 


59.130 


Farhad Abrishami, Silver Spring, MD 


Frogger 


400.900 


Shawn Roberts, Oklahoma City, OK 


Temple of Apshai 


390 


Carl Pflanzer, Gillette. NJ 


Galactic Empire 


1.850 


David Russell, Ardrossan, Scotland 


Time Runner 


89.479 


Mad Max 


Galaxy Invasion Plus 


1.600,058 


Shawn Lipman, Nelspruit, S. Africa 


Venture 


58,550 


Darren Cotter, Oceanside, CA 


Gauntlet 


58,360 


David Schwartz. San Jose, CA 


Voyager 1 


833 


Farhad Abrishami. Silver Spring, MD 


Ghost Hunter 


41,190 


John Kane, Nelson, N.Z. 


Weerd 


61,180 


Tommy Seniuk, Vegreville, Aha. 


Insect Frenzy 


691.156 


Tommy Seniuk, Vegrevillc, Aha. 


Wild West 


15.400 


Gorman Miller, Titusville, FL 


Invaders from Space 


655,360 


Darren Cotter, Oceanside, CA 








Jovian 


148,300 


Greg Samson, Loudonville, NY 


•Expert mode: 339.0HO (David Smilh, Kingwood. TX). 



268 • 80 Micro. December 1983 



CQIYIPUTHQWICS 



C. 



• • EVERYTHING FOR YOUR TRS^O™ • ATART" • APPLE 1 " • PET" • CP/M T " • XEROX" • IBM"* • OSBORNE^ 

• TRS80 is a trademark of the Radio Stuck Division of Tandy Co«p. • * ATARI is a trademark of Atari Inc. • 'APPLE is a trademark of Apple Corp. • • PET is a trademark of Commodore 
' CP/M it a trademark of Digital Research 'XEROX is a trademark of Xerca Corp - • KM is a trademark of IBM Corp * OSBORNE is a trademark of Osborne Corp 



BUSINESS PAC 100 




+ 30-Doy tnoney 



100 ReadyTo-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control... ..Payroll .Bookkeeping System. Stock Calculations. 

Checkbook Maintenance.... Accounts Receivable.. ...Accounts Payable..... 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RCJLE78 Interest Apportionment by Rule of the 78* 

2 AMfiCI 1 Annuity computation p rogr a m 

3 DATE Time between dates 

4 DAYYEAR Day of yew a particular dote fait on 

5 LEASBNT kiterest rate on lease 

6 BREAKEVM Breakeven analysis 

7 DEPRSL Straightirne depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

tO DEPRDDB Double declining balance depre ci ation 

1 1 TAXDEP Cash flow vs. depreciation tables 

12 CHECK2 Prints NEBS checks along with daily register 

1 3 CHECKBK1 Checkbook mainten a nc e program 

14 MORTGAGE/A Mortgage amortization table 

15 MULTMON Computes time needed for money to double, triple. 

16 SALVAGE Determine s salvage value of an investment 

17 RRVAPJM Rate of return on i n ve stm e nt with variable inflows 

1 8 RRCO NST Rate of return on investment with constant inflows 

19 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWITH Equal withdrawals from investment to leave over 

24 SiMPDISK Simple discount analysis 

25 DATEVAL Equivalent & rwneourvatent dated values for obllg. 

26 AMNCIDEF Present value of deferred annuities 

27 MARKUP % Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONOVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Schotes options analysis 

32 STOCVALl Expected return on stock via discounts dividend s 

33 WARVAL Value of a warrant 

34 BOMDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection model-i.e. what stocks to hold 

38 OPTWR1TE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADINF Value of additional information 

44 UTUTY Derives utility function 

45 SIMPLEX Linear programming solution by si mple x method 

46 TRAMS Transportation method for linear p rogr am ming 

47 EOQ Economic order quantity inventory model 

48 QUEUE1 Single server queueing (waiting line) model 

49 CVP CostMifume-proOt analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQCJOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUECJECB Cost benefit waiting line analysis 

56 NCFAflAL Net cashflow analysis for simple investment 

57 PROFIND Profitability index of a project 

56 CAP1 Cap Asset Pr Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DtSCBAL True rate on discounted ban 

62 MERGANAL Merger analysis computations 

63 F1NRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRJHDLAS Laspeyres price index 

66 PRBHDPA Paasche price index 

67 SEAS1ND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving a v era g e trend 

70 FUPRMF Future price estimation with inflation 

71 MALPAC Mailing list system 

72 LETWRT Letter writing system-Inks with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 TIMECLCK Computes weeks total hours from timectock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Gener a t e invoice on screen and print on printer 

80 "NVENT2 In memory inventory control system 

81 TELDiR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return iddnii 

92 AUTOEXP Automobile expense analysis 

93 NSFLE Insurance potcy file 

94 PAYROLL2 In memory payrol system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Saleleaseback analysis 

99 RRCONVBD Investor's rate of return on convertabie bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



□ TRS-80 Cassette Version $99.95 

D TRS-80 (Mod-I or III), Pet, Apple 

or Atari Versions $99.95 

D TRS-80 Mod-ll, IBM, Osborne 

and CP/M Versions $149.95 

ADO 13 00 FOR SHIPPING IN UPS AREAS 

ADO 14-00 FOR C.O.D. OR NON-UPS AREAS 

ADD 15.00 TO CANADA AMD MEXICO 

ADD PROPER POSTAGE OUTSIOC OF U.S.. CANADA AND MEXICO 
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The GAMER'S CAFE 



hard to play Space Warp if you have 
other games." Maybe that's why 261 
has stood for so long. 

Then there's this cranky letter from 
Greg Samson of Loudonville, NY. He 
doesn't trust anybody, including the 
high-score holders for Martian Patrol, 
Cosmic Fighter, and Robot Attack. 
And he openly accuses Venture king 
Darren Cotter's 58,550 of being phony, 
charging that you can't get any more 
than 57,500. That Samson is going to be 
a real popular guy; I hope he can keep 
his kneecaps intact. 

Max says all this cynicism concerning 
high scores is because of the 1968 Dem- 
ocratic Convention. He walks around 
the 80 Micro offices shouting, "The 
whole world is watching! The whole 
world is watching!" 

I was hoping this vacation would do 
him some good, but I don't know. 



***** 



The one-line games keep trickling in. 
Most of them come from Australia, 



where the magazine seems to arrive 
three to five years late. I think I could 
swim there with a copy in my teeth and 
beat- the overseas mail. 



***** 



The van finally broke. We've got it 
down at Roland's Exxon for a time-up. 
Max wanted to replace the plugs with 
pennies, but I think that only works in 
fuse boxes. 



***** 



I tore Max away from Convoy long 
enough to get his opinion on dropping 
some more scores from the Big Board. 

"PURGE," he grunted. 

"Dig Out (Y/N/Q)," 1 said. "Y." 
"Paddle Pinball (Y/N/Q)." "Y." 
"Scarfman (Y/N/Q)." "Y." 

You have to know how to speak 
Max's language if you want to get 
through to him. 




Mtl M rilNTE* 

upper lower case &. graphics caoabillty 
i bidirectional. 132 character line 
' RS232. 120 cps. ASCII. 7 x 9 dot matrix 
' built In self test 
i sprocket feed. ZWt" to I 5" width 

> I 10. 300. 1200 bps 

1 keyboards available (limited quantity) J75 00 

> shipping wt 80 lbs 

1 J 500 00 f o.l> our warehouse 




CENTRONICS 1 01 A 

1 64 cps ASCII 9x7 dot matrix 

tractor feed (ad|ustable to I 5") 

Centronics parallel 

Interfaces available (call for prices) 
i shipping wt. I 20 lbs. 
i (229.00 upper case only 
i J350.00 ul case &. graphics 
i all prices fob our warehouse 




CONtAC MONITOR 

9 Inch. P4 phos 

80 x 24 characters 

composite video in (RCA phono) 
1 controls In Iront panel 
1 shipping wt 30 lbs 
■ J4S 00 ( o.b our warehouse 




S£l£Cr#0A//C$ 



I 229 S. Napa St. Philadelphia PA 1 9 1 46 
Phone: (2 I 5) 468-4645»(2 I 5) 468-789 1 



— 



SHUCAIT 8" DISK DRIVE 

• SSDO 

• Model 800 2 

• requires I I 5 VAC (24VDC * 5VDC - 5VDC) 

• $140 00 (new) 

• 1 1 00 00 (used) limited useage 

• shipping wt 16 lbs 

• all prices f o b our warehouse 



Pa. residents add 6"» sales tax All prices 
l.o.b. our warehouse All products carry a 
replacement warranty All merchandise ac 
curate as to deception to the best of our 
knowledge 



Confessions of an Honest Gamer: 
Jack Martin of Somis, CA, sent in a 
score of 999,970 in Scarfman with the 
comment, "I feel honor bound to men- 
tion that there is a weird mode in Scarf- 
man which enables one to obtain an un- 
limited number of additional men and 
that is the way in which these high 
scores are obtained. Playing with the 
customary number of men, the highest 
score obtainable is probably less than 
400,000." 

Confessions of a Sneaky Kind of 
Guy: James Griffith of Searcy, AR, re- 
ports 910,980 and says, "This score was 
achieved by a secondary methodology 
which I prefer not to disclose yet." 

"Well, nah-nah to you, too," Max 
commented snidely. 



***** 



Today, I found a blueberry on 
Mount Monadnock the size of a vollev- 

ball. 

***** 

Max is nuts about Computer Shack's 
Convoy. He particularly likes the sui- 
cidal paratroopers. They run back- 
wards into your truck and then explode. 

"This is almost as good as a George 
Romero movie," he keeps saying. 

***** 

Maybe we should retire Lunar Land- 
er, too. 

"In the [September] Gamer's Cafe 
you stated that the final disgrace will be 
in the cheating of Lunar Lander," 
writes Seth Eliot of Brooklyn, NY. 
Then he proceeds to give instructions on 
refueling: 

On the Model I, exit the game by 
pressing Break and Reset, hit Enter at 
the memory size prompt, type in SYS- 
TEM, and then type in /33767. 

"It seems that this memory location 
refuels you without any damage to the 
game," writes Seth. "Sorry, Max." 

"Not half as sorry as I am," Max 
grunted. 

***** 

"It's obvious to me that you have a 
severe problem with very high scores in 
the Gamer's Cafe," writes Mark 
Schmidt. "Why don't you print the 
scores players get by just using one 
man?" 



270 • 80 Micro, December 1983 



The GAMER'S CAFE 



I thought it was an interesting sugges- 
tion, but Max was less than excited. 

"Sure," he said. "Credibility? Veri- 
fication? No problems." 



***** 



Shawn Lipman's father called Peter- 
borough twice in one day to report 
Shawn's Galaxy Invasion Plus score. 
We don't take high scores over the 
phone too often (partly because the van 
doesn't have a phone), but the Lipmans 
live in Nelspruit, South Africa. Wonder 
how long it takes the mail to get there? 



***** 



Max is depressed. First it was the Big 
Board mail. Then Mary Schmidt of 
Stockbridge, MI, wrote, "Tell Mad 
Max to watch out; I'm within a few 
points of knocking him off his Bable 
Terror perch." 

"Oh, yeah?" Max shouted. "Oh, 
yeahr 

Finally, to end the week, we were 



about to post Max's high score in Con- 
voy when Rick Sayre of Stockton, CA, 
blew him out with 34,770. 

"Oh, yeah?" Max mumbled meekly 
as he slumped over the keyboard. 



***** 



The guys at Wally's Hardware in 
Spencer, MA, sure know how to have a 
good time. 

"These people are strange," Max 
marveled as he looked at a photo of 
some fellow smashing a Model III with 
a large hammer. 

"When it comes to serious gaming, 
we employees at Wally's Hardware are 
real hard-core players," said Bob 
Noonan in the accompanying letter. 
"We wring out every point we can get, 
until the computer screams for mercy." 

If they're not playing games, Bob 
and Dave (the goofy stockboy) are re- 
formatting all of Wally's disks or copy- 
ing Galaxy Invasion on top of his ac- 
counts receivable program. 



"Don't tell Wally that Dave cut the 
cord off the plotter to fix Mrs. Archam- 
beault's lamp, 'cause he didn't feel like 
wiring in a new cord cap from stock," 
Bob added, "or that I chopped up his 
IBM/360 Assembly language textbook 
to show a customer how a gasoline- 
powered Weed-Wholloper worked." 

"These people are really strange," 
Max repeated. 

***** 

Max is restless. He wants to hit the 
road again. I've suggested that we go 
down to Boston to visit Mercedes while 
she works on her top-secret project at 
MIT. 

The van is fixed. The guy at Roland's 
called it a miracle. He suggested that we 
change the oil at least once every 50,000 
miles. 

I don't know if I'm going to have 
time to write the December column. 
Oh, well — I'm sure the people at 80 
Micro will figure something out. ■ 
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Aerocomp's 
Proven 
Best-By Test! 
The 



it 



ii 



Double Density Controller 

• Technical Superiority 




At last! A double density controller for Model I with higher probability of jata recovery than with any other 
DOUBLE density CONTROLLER ON the market TODAY! The "DOC' from Aerocomp. No need to worrv about the pro- 
blems that keep cropping up on existing products, aerocomp s new analog design phase lock loop data separator 
has a wider capture window than the digital types currently on the market. This allows high resolution data center- 
ing. The finest resolution available with digital circuitry is 125 ns (nano seconds). The "DDC analog circuit allows in- 
finately variable tuning. Attack and settling times are optimum for 5-1/4 inch diskettes. 
The units presently on the market use a write precompensation circuit that is very "sloppy". Board to board 
tolerance is extremely wide - in the order of + 100 ns. The DDC is accurate to within + 20 ns. 
The bottom line is state of the art reliability! 

• Test Proven 

Tests were conducted on AEROCOMP'S "DDC ". Percom's Doubler A '* and "Doubler ■"* and LNW's "LNDoubler"** using 
a Radio Shack TRS80* * * Model I, Level 2, 48 K with TRS80 Expansion interface and a Percom TFD100 * disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion interface. 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks. The 6DB6 
pattern was chosen because it is recommended as a "worst case' test by manufacturers of drives and diskettes. An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80, version 
1.0, with Double zap. version 2.0. Unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown in the table. 



* Features 

TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors. (3) single density com- 
patibility and (4) simple plug-in installation. Compatible 
with all existing double density software. 



• TEST RESULTS * 



SUMMER SPECIAL $99.00 

for the Best DD Controller on the market. 



MFR & PRODUCT 


SECTORS LOCKED OUTiavo 


AEROCOMP "DDC 





PERCOM DOUBLER II" 


18 


PERCOM DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



"DDC" and LDOS 
•DDC" and Newdos 80 



$169.95 
$179.95 



Note: test results available upon written request. All tests conducted prior to 8-25-81 

Aerocomp* 14 day money back guarantee applies to hardware only. 

Specials will be prorated. Shipping $2 00 inCont. U.S. See opposite page (or details. 

Add S4.00 shipping & handling for DDC A DOS. 



Data Separators 

Tbe advances tnat make the "DDC" great are incorporated in the new AEROCOMP Single Density Data Separator CSDS") 
and Double Density Data separator (' DDS "). 



• Has your original manufac- 
turer left you holding the bag? 

If you already own a Percom "Doubler A", "Doubler II" or LNW 
"LNDoubler" or Superbrain. the AEROCOMP "DDS" will make it right. 
Look at the test results: 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT DDS 


WITH "DDS" 


PERCOM DOUBLER II 


18 


1 


PERCOM "DOUBLER A 


250 





LNW "LNDOUBLER" 


202 






• "DDS" $49.95 

(Use 1791 chip from your DO Con- 
troller) 

^ DDS with disk controller 
chip Included $ / y.i/5 

• Disk controller 

chip $34.95 

(Shipping $2.00 Cont US - see opposite 
page for details) 



Note: Same test procedures as DDC". 

* Trademark of Percom Data Co. 

* * Trademark of LNW 

* * * Trademark of Tandy Corporation 



Plugs directly Into your existing 
Double Density Controller. 



Do you need a 
Single Density Data 
Separator? 

Trie Internal data separator In the 
WD1771 chip (R/S Expansion interface) 
is not recommended Oy WD for 
reiiaoie data transfer Do you have any 
of these problems Lost data, tracks 
locked out, Cf?C errors, disk retry? YOU 
NEED ONEI 

• "SDS" $29.95 

(For Mod. I; snipping $2.00) 



See opposite 

pageMMM 
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^ DISK DRIVES 

40 & 80 TRACK 

SINGLE & DOUBLE SIDED 




as low as 



$169 



PACESETTERS 

Aerocomp leads the way to the BEST value in 
disk drives on the market Quality, performance, 
reliability, warranty, service plus free trial - 
thaf s what you get from the leader. 
AEROCOMP 

BEST FEATURES 

* Fast 5 ms. track- track access 

* Single or double density 

* Easy entry door 

* "Flippy" feature allows read- write to the 
back of the diskette to cut media cost in 
half (MPI) 

* Disk ejector (MPI) 

* External drive cable connection 

(no need to remove the cover to hook up 
the cable) 

NEW! 



MODEL 
III & 4 

CONTROLLER 

and 

DRIVES 

Convert cassette Model III or 4 to disk Complete 
internal drive kits with 40 track SS drives 
(Tandon), Aerocomp disk controller board (will 
take up to 4 drives), power supply, mounting 
towers, all hardware & cables 

• DRIVE KIT (no drives) $199 

• ONE DRIVE SYSTEM $369 

• TWO DRIVE SYSTEM $539 

Shipping & handling $8 00 per system 

• AEROCOMP DISK CONTROLLER $119 

Shippmg & handling $2 00 per contrcKiet 

• MOUNTING KIT w/o Drives & Controller . . $99 

Shipping & handling $4 00 per kit 



COMPLETE DRIVES 

TRS80 Mod I & III, IBM PC & Tl 99/4A Power 
supply & enclosure. Specify silver or almond. 
5.25 inch 

• 40 track single side (Tandon) $199 

• 40 track SS "Flippy" (MPI) $239 

• 40 track Dual Head (either) $279 

• 80 track SS (MPI) $299 

• 80 track SS "Flippy" (MPI) $329 

• 80 track Dual Head (Tandon) $379 

Shipping & Handling $5 00 pet drrve 



BARE DRIVES 

Internal drives for TRS80 Mod III, IBM PC, Tl 
99/4A 5 25 in (controller required) 

• 40 track Single Side (Tandon) S169 

• 40 track Dual Head (either) S249 

• 80 track SS (MPI) S269 

• 80 track Dual Head (Tandon) S339 

ShippfiQ & Handling $4 00 Per Drive 



8 INCH DRIVES 

Drive expansion box complete with power supply 
and fan. Tandon Slimline. 

• Two (2) 8" Single Side $699 

• Two (2) 8" Double Side $849 

• 8" Bare Slimline, SS $260 

• 8" Bare Slimline, DS $375 

Stappng * Handing $5 00 Per Drive 



MODEL I STARTER PACKAGE 

One 40 track SS drive, 2-drive cable, 
TRSDOS 2.3 disk & manual, freight & 
insurance (Tandon) 



$249 



MISCELLANEOUS GOODIES 

• TRSDOS 2.3 disk & manual $20 

• LD0S(Mod I or III) S119 

• NEWDOS/80, 2 (Mod I or III) $129 

• Diskettes (10 in library box) $23 

• 5.25 " Drive Power Supply & case $59 

• 2-Drive Cable $24 

• 4-Dnve Cable $34 

• Extender Cable $13 

Shjooma & Handhno $2 00 



PERSONAL CHECKS 
WELCOME 

We'll be happy to accept your personal check with 
any mail order without any shipping delay 



FREE TRIAL OFFER 

Use your AEROCOMP drive for up to 1 4 days. If you 
are not satisfied lor ANY REASON (except misuse 
or improper handling), return in the original shipping 
container for a full purchase price refund. Applies to 
hardware only Sorry, we cannot refund on software 
We have confidence in our products and we know 
you will be satisfied. 

WARRANTY 

We offer a six months warranty on parts and labor 
against defects m materials and workmanship. In 
the event service becomes necessary for any 
reason, our service department is fast friendly and 
cooperative. Our goal is 48 hour turnaround on all 
warranty or repair drives! 

100% TESTED 

AEROCOMP disk drives are 100% subjected to 
burn- m and bench test We even enclose a copy of 
the test check list signed by the test techniciaa 
with each drive AEROCOMP means reliability! 

ORDER NOW! 

Order by mail or call TOLL FREE TO THE NUMBERS 
BELOW Please note toll free lines will accept orders 
only We accept VISA or MASTERCARD Be sure to 
include card number and expiration date We will not 
charge your card until the day we ship Order by mail 
with credit card or send check or money order 
Personal checks welcome No delay Order COD No 
deposit required but all COD's will arrive cash, 
certified check or money order only. We'll send a 
card showing the exact COD amount before your 
shipment arrives. Shipping is not included in the 
prices shown Texas residents add 5% sales tax 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888. OPERATOR 24 

FOR VISA MASTfRCHARGt COD ORDERS 
Col. lom, o dial (800) 852 7777 Operator 24 Alaska 
ond Howon d.ol (800) 824 7919 Operator 24 
TOLL FREE LINES WILL ACCEPT ORDERS ONLVI 

For information only call (214) 339-8324 
For TECHNICAL ASSISTANCE call (214) 337-4346 



Dealer inquiries invited 



AE^CCGfilP 

Redbird Airport, Bldg. 8 
P.O. Box 24829 
Dallas, TX 75224 " 82 



^ See Usl ol Advertisers on Page 291 
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The Christmas Pageant 



by Richard Ramella 



The best Christmas pageant I 
ever saw was in the third 
grade. Icky Vannoy played 
Santa Claus. A serious actor, he 
insisted on filling his pillow case 
sack with real toys. He could 
hardly lift it. 

All he had to do was come 



running out when the kids on 
stage yelled, "Santa is here!" 
Out he ran from stage left, and 
the weight of his sack propelled 
him straight ahead for a quick 
exit off stage right. He kept 
going. 
Icky went home and didn't 



100 REM * YULE GREETING * TRS-80 LEVEL II BASIC 

110 REM * FUN HOUSE * DEC. '83 * RICHARD RAMELLA 

120 CLS 

130 A=RND(1022) 

140 IF A>133 AND A<138 OR A-142 OR A=143 OR A=198 OR A-199 OR A=20 

1 OR A=202 OR A=206 OR A=207 OR A-262 OR A-263 GOTO 130 

150 IF A=266 OR A-267 OR A-270 OR A-271 OR A>273 AND A<284 OR A-32 

6 OR A=327 OR A=331 OR A=332 OR A-334 OR A=335 GOTO 130 

160 IF A=338 OR A=*339 OR A=346 OR A=347 OR A-390 OR A=391 OR A>395 

AND A<400 OR A=402 OR A=403 OR A-410 OR A=411 GOTO 130 
170 IF A>413 AND A<424 OR A=466 OR A=467 OR A-474 OB A=475 OR A=47 
8 OR A=479 OR A>529 AND A<540 OR A>541 AND A<548 GOTO 130 
180 IF A-554 OR A=555 OR A=606 OR A-607 OR A-618 OR A=619 OR A>669 

AND A<680 OR A=682 OR A«683 OR A=746 OR A=747 OR A>809 AND A<820 
GOTO 130 

190 PRINT § A,CHR$(191); 
200 GOTO 130 
210 END 

Yule Greeting— Level II. 



100 REM * YULE GREETING * TRS-80 COLOR BASIC 4K 

110 REM * FUN HOUSE * DEC. '83 * RICHARD RAMELLA 

120 CLS(0) 

123 GOTO 130 

125 PRINT 3 A,CHR$(143+48) ; 

130 A=RND(510) 

140 IF A-67 OR A=68 OR A-72 OR A-99 OR A=101 OR A=104 OR A=131 O 

R A=134 OR A=136 OR A>137 AND A<144 GOTO 125 

150 IF A=163 OR A-167 OR A=168 OR A=170 OR A=175 OR A=195 OR A=2 

00 OR A-202 OR A=207 OR A>208 AND A<215 GOTO 125 

160 IF A=234 OR A=239 OR A-241 OR A>265 AND A<272 OR A>272 AND A 

<276 OR A-280 OR A=305 OR A-312 GOTO 125 

170 IF A>336 AND A<343 OR A=344 OR A=376 OR A>407 AND A<414 GOTO 
125 

180 PRINT $ A,CHR$(207) » 

190 GOTO 130 

200 END 



Yule Greeting— Color Basic. 



come back to school. Ever. I 
think he moved to another state 
during Christmas vacation. 

But you're not here to listen 
to old third grade stories. You 
want to be in the Fun House 
Christmas Pageant. 

This month I have a secret 
Yule Greeting program and A 
Talk with Santa, each with sep- 
arate Level II and Color 
listings. 

I also have something else. 
Like Santa, I've been getting let- 
ters. Some Fun House visitors 
don't believe I know how to 
program in Extended Color Ba- 
sic. Well, it's not true. I learned 
how last night and I wrote St. 
Nick Portrait to prove it. 

So far, I've tried to make as 
many Fun House programs as 
possible available for as many 
TRS-80 models as possible. 
With the introductions of the 
Model 100 and the Micro Color 



The Key Box 

Model I and III 
Color Computer 
4KRAM 
Level 11 Basic 
Color Basic 
Extended Basic 
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DISK DRIVE 

ANALYSIS PROGRAM 

. . . A UNIQUE APPROACH TO DISK RELIABILITY! 



Digital D-ik Dlagnodic v3 



'9M JtMSnlimi, Lid 



Entar Salactlon - 




Q- Outck *MI 

A - Analog Alignment Aid 

I kKjai Hoi* Timing Olap'ay 

S S p u n Oiaptay 

R - Radial Alignment Oiaplay 

Z - Aiimulh Rotation Otaplay 

H - Hvalaiasla Blui 

* - End Program 



Select any one of seven tests to perform 
preventive maintenance or to isolate problems. 
Simple, single-letter commands make DDA easy 
to use! Use DDA to align the head, adjust the 
index hole detector, or adjust the speed. 



Use the DDA Radial Alignment Test to check the 
head alignment of your drives. No need for an 
oscilloscope or other expensive test equipment! 




Check the motor speed of your drives. Or, you 
can even use the Speed Test to adjust the drive 
speed. No need for any test equipment! 



PROTECT YOUR DATA. 

Now you can make sure your data is 
being recorded properly by the use of 
the revolutionary Disk Drive Analysis 
Program (DDA)! 

The Disk Drive Analysis Program from 
J & M Systems, tests your disk's perfor- 
mance and calibration without any 
additional equipment! It measures your 
disk's performance and displays it on 
your screen. / 



Use the Quick Test to quickly and automatically 
test five of the most important performance 
parameters of your drive. Monitor your drives 
for long term drift. Isolate problems quickly and 
automatically! 

microcomputer. You can even adjust drive 
alignment while watching the display! 

Spot problems BEFORE they endanger 
your data! If you own a disk drive, you 
NEED the Disk Drive Analysis Program! 

Now Available For The TRS-80 Microcomputer. 
) & M SYSTEMS IS THE DRIVING FORCE! 



This is the most comprehensive disk diag- 
nostic program available for your TRS-80 



J £ M SYSTEMS, LTD. ,,101 
137 UTAH NE • ALBUQUERQUE, MM. 87108 505 265 1 501 



See List ot Advertisers on Page 307 
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Have a merry 
computer and a 
happy software. 



PRINTERS 

STAR ViCRONlCS GEMINI 10 SCAu 

C ;T0M M040CPS P'S 1250 00 

C' T 0H 8510 PROWRlTEfl PARALLEL 399 00 

C-ITOH 1550 PARALLEL 699.00 

EPSON . CALL 

IDS 480 MiCROPRlSM. 489 00 

BOOKS 

CUSTOM I/O MACHINE LANGUAGE 24 85 

HOW TO 00 IT ON THE TRS-80 22 95 

MICROSOFT BASIC DECODED 24 85 

MICROSOFT BASIC FASTER & BETTER 24 85 

THE CUSTOM TRS-80 24 85 

THE BASIC COOKBOOK 5 85 
TRS DOS 2 3 DECODED 

TRS-80 OISK & MYSTERIES 16 85 

30 COMPUTER PROGRAMS FOR THE HOMEOWNER IN BASIC 8 95 
101 PROJECTS FOR THE Z80 ...................... 15.50 

DISKETTES 

SCOTCH 3M 

S S D DEN 40 TRK tO >6 sectors 23 50 

S D DEN 40 TRK 10. 16 sectors .36 50 

VERBATIM MD 52501 10. 16 26 50 

BIB DiSK CLEANER only 9 80 

DISKETTES STORAGE 

iVt " PU 2 50 

FLIP ft RU 19 95 

TRS CP/M FROM PICKLES & TROUT 

MOD II. 16 12 COMPATIBLE 185 00 

LNW MOD II COMPUTER w/CP/M 2 2 JCAIL 

LNW EXPANSION INTERFACE .345 00 

LNW 5/8 OOUBLER w/DOS 3 5 181 00 

PEHCOM DATA SEPARATOR .27 00 

ISOLATORS 

ISO-2 6 SOCKET 49 95 

DG 115S6-S0CKET SWITCHED ....... 30 50 

TRS HARDWARE 

MODEL III 04SK DRIVE KITS Contain Tandon Disk Drives ,wd Micro Mainframes 4 Drive ControHer 
with Power Supply 

KIT 1 2 TAND0N'"1OO-1 & FD3C 638 00 

KIT 2: 2 TANDON™ 100-2 ft F03C 773 00 

MODEL I. Ill SOFTWARE 

DOS PLUS 3 5 MOO M (I 99 00 

ELECTRIC WEBSTER 11850 
FLOPPY DOCTOR. MOD III 

1 DOS Ver 5 1 MOD I or III. 99 00 
MAXI MANAGER Ver B w/UTlUTY 118 00 
MAXI MANAGER UTILITIES ONLY .44 95 
MlCROCLlNlC MOO I . 24.50 
OMNITERM, SMAATERM Pkg/MOO I / III . 7995 
NEW DOS 80 Ver 2 2 122 50 
PROSOFT NEWSCRIPT Rev 7 

a/ Mail Labels MOD I & ID 105.00 

THE HOME ACCOUNT AM .59.50 

ZORLOFF II. . 63.50 




^•IPUTER 
PRODUCTS 

31304 VIA COLINAS "'* 
WESTLAKE VILLAGE, CA 91362 



InLosAngetes: 
(213)706-0333 
By Modem: 
(^9911160^ 

'"call our modem une 

I FOR WEEKLY SPECIALS. 
I ' 



MODEL 4 OWNERS 

CONVERT your MODEL l/lll 

PROGRAMS TO RUN ON MODEL 4 



Do you have a lot of time and money invested 
in Model l/lll software, well now you can 
convert Model l/lll BASIC programs to Model 4 
with CONVERTR. 

CONVERTR will eliminate unnecessary spaces 
and insert all required spaces in your BASIC 
programs. CONVERTR will identify lines 
which contain keywords not supported by 
Model 4. CONVERTR will identify lines and 
keywords which the Model 4 handles differently. 
CONVERTR is menu driven and includes an 
option to list your program and error table on 
your printer. 

CONVERTR comes on a disk and includes an 
instruction booklet on How to Convert your 
BASIC programs. 



CHECK - MONEY ORDER 

COD - ^^ - J© 

CONVERTR 

1 DRIVE SYSTEM - 89.00 

2 DRIVE SYSTEM - 79.00 



ADEL COMPUTER MART 

DEPT 10 BOX 195 -356 
HARTLY. DE 19953 

PHONE 5 pm-9pmM-F 
9-5 Sat (302)492-8463 



,-^Xaia vD<&tti9^0?2B2l SSVUaJSB^ 







32 E. Main Street. Milan, Michigan 48160 

*SALE THIS MONTH ONLY* 
TRS-80" MODEL IV 100% R/S 
** 1575.00** 



CORDLESS PHONE 
,\1 | ^CONTEST * 

Ml (313)439-2474 



satisfaction asiu'mc* - vour stMtaoan it auured by o«f 30 o*y gutranwa en ati wrawam producti we sm 
ho rttunos attar 30 days Ail manuUclufs Httrwfon i'< honored By manufacturers DeWcme software wW oe 
ropucM I'M ammo, in* first 30 diyt howtvtr no refunds or excnanget on software Prool ol aurchase requ«ed 
An returns roust do lulhonitd in advance 





WHY BUY FROM COMPUTER EXPRESS 7 ? 

5YEARS IN MICRO-MAILORDER BUSINESS 
FULL LINE COMPUTER EQUIPMENT CO. 
100% GUARANTEED QUALITY PRODUCTS 
SPECIALIST IN COMPUTER SET-UP 
TRADE-IN'S WELCOME 
EXTENDED WARRENTY PLAN 
SERVICE & SUPPORT 
All AROUND NICE FOLKS' 

Radio /hack* 

DEALER 
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100 


REM * A TALK WITH SANTA * TRS-80 LEVEL II BASIC 


110 


REM * FUN HOUSE * DEC. '83 * RICHARD RAMELLA 


120 


CLS 


130 


CLEAR 1000 


140 


N-0 


150 


FOR A=l TO 3 


160 


PRINT "R"; 


170 


FOR B=l TO RND(30) 


180 


PRINT "-I"; 


190 


NEXT B 


200 


PRINT "NG" 


210 


FOR T=l TO RND(1000) 


220 


NEXT T 


230 


NEXT A • 


240 


PRINT STRINGS (60,"*") 


250 


PRINT "HELLO... THIS IS THE NORTH POLE: LEON THE ELF HERE..." 


260 


PRINT 


270 


INPUT "TO WHOM DO YOU WISH TO SPEAK" ;A$ 


280 


IF LEFTS (A$, 5 )»" SANTA" GOTO 380 


290 


N«N+1 


300 


IF N-5 GOTO 350 


310 


PRINT A$" IS NOT HERE"} 


320 


IF N>1 THEN PRINT " EITHER." ELSE PRINT "." 


330 


INPUT "ANYONE ELSE YOU MIGHT WANT";A$ 


340 


GOTO 280 


350 


INPUT "THERE'S A GUY NAMED SANTA CLAUS HERE. WANT TO TALK TO H 


IM" 


A$ 


360 


IF LEFT$(A$,1)-"Y" GOTO 380 


370 


PRINT "THEN YOU MUST HAVE A WRONG NUMBER. TOO BAD... IT'S SO N 


EAR 


+STRING$(6," ")+"CHRISTMAS...": END 


380 


CLS 


390 


PRINT "HANG ON. I'LL GO GET HIM." 


400 


GOSUB 810 


410 


CLS 


420 


PRINT £ 480, "HEY SANTA, IT'S FOR YOU." 


430 


GOSUB 810 


440 


CLS 


450 


PRINT "HE WILL BE RIGHT HERE." 


460 


GOSUB 810 


470 


CLS 


480 


GOSUB 810. 


490 


PRINT "HELLO .— HO-HO-HO — THIS IS SANTA CLAUS SPEAKING." 


500 


INPUT "WHO IS CALLING ME";A$ 


510 


CLS 


520 


PRINT "GOOD TO HEAR FROM YOU, "A$". WHERE DO YOU LIVE?" 


530 


INPUT B$ 


540 


CLS 


550 


PRINT "MY MY! CALLING ALL THE WAY FROM "B$"l" 


560 


PRINT 


570 


PRINT A$;", HOW OLD ARE YOU?" 


580 


INPUT Z 


590 


IF Z>12 THEN PRINT "AND YOU... ER. . . STILL BELIEVE IN ME. I'M 


HAPPY TO HEAR THAT." 


600 


PRINT "I SUPPOSE YOU WANT TO TELL ME WHAT YOU WANT FOR CHRISTM 


AS. 




610 


PRINT 


620 


N-l 


630 


INPUT "WHAT WOULD YOU LIKE";CS(N) 


640 


D-RND(5) 


650 


IF D»l PRINT "HMMM... "; ELSE IF D«2 PRINT "I SEE... * ELSE IF 


D= 


i PRINT "SO... "; ELSE IF D-4 PRINT "INTERESTING... "; ELSE PRI 


NT 


'WELL WELL... "; 


660 


PRINT C$(N) 


670 


PRINT 


680 


N-N+l 


690 


IF N<6 THEN PRINT "AND NOW... ": GOTO 630 


700 


CLS 


710 
T." 
720 


PRINT "I MUST GET BACK TO WORK NOW, BUT LET ME RECORD YOUR LIS 


GOSUB 810 


730 


PRINT 


740 


FOR X=l TO N-l 


750 


PRINT C$(X) 


760 


NEXT 


770 


PRINT 


780 


PRINT "SANTA CLAUS CANNOT EVER PROMISE, BUT I WILL SEE WHAT I 


CAN 


DO. GOODBYE TO YOU, "AS?." 


79(J 


PRINT "AND VERY HAPPY HOLIDAYS I" 


800 


END 


810 


FOR T-l TO 1000 


820 


NEXT T 


830 


RETURN 


840 


END 




A Talk with Santa— Level II. 



Computer (MC-10), I see it's a 
losing battle. 

As 80 Micro phases out cov- 
erage of the Color Computer, I 
must do the same. And as 80 
Micro invites CoCo owners to 
make the switch to sister 
publication HOT CoCo, I'm 
happy to do the same. For 
HOT CoCo I write a column 
called Elmer's Arcade, and its 
arcade games are a mix of Ex- 
tended Color Basic, Color 
Basic, and Micro Color Basic. 

Now let's go to the audito- 
rium for the Christmas 
pageant. 

Yule Greeting 

This greeting has separate 
listings for Level II and Color 
Basic. What is the Yule Greet- 
ing? It's one word, and that's 
all I'm saying. 

The only instructions for this 
program are to type RUN and 
tap the enter key. Then you 
watch. The secret greeting 
forms slowly. 

If you want to trim the tree 
while you wait, you have plenty 
o,f time. If you want to make 
this into a game, a group of 
people can watch. The winner is 
the first to recognize the 
greeting. 

In Level II Basic, the word is 
black on a white background. 
In Color Basic, it's red on a 
white background. 

A Talk with Santa 

Again, I have separate Level 
II and Color Basic listings. 
Look closely at line 100 to make 
sure you're entering the one for 
your computer. 

In both versions, the pro- 
gram starts with a ringing 
telephone. In Color Basic you 
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A Talk with Santa— Color Basic. 






100 


REM * A TALK WITH SANTA * TRS-80 COLOR 


BASIC 


4K 




110 


REM * FUN HOUSE * DEC. '83 * RICHARD RAMELLA 






120 


CLS(0) 








130 


CLEAR 250 








140 


DIM B(22) 








150 


DATA 193,3,193,3,193,6,193,3,193,3,193 


6,193 


,3,204 


3,176,3,1 


85,2,193,10 








160 


FOR A=l TO 22 








170 


READ B(A) 








180 


NEXT A 








190 


N-0 








200 


FOR A«=l TO 3 








210 


FOR B»l TO RND(15)+10 








220 


SOUND 215,1 








230 


NEXT B 








240 


FOR T«l TO RND(1000) 








250 


NEXT T 








260 


NEXT A 








270 


CLS 








280 


PRINT "HELLO, THIS IS THE NORTH POLE. 


LEON 


THE ELF HERE." 


290 


PRINT 








300 


PRINT "TO WHOM DO YOU WISH TO SPEAK?* 








310 


INPUT A$ 








320 


IF A$="SANTA" OR A$»"SANTA CLAUS" THEN 


440 






330 


N«N+1 








340 


IF N-5 GOTO 400 








350 


PRINT A$" IS NOT HERE"; 








360 


IF N>1 THEN PRINT " EITHER." ELSE PRINT "." 






370 


PRINT "ANYONE ELSE YOU MIGHT WANT?" 








380 


INPUT A$ 








390 


GOTO 320 








400 


PRINT "THERE'S A GUY NAMED SANTA CLAUS 


HERE. 


WANT 


K) TALK TO 


HIM?" 








410 


INPUT A$ 








420 


IF LEFT$(A$,1)="Y" GOTO 440 








430 


PRINT "THEN YOU MUST HAVE A WRONG 


NUMBER. TOO 


BAD... IT 


'S 


50 NEAR CHRISTMAS...": END 








440 


CLS 








450 


PRINT "HANG ON. I'LL GO GET HIM." 








460 


GOSUB 920 








470 


CLS 








480 


PRINT § 480, "HEY SANTA, IT'S FOR Y0U1" 








490 


GOSUB 920 








500 


CLS 








510 


PRINT "HE WILL BE RIGHT HERE." 








520 


GOSUB 920 








530 


FOR A-l TO 21 STEP 2 








540 


SOUND B(A) ,B(A+1) 








550 


NEXT A 








560 


CLS 








570 


GOSUB 920 








580 

■ 


PRINT "HELLO ~ HO-HO-HO — THIS IS 


SANTA 


CLAUS 


SPEAKING. 


590 


INPUT "WHO IS CALLING ME";A$ 








600 


CLS 








610 


PRINT "GOOD TO HEAR FROM YOU," 








620 


PRINT A$". WHERE DO YOU LIVE?" 








630 


INPUT B$ 








640 


CLS 








650 


PRINT "MY MY1 CALLING ALL THE WAY" 








660 


PRINT "FROM ")B$ 








670 


PRINT . 








680 


PRINT A$", HOW OLD ARE YOU?" 








690 


INPUT' Z 








700 


IF Z>16 THEN PRINT "AND YOU... ER. . . STILL BELIEVE 


IN ME. I 


'M VERY HAPPY TO HEAR THAT." 








710 


PRINT "I SUPPOSE YOU WANT TO TELL ME 


WHAT 


YOU WISH FOR CHR 


ISTMAS." 








720 


PRINT 








730 


N«l 








740 


INPUT "WHAT WOULD YOU LIKE";C$(N) 








750 


D-RND(5) 








760 


IF D-l THEN PRINT "HMMM "; ELSE IF D»2 


THEN 


PRINT 


■I SEE... 


"; ELSE IF D=3 THEN PRINT "SO... "; ELSE IF D«4 


THEN PRINT "INTE 


RESTING... "; ELSE IF D-5 THEN PRINT "WELL 


• • "» 






770 


PRINT C$(N) 








780 


PRINT 








790 


N-N+l 








800 


IF N<6 THEN PRINT "AND NOW... ": GOTO 740 






810 


CLS 






T 


820 


PRINT "I MUST GET BACK TO WORK NOW, BUT LET 


ME RECORD YOUR L 


1ST 


■ 








830 


GOSUB 920 






/. Ming conltnued 




hear the ring, but in Level II 
Basic you see the word R-I-I-I- 
ING! a few times. Then an elf 
named Leon answers the phone 
at the North Pole and asks you 
to whom you wish to speak. 

If you don't know who to ask 
for after spending all that 
money on a long-distance call 
to the North Pole at Christmas 
time, I'm afraid this program 
ends. 

If you reach the right North 
Pole personality (S***a C***s), 
you get to tell him your 
Christmas wish list. 

St. Nick Portrait 

This part of the big yule show 
is only for people with Extend- 
ed Color Basic machines. It 
draws a picture of Santa Claus. 
It's a fairly good likeness, al- 
though I can't draw hands. 

And there's more. You see 
Santa drawn on the screen and 
you have a few moments to ad- 
mire his pudgy form. Then a 
green text screen appears that 
asks you to wait a moment. 

Behold, on comes a picture 
of Leon, who had a brief speak- 
ing part in A Talk with Santa. 
In this program he gets a nice 
closeup but has no lines to 
speak. 
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listing continued 


ITT TXT 




840 PRINT 


r* I I IXI 




850 FOR X=l TO N-l 


1 &^/ 1 ^1 




860 PRINT CS(X) 


J/L ^b^ A. ▼ 




870 NEXT 






880 PRINT 


•^a*r ^aa* .^^*. « - - ^imtL "^m^mm 




890 PRINT "SANTA CANNOT EVER PROMISE, BUT IWILL SEE WHAT I CAN D 


T T^^X Tf T^ 




0. GOODBYE TO YOU, "A$"." 


1— If 11 1 ^^ ri 




900 PRINT "AND VERY HAPPY HOLIDAYS I" 


n i. w i i r^ ■ , 




910 END 


JL jL^S \^ j K_r *- J 




920 FOR T=l TO 1000 






930 NEXT T 






940 RETURN 
950 END 


If you want to see only Santa 
arid not Leon, put a new line (655 










GOTO 655) into the program. 








100 REM * ST. NICK PORTRAIT * TRS-80 EXTENDED COLOR BASIC 
110 REM * FUN HOUSE * DEC. '83 * RICHARD RAMELLA 


Next month is 1984. I wonder 




120 PCLS 
130 PM0DE1,1 


how many days each of us has 




140 SCREEN 2,1 


been alive. We'll try to figure 




150 CIRCLE(128,96) ,40, ,1.5 
160 CIRCLE (141,155) ,15, ,1.5 


that out an easy way. Next 




170 CIRCLE(116,155) ,15, ,1.5 
180 CIRCLE(160,60) ,30, ,.4 


month's programs will work on 




190 CIRCLE(100,60) ,30, ,.4 


any TRS-80 model. ■ 




200 LINE(110,134)-(135,164) , PRESET 




210 LINE(135,164)-(135,100) .PRESET 






220 LINE{80, 60)-(166, 60) , PRESET 


Do you have a question about a Fun 




230 PAINT(129,96) ,4,4 
240 CIRCLE(129, 60) ,20,3,2 


House program? Write me, Richard 




250 PAINT(128,60) ,1,3 


Ramella, 1493 Mt. View Ave., Chico, 




260 FOR Y=20 TO 48 


CA 95926. You must include a 20-cent 




270 LINE(112,Y)-(146,Y) , PRESET 
280 NEXT Y 


stamped, self-addressed envelope. 




290 CIRCLE(128,35) ,25,3, .8 


From other countries, send a self- 




300 FOR X-112 TO 145 STEP 4 
310 LINE(X, 40)-(X, 60) , PRESET 


addressed envelope and your nation's 




320 NEXT X 


coin equal to postage. 




330 CIRCLE(128,56) ,6,6,.5,.0,.5 
340 LINE(126,40)-(130,46) ,PSET,BF 












350 LINE(110,22)-(150,27) ,PSET 
360 LINE(160,0)-(110,22) ,PSET 
370 LINE(160,0)-(150,27) ,PSET 










TIME SAVING MONEY SAVING 




380 PAINT(125,20) ,4,4 






PRINTER BUFFER 




390 CIRCLE(122,34) ,6, ,.6, .5,1 










400 FOR X=122 TO 124 
410 PSET{X,36,3) 


















420 PSET(X+11,36,3) 






^ >- ^^B|^fc»^B^B^ i ^^^^ 




430 NEXT X 






I"""' - ^^^^^^a^B ^^^g 




440 CIRCLE(135,34) ,6, ,.6, .5,1 






aaaaaaauSfi 




450 CIRCLE(72,60) ,8,3 






L»- \ HP 




460 CIRCLE{188,60) ,8,3 








470 PAINT(74,60) ,5,3 








480 PAINT(188,60) ,5,3 






~— — ■ — ^^^^^^ 




490 FOR Y=108 TO 116 

500 CIRCLE(128,Y) ,40 , 3 , .5,1 , . 5 












510 NEXT Y 






SPOOL -ZQ 




520 FOR Y«lll TO 115 






Spo.>;-7-Q .i^cpi- . haractcrs .it computer -pci-J and ieeds them 




530 CIRCLE(128,Y) ,38,5, .5,1, .5 






to vour printer at irs much slower speed. This eliminate* the time 




540 NEXT 






you waste waiting tor your printer to tinish befote vou can use 




550 FOR Y-170 TO 190 






>.>ur . omputtr. 




560 CIRCLE(114,Y) ,8,3 






FEATURES 




570 CIRCLE(142,Y) ,8,3 






5poot-2 • p*»fcci tor use ulth all parallel (Centronics stan- 




580 NEXT 






datJ) printers including Radio Shack printer^ Sp >• 7 : * 




590 FOR X»95 TO 112 






stand-alone it doesn't Kcal power from the computer or pr. titer. 




600 CIRCLE(X,190) ,7,3 






The manv advanced fnMM include automata internal space 




610 CIRCLE(X+48,Y) ,7,3 






^ hut... ttr . mutual il III, copy and self-test functions, and a special 




6 20 NEXT X 






Tauscon-Formfeed" mode. 




630 CIRCLE(163,3) ,4,3 






SIZES AND EXPANSION 




640 FOR T=l TO 5000 






Spool Z-Q carat) la UK, MIC. and I28K chtracm ma Am 




6 50 NEXT T 






Spool / CM '■* •'->'• "pandeJ I, M at i>K K fust plugging .n 




660 CLS 






chips — the socket* jre already nstallrd There are no lumpers M 




670 PMODE 4,1 






fool uith either. Spool-7-Q knout ho» much memory a installed 










without being told 




6 80 PRINT "WAIT JUST A MOMENT MORE AND YOU WILL SEE ONE OF SANTA 






15 DAY TRIAL PERIOD 




•S ELVES... LEON." 






You may try Spool ZQ uith your IVCtCni and. M VOU aren't 




690 LINE(0,96)-(255,19l) ,PSET,BF 






completely satisfied, return it within 15 davs for a no-hassle full 




700 FOR T=l TO 1000 






refund 




710 NEXT T 
720 SCREEN1,1 
730 GOTO 730 






FACTORY DIRECT PRICES 
(Shipping included) 
32K - 4219 


JVB ELECTRONICS 
1601 Fulton Ave. Suite 1 




7 40 END 






MK - *2*9 
128K - $309 


Sacramento. CA 96825 
1916)483 0709 

^ 121 




St. Nick Portrait. 






Cable to printer - »27 

California rasidantt include 6% aalaa tax We accept 








[Master Card. Vita. AMEX. and C.O.D- 












- 









s See List of Advertisers on Page 291 
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FEEDBACK LOOP 



by Terry Kepner 



Send any questions or problems deal- 
ing wifh any area of TRS-80 microcom- 
puting to Feedback Loop, 80 Micro, 80 
Pine St., Peterborough, NH 03458. 



J' he July 1983 column had three let- 
ters concerning problems with the 
Smith-Corona TP1 and Superscript. I, 
too, have a TP1 printer, as well as a 
DMP-2100. 

I tried the DW2 driver and had the 
same difficulties as the other people. 
Using your ideas, I located the place in 
the DW2 driver program where initiali- 
zation occurs, address BEOF hex- 
adecimal (hex). 

Instead of using an editor/assembler 
to change the code, I used the F func- 
tion (file patch utility) of Debug on my 
Model III disk system. The procedure 
is: Enter Debug at the TRSDOS READY 
prompt, press the F key, enter 
DW2/CTL for the file specification, 
page through the file until line number 
3F00 appears on the screen, press the M 
key, place the cursor over the byte at 
3F03 (19), enter 00 and press the enter 
key, and exit Debug. 

I enjoy 80 Micro very much. I am a 
relative newcomer to computing and 
appreciate the hints and advice in your 
column. 

W. C. 
Tampa, FL 

Thanks for the modification instruc- 
tions and your kind comments. For a 
"relative newcomer" you sound as if 
you're doing pretty well. 

First, I would like to add CP/M to 
my 48K single-disk Model I. Where can 
I get the hardware and software to do 
this, and how hard is it to do? 

Second, I want to add a modem to 
my computer. Since I don't have an 
RS-232 board, where can I get one? Or 
should I buy a modem with a built-in 
RS-232? And could I use the RS-232 for 
other purposes if I did this? Is there a lo- 
cal CompuServe number in the Cham- 
paign/Urbana, IL area? 
280 • 80 Micro, December 1983 




And finally, what have you heard 
about the new Banana printer from 
Leading Edge Products? At $249.95 it 
sounds like a good buy. 

T.D. 
Mascoutah, IL 

Several dealers sell CP/M upgrades 
for the Model I computer. For a list of 
them, see last month's column. All are 
fairly simple to install. 

If you want a Radio Shack RS-232 
board for your computer, you can still 
buy one from Radio Shack. If your lo- 
cal R/S doesn't have any in stock, you 
can buy one from Rider Radio in Peter- 
borough, NH 03458. The problem with 
the Radio Shack unit is that it tends to 
make poor contact with the expansion 
interface (EI) main circuit board and is 
prone to glitching while in use. Several 
weeks ago mine started having prob- 
lems and ended up getting me thrown 
off the CompuServe network three 
times in 15 minutes. The only real solu- 
tion to the poor contact problem is to 
solder the RS-232 to the EI connection 
(not a job for amateurs). 

Getting a combination RS-232/mo- 
dem unit for your computer would 
make it easier to use and would elimi- 
nate most of the contact problems (es- 
pecially if you use Gold-Plug 80s on the 
EI extension port). The disadvantage is 
that the RS-232 ends up being dedicated 
to the purpose, although at least one 
manufacturer gives you an extra edge 
connection for the RS-232. 

Your final choice is to buy an exter- 
nal RS-232 board that plugs into the ex- 
pansion port of the RS-232. This is the 
most common approach used by people 
unwilling to put up with the Radio 
Shack RS-232. 

Both of the last two choices have one 
problem; they don't use the same ad- 
dress ports as the R/S board and this 
causes some difficulties finding soft- 
ware. If you decide to buy an outside 



RS-232 board, check with the manufac- 
turer about which software will or 
won't work with their board. 

I've heard nothing about Leading 
Edge's Banana printer except that it's 
available. The September 80 Micro has 
some information in the New Products 
section (p. 349). 

What jumper changes are required 
when upgrading a Model III or 4 with 
64Ktol28K? 

T.K. 
Julian, CA 

You don't need any jumpers. You 
must replace the DIP (dual inline pack- 
age) shunt in socket U72 with a Pro- 
grammable Logic Array (PLA). The 
ones used by Radio Shack are made by 
Monolithic Memories Inc., and are 
called PALs (a registered trademark). 

The PLA used with the Model 4 
comes with the 128K upgrade kit. I have 
no information on the serial number or 
specifications of Radio Shack's PAL. 



We just purchased a new Model 4, 
and I want to know If anyone has writ- 
ten any drivers to use the 80-column 
screen and 4 MHz clock speed with 
Model III programs? I currently have 
DOSPL US 3.5 for the Model III but am 
unaware of any drivers or patches to use 
the Model 4 features. 

Second, I'm going to be writing some 
estimating programs on the Model 4 re- 
quiring continuous calculations and 
comparisons with large indexed numer- 
ic data files. I want to know what lan- 
guages you feel best suit my needs. I'm 
using Basic, but it's time-consuming 
and the file handling is too complex. 

J.R.F. 
Huntington Beach, CA 



No one has as yet written a driver to 
use the Model 4 features in the Model 
III mode, but it won't be long before 
the DOS manufacturers have fixed their 
DOSes to optionally use those features. 
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TRANSFORM YOUR VISICALC" FILES INTO HIGH-RESOLUTION CUSTOM 
GRAPHS ON YOURTRS-80" COMPUTER AND GRAPHICS PRINTER. 



PRINTER 

GRAPHICS 

PROGRAM 



T4J.TI Jtl.SC 



--■ eu:" 

: 

■ 



IU.42 US.M 



sn :• ■■■ 




*s 



."MA. Jio. 

\ . 
I 



4*»* 




TOTAL - 31440 

PATENTS AND LICENSES <200) .4X 
ACCOUNTS RECEIVABLE '4000- 7.8% 

CORPORATE BONDS ' 900> l.7X\ 
INSURANCE PREPAID O00> .#/. \\ 
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NEW! 

MODEL 

11/12/16 
VERSION 



a 






«ES'5»« HJ1 



• HIGH RESOLUTION - 6'. 

oeta Point./lnch. t large data 
CAP AC 11 Data 

t« per Qrapl" . 

•RAP* E Fro* I iq. I 

K 24" • STANDARD DA'A SOURCE - 
Plots Data Iro. /ISICALC or 

OWN PROGRAMS o»in Q -hr 
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FEATURE SELECTION . , 

Pr»-(c»»tM c r m „, 
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■ MINIMA* ENTRY REOUIREfiEN'S - 
Enter on] . n.»e o. Dat-'lU a"d 

-■•' therein o' dtt< to B« I KM« 

plotted, • MULTIPLE FUNCTION '- , 
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I know it's possible because Holmes En- 
gineering has several DOSes patched to 
use their 80-column board upgrade for 
the Model III. Once the DOSes are 
ready, the Basic programs can easily use 
the features and software will be devel- 
oped that takes advantage of the Model 
4 options in the Model III mode. 

Languages are always a problem. Co- 
bol was designed for business, and is 
used to manipulate large numeric arrays 
as in inventories and data bases, but its 
I/O routines are as weak as Basic's. 
Fortran was designed as a scientific lan- 
guage for extremely fast and accurate 
numeric calculations. Basic was in- 
tended as a good beginner's language, 
with good string handling capabilities 
(Cobol and Fortran's weak points), 
moderate calculation accuracy, and 
easy-to-program I/O routines (which 
become complex as they get larger). 

If you want a fast calculating lan- 
guage and I/O routines that you can 
customize and optimize for speed, I 
suggest you investigate Forth. Forth is a 
bit unusual in that it is totally flexible. 
As a Forth programmer you can define 
new Forth commands to do whatever 
you want done, much like defining a 
new Basic command in Basic. For ex- 
ample, you could define a command to 
clear the screen, load the next record in- 
to memory, and display it on the video 
by assigning a name to the sequence of 
Forth commands that do the same 
action. 

Forth uses a syntax that's radically 
different from all other languages, but 
it's highly efficient. This syntax differ- 
ence is the most difficult part of learn- 
ing Forth. A page of Forth commands 
(defined as one display screen) looks 
like a scrambled-code message. One 
common complaint is that a few days or 
weeks after writing Forth code, not 
even the programmer can figure out ex- 
actly what he did. 

Once you learn Forth, you'll love it 
for its programming ease. If the com- 
mand isn't there, just define your own 
new command. In fact, asking a Forth 
aficionado how to do something (such 
as writing a custom disk I/O routine) 
can be frustrating because he'll usually 
tell you to just write it. Currently, the 
best Forth available for the TRS-80 
computer is from Miller Microcomput- 
er Services (61 Lake Shore Road, 
Natick, MA 01760, 617-653-6136, 
$129.95). 
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I have a Model I with an LNW Ex- 
pansion Interface and a Teac disk drive. 
On power-up, the disk comes on for 
about three seconds and then shuts off. 
Reset doesn't do anything differently. 
After the drive shuts off, the keyboard 
goes dead and I get no response. 

I checked all the connectors, solder 
joints, proper parts in sockets, etc., and 
everything seems in order. Now what? 

K.T. 
Salem, NH 

I need more information. Does the 
unit work as a 16K Level II machine? 
Does the unit work as a Level II ma- 
chine with the interface attached and 
turned on? Does the interface have 
memory? If it does, can you get it in 
Level II mode (does it power-up as a 
32K or 48K machine)? If there's no 
memory in the interface, are you sure 
your DOS will operate in only 16K? 
Some DOSes require a minimum of 
32K to work right. What DOS are you 
using? Have you called or written the 
LNW trouble desk for help? Is your in- 
terface a kit you built, or did you buy it? 

If you get full memory from the in- 
terface and the computer works fine as 
a Level II machine, something is wrong 
with the disk drive controller circuitry 
or with the disk drive itself. Find some- 
one who has a working Model I disk 
system and use your keyboard on it. If it 
works, your keyboard unit is OK. Have 
your friend use your drive on his sys- 
tem. If it works, the problem is not with 
the drive. If the keyboard unit and the 
disk drive test out OK, the trouble is 
with the interface. 

As you know, the PRINT M-l instruc- 
tion on the Model III is very slow be- 
cause it always writes the header first. I 
would like to know if there's a buffer I 
can fill before writing to cassette. I 
know the Color Computer PRINT #-/ 
works like that. 

I also want to upgrade my system to 
32K. I bought one 41 16 chip and insert- 
ed it in my computer as you described in 
your column. It didn 't work; I still get 
15314 as the memory available. Does 
the computer read blocks of 16K, or is 
the chip bad? 

I need a good memory map of my 
computer, can you recommend a good 
book? 

J.P. 
Berchem, Belgium 



The design of the cassette I/O rou- 
tines of the Model III and Color Com- 
puters are totally different. The only 
way you'll get the Model III to buffer 
cassette I/O in the manner of the Color 
Computer is to write your own ma- 
chine-language cassette routines. 

You upgrade the memory of all the 
microcomputers made by Radio Shack 
(except their pocket computers) in 
blocks of 16K. The computers address 
each chip in the 8-chip block as 16K by 1 
bit. Installing only one chip activates 
only 1 bit of the 8-bit words in the 16K 
block. To upgrade, you must use all 
eight chips. 

Soft Sector Marketing sells the book 
Model III ROM Disassembled, which 
includes a memory map of the machine. 

/ read D.J. 's question concerning the 
installation of new characters in the 
Model I character generator (August 
1983, p. 316). Enclosed with this letter is 
some literature on a character generator 
ROM that I manufacture. Note that be- 
sides having true lowercase descenders, 
you can also program the ROM to con- 
tain a second character set custom 
designed by the user. 

T.W. 
Bainbridge Is., WA 

Now that's an interesting develop- 
ment. According to the literature, the 
EC-1 is a pin-for-pin replacement ROM 
for the MC M6670 used by the Model I 
as a character generator. In addition to 
replacing the TRS-80 character set with 
one containing true descenders, the 
EC-1 has room for a complete alternate 
character set. The characters are 5 by 8 
matrices, so you can custom design any 
character you want. 

If you want to use the alternate char- 
acter set and the normal set, you can in- 
stall a toggle switch to let you pick the 
one you want. Or you can fix the ROM 
to use only one of the two sets available. 
The EC-1 is also inexpensive, retailing 
at $11. If you want a custom character 
set, the EC-1 costs $19. 

Of course, to use the upper-/lower- 
case generator, you'll have to have 
modified the video RAM so that it dis- 
plays the additional characters. You can 
do this easily by soldering a 2102 RAM 
on top of the video RAM chip, as ex- 
plained in the April 1981 issue of 80 
Micro. 

Address your questions to: Electronic 
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Statistical Analysis Package 

The NEW update is now available 
and is supported by the Authors! 

Improved features include: 

• 5-30 times faster 

• multiple printing options 

• better analyses printouts 

PJ^ S A11 the benefits StatPac has 
become famous for! 
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the one complete data manager and 
statistical analysis package you'll ever need. 

Walonick Associates 

5624 Girard Ave. So. (612) 866-9022 

Minneapolis, MN 55419 
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□ Eye-Popping Graphics with syncronited sound 
effects 
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Fast & EAsy 

Dot Writer is a software pAckAqe foR 

TRS-80 1, 5, or 4 (!n 5 Mode). Use most 

popvlAR EdlTORS TO CREATE TEXT - TESTEd 
willf MOST populAR DOSs. 

Features 

Over 60 Format coMMANds! 

Printers / Pi~ice» 
We support the following printers: Epson, CJtoh, 
PMC, Radio Shack DMP series and Okidata. Write for 
full info or see your local dealer. 



$99.95 

$79.95 

$3.00 
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Closet, 8187 Blakely Ct. West, Bain- 
bridge Is., W A 98110. 

I rem the MEMTEST program that 
came with TRSDOS on my computer. 
The checksums for the A and B ROMs 
were OK, but the ROM C checksum 
was different from the ones listed for it. 
My Model III ROM C has a checksum 
of 2F84. Is there a reason for concern 
about the difference? My computer has 
worked flawlessly since I bought it. 

L.L. 
Bronx, NY 

Worry not, the latest ROM C has the 
checksum you have. It's just that the 
program is an older version and doesn't 
have all the correct checksums for the 
ROM C versions available. Happy 
computing. 

I'm confused about the sound 
routines for the Model III computer. 
I would like some information about 
the way people work with them. I've 
tried to put their routines on the end of 
my programs and all I get is a Cass? 
prompt. 

I tried to modify the Memory Size?, 
PEEK, and POKE. I also tried four dif- 
ferent kinds of sound routines; they all 
work as long as the routine is by itself. 
Does it have anything to do with POKE 
16526,n and POKE 16527, n? 

T.R. W. 
Southern Pines, NC 

There are several things that could be 
wrong. First, where are these sound 
routines going in memory? If they're lo- 
cated at a particular place in memory, 
moving them around will make them 
malfunction. If the routines reside at 
the top of memory, only one can be 
there at a time without fouling up the 
others. 

If a given routine is located at the top 
of memory, you have to use the Memo- 
ry Size? prompt to protect the routine 
from being stepped on by Basic when it 
tries to run your program. You also 
have to tell Basic that there is a ma- 
chine-language routine located at the 
top of memory, and that you want to 
use the routine. This is done with the 
two POKEs you mention. These place 
the address of your sound routine in a 
location reserved by Basic for the USR 
function, which passes control from a 



Basic program to a machine-language 
program and back. 

So, if you want to use the sound rou- 
tines in your programs, you first have to 
determine where the routines are lo- 
cated. If more than one routine is lo- 
cated there, you have to make sure that 
the routines don't overlap, or you'll 
ruin one or all of them. Similarly, cas- 
sette-based systems support only one 
USR function at a time, so if you have 
several routines, you'll have to develop 
a method to switch between the routines 
when you call the USR routine (perhaps 
use a GOSUB, before the USR com- 
mand, to jump to lines that POKE the 
starting address of the particular rou- 
tine you want into the USR address lo- 
cation). 

Start with a routine that you know 
works; modify the program to do what 
you want. If it no longer works, you'll 
have to contact the author for more in- 
formation on what the routine does and 
how to modify it. If it does work, start 
on the next routine. 

/ have a 48K Model I with three disk 
drives and a Model 33 teletype for a 
printer. I have also acquired another 
Model I, which is a 16K Level I comput- 
er. I intend to upgrade it to Level II, and 
have it as a spare CPU for the first com- 
puter. 

Can I hook up the two units so that I 
can control the main unit with the 
spare? I'd like to have the spare key- 
board and monitor upstairs in the liv- 
ingroom so I can write code, letters, or 
whatever. I'd also like to be able to load 
programs into the main unit, alter 
them, and then save the results on disk. 
I have an interface that lets me turn the 
printer on and off without commands. 

As I see it, the new keyboard will con- 
trol the old computer, printer, and 
drives, and the hew monitor will report 
what's happening. I have no need for 
the paths to be reversed. 

J.C. 
Wayne, NJ 

In other words, you want to be able 
to make the older computer a slave to 
the new one. 

The only method I know of for such 
an application requires the use of RS- 
232 boards. You load a host terminal 
program that treats all RS-232 incoming 
data as if it were typed on the 



computer's keyboard. All video display 
is simultaneously echoed out the 
RS-232. The other computer would 
have a terminal program loaded in 
memory that simply sends every key- 
stroke to the RS-232 and takes incom- 
ing data and places it on the video dis- 
play. Nothing is stored or kept in the 
remote computer's memory, except the 
program itself. 

This method works the way you 
want. The disadvantage to this system is 
that you'd have to load the terminal 
program into the remote machine by 
cassette tape, and load the host pro- 
gram from disk. Every time you wanted 
to use the entire system, you'd have to 
make sure the host computer has the 
host program in memory and runs cor- 
rectly before loading and using the re- 
mote computer. 

If you wanted to get fancy, you could 
buy BBS software for your disk comput- 
er and leave the computer permanently 
turned on. Whenever you wanted to use 
the system, just call it up with the remote 
program (go on-line with the RS-232 ter- 
minal program) and start using your 
computer. Or leave the BBS on drive 
zero with Auto engaged to load and ex- 
ecute the BBS program. Then you 
would just have to turn the computer on 
when you want to use it. 

The disadvantage to this system is that 
you have to buy the additional hardware 
for the two RS-232 boards, and run an 
RS-232 cable between the two machines 
(maximum length without an in- 
termediate amplifier is about 25 feet). 
For your remote computer, you would 
have to buy a non-Tandy RS-232 board 
that lets you attach directly to the 
keyboard unit without an expansion in- 
terface. The disk-based computer would 
likewise require a non-Tandy board (if 
you want reliable operation for long 
periods of time). 

/ have a strange problem that I hope 
you can help me with. I have a 48K, du- 
al-disk Model I computer that random- 
ly reboots when in Disk Basic. The com- 
puter works fine in DOS, Level II Basic, 
and when running machine-language 
programs. I have cleaned all the connec- 
tors and resoldered everything that 
looked flakey. I'm using NEWDOS80, 
but I'm sure that isn't the problem. 

G.S. 
Danbury, CT 
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You didn't mention the age of your 
computer. If you have one of the older 
expansion interfaces, you may need to 
have it modified for increased reliabili- 
ty. The first step is to use the buffered 
cable; the El-to-CPU cable has a black 
box in the middle of it. This helps stabi- 
lize the data line and makes it more re- 
sistant to electrical noise. If the problem 
persists, you have to direct- wire the 
RAS, CAS, and MUX lines inside the 
keyboard and EI units, from the origi- 
nation points to the edgecard connec- 
tions. 

If you still have problems, you have 
to make the pregnant cable (MUX) 
modification. The three previously 
mentioned bus lines are cut from the 
EI-CPU cable and placed in a separate, 
twisted wire pairs, DIN cable. This ca- 
ble has a male and female six-pin DIN 
connector in the middle to let you un- 
plug the CPU unit from the EI unit 
(hence the bulging, pregnant look to the 
cable). 

These modifications are required on 
most old model expansion interfaces, 
which were poorly designed. If you al- 
ready have these modifications, remove 
the two power supplies from the EI 
case; the fluctuations of the magnetic 
fields induce interference with your EI 
RAM chips. If you're still having prob- 
lems, check the FDC chip for poor con- 
nection to the circuit board. 



/ would like to learn Assembly lan- 
guage, but all I know is that it's faster 
than Basic. I have the book Inside Level 
II, but I don't understand it. Please tell 
me the best way I can learn about 
Model I Level II Assembly language, 
without having to spend lots of money. 

T.K.K. 
Chico, CA 



First, the Model I computer is a Z80 
CPU-based computer, so any book 
teaching the theory of Z80 program- 
ming will help you. However, I suggest 
that you get either TRS-80 Assembly- 
Language Programming (Radio Shack 
#62-2006, $3.95) by William Barden, or 
TRS-80 Assembly Language (Prentice- 
Hall, Englewood Cliffs, Nj 07632, 
$9.95) by Hubert S. Howe Jr. Both 
books deal specifically with the Model 
I. Howe's book is easier to understand, 
while Barden's book gives instructions 
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on using Radio Shack's T-Bug and Edi- 
tor/Assembler. 



A year ago, I purchased a Microtek 
Bytewriter-1 and their interface board 
for my Model I. Everything worked fine 
until I added the chips for 48K opera- 
tion. Level II recognizes the full 48K 
when first powered up, but after a vari- 
able time the computer reboots to the 
Memory Size? prompt, or some other 
apparently random spot. 

I thought the problem was interfer- 
ence until I discovered that responding 
to Memory Size? with 32767 or less pre- 
vents the problem while still allowing 
machine code to run in high RAM. 
What's up? 

K.H. 
Livermore, CA 



Basic stores program variables, ar- 
rays, and program operation tables 
starting at the top of RAM and working 
down. You use the top 2 bytes constant- 
ly. Since the dividing address between 
the keyboard unit and the expansion 
memory is 32767, your difficulty is with 
the high 32K RAM bank. 

First, make sure that the connection 
between the keyboard unit and the ex- 
pansion box is clean and solid (use iso- 
propyl alcohol and cotton swabs to 
clean off the dirt, and a pink rubber 
eraser to remove any tarnish off of the 
cable contact; the connectors should fit 
tightly). 

If the problem persists, try swapping 
the top 16K bank with the memory in 
the keyboard. Next, check to see if the 
R/S black box power supplies are too 
close to the memory or the intercon- 
necting cable. And finally, is the RAM 
and printer circuitry being driven by the 
keyboard's power supply? If so, the in- 
terconnecting cable could be interfering 
with itself, although that's not too like- 
ly. What's more likely, if the expansion 
unit uses the keyboard power supply, is 
that the added memory is overtaxing the 
power supply and causing your trouble. 
In this case you'll have to get a separate 
power supply for the expansion box. 

If the problem still doesn't go away, 
contact the manufacturer of your ex- 
pansion box and ask for help. 



/ have a 48K, three-drive Model I 
with the Radio Shack doubter installed. 



My problem is with TRSDOS 2.7DD. 
When attempting to copy from single- 
density to double-density, TRSDOS 
2. 7DD won 't read anything above track 
35 on the single-density disk. 

It appears that this problem could be 
corrected by a very simple patch, but 
Fort Worth won 't say when or if the 
patch will be available, nor will they re- 
lease the file specification, password, 
sector location, or any other data on 
how to access TRSDOS 2. 7DD. 

Do you know of a patch for this 
problem, or must I start looking for a 
new double-density DOS? 

R.K. 
Clovis, NM 



You'd better start looking, because I 
don't have that patch in my bag of 
tricks. Can anyone else help? 



My 48K, single-disk Model I has sev- 
eral problems: spontaneous disk re- 
boots, inability to reboot a disk using 
the keyboard reset button, DOS mes- 
sage CANNOT BOOT or something 
similar while the disk spins in the drive, 
and occasional screwy behavior while 
using VisiCalc (i.e., the left arrow key 
moves the cursor down one line). 

Just recently I had to replace the key- 
board-CPU cable to get the computer to 
function as a 16K computer. 

I can feel a slight wiggling of the con- 
nector at the EI— perhaps the original 
Radio Shack plug is getting old (I tried 
replacing the keyboard-CPU cable, but 
got no improvement). Right now, I 
haven 't had a reboot since I started this 
letter. Apparently if I get the cable con- 
nectors just right, proper contact is 
made and no rebooting occurs. 

I'm thinking of soldering the EI and 
CPU together with a 40-conductor car 
ble, but feel I might regret it later on. 
Now what should I do? 

S.D. 
East Lyme, CT 

Things are never simple. First, the 
keyboafd-CPU cable is a vary weak 
point in the system. When you get 
strange results after typing on the key- 
board, this cable connection is almost 
always the problem. This cable can also 
cause spontaneous system reboots, and 
prevent proper disk-booting action. 



Now. 
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SPKE-SPKBt® ...THE SOLUTION 

Protects, organizes, controls computers & 
sensitive electronic equipment. Helps prevent 
software "glitches", unexplained memory toss, 
and equipment damage. Filter models attenuate 
conducted RF interference. 1 20V, 1 5 Amps. 
Other models available. Ask for free literature. 

DELUXE POWlt CONSOLE 

$79.95 

Troniitnt obsorber dual 5 stoae 
filter 8 individually switched 
sockets, fused, main switch. & lite 

QUAD-II $59.95 

Transient absorber Dual 3 stage 
filter 4 sockets J.te 

QUAD-I $49.95 

Transient obsorber, 4 sockets 

minim $44.95 

Troraiont obsoratr. 3 stoat tiNr. 

2 sockets 

mini I $34.95 

Transient absorb* 2 sockets 
.485 L^fcM Mm 
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215-137-0700 

Out of State Oder Toll free 
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DEALER INQUIRIES INVITED • COO* add S3 00 + Ship 



Bethlehem PA 18017 
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American Software Club has been selling software for the APPLE, ATARI, IBM. 
TRS-80 and CP/M Computers (DEC, Eagle, Vector 4, Northstar, Xerox 820, Super- 
brain, Heath/Zenith, NEC, Televideo, Altos, Columbia, Osborne, Sanyo) since 1981. 
Computerists don't just join A'SC— they stay with us. 

Chalk it up to. . . 

Having 600 products in stock and our "lowest price" guarantee. 

Chalk it up to. . . 

Our free bi-monthly Compendium magazine which gives comprehensive product 

descriptions, club news, and services. 

Chalk it up to. . . 

Our toll free technical support and order lines. ASC doesn't just sell software— 

we support it!' 

ChmlkHupto. . . 

Speedy shipping. Because we know waiting can be frustrating, ASC has been 

shipping more than 60% of orders in under 6 hours. 

But don't just take our word for it. Join now, and take advantage of our free one year 
membership offer. With absolutely no purchase obligation, you have nothing to lose 
and everything to gain. 

Wondering if there are strings attached? The only one is in the cartoon 

For a One-Year Trial Membership with no fee or obliga-Cjn^^ 
tion, fill out the coupon or call our Toll Free Number: rr%r& 

1-800-431-2061 

(CT Residents call 203-431-4966) " 54C 



ASC 



Americap Software Club, Inc. 

80 Topstone Road, Ridgefield, CT 06877 

Please begfn my free one-year trial membership as outlined above. 
Name 



Address. 



City/State/Zip 

Outside the US: Please enclose $15.00 (US) for a one year membership 



My computer is: 
D APPLE 

□ ATARI 
~ IBM PC 

□ TRS-80 
(Mods 1,2, 3, 4) 

ZCP/M(8"or5V4") 



SeeUstof Advertisers on Page 291 



80 Micro, December 1983 • 287 



FEEDBACK LOOP 



Check h carefully for lifted traces on the 
edgecard, cold solder joints, or inter- 
mittent solder bridges. 

Next, check the power connectors 
where your power supplies attach to the 
circuit boards; they may be loose and 
causing reboots. Also, check and clean 
the contacts on the FDC chip in the EI 
(that's right, clean the FDC chip pins). 

The disk booting problem has several 
possible sources: The edgecard connec- 
tion to the disk drives may need clean- 
ing, the disk drive logic card's edge con- 
nector may need cleaning, the head may 
need a slight realignment and cleaning, 
or the motor speed may need adjusting. 

Start with the easiest: clean the edge- 
card connectors," then use a disk drive 
cleaner for the head (or alcohol and 
long cotton swabs). 

The reset button sounds as if it's bro- 
ken. As a Level II machine, does Reset 
work? It may also be suffering from 
cold solder joints, lifted traces, and oth- 
er mechanical problems. Let me know if 
you're successful in correcting the 
problem. 

/ have a problem with my Model I 
speed-up kit. My system comprises: 
Afodel I (board til700069D, Satellite 
ROMs, 16K RAM from Exatron, Cer- 
dat's The Patch, Programma 80-Grafix 
board, and Exatron Speedup Kit); Ra- 
dio Shack Expansion Interface (board 
W00077D, 32K RAM from Exatron, 
Percom Doubler II); Aerocomp's 
80-track disk drive (MPI 91); Exatron 
Stringy Floppy; Epson MX-80 printer; 
and DBLDOSfrom Percom. 

I bought the keyboard in 1978 as a 
Level I machine. When Level II was re- 
leased, I ordered it the next day. The 
same goes for the expansion interface, 
which works fine without a buffered ca- 
ble or other reliability modifications. 

Everything worked fine until I in- 
creased memory to 32K (the speed-up 
kit supports 50 and 100 percent speed 
increases, both of which function fine in 
a 16K system). When I try to use the sys- 
tem with 48K, the 50 percent mode 
works for everything except machine- 
language programs; the 100 percent 
mode locks up everything. 

Is there a way to have the expansion 
interface support the high speed opera- 
tion? Exatron suggested replacing the 
CPU with a Z80A, and said I might 
have slow memory. I removed the 
memory from the expansion interface 
and tried it in the keyboard. Everything 
286 • 80 Micro, December 1983 



worked fine, so slow memory can *t be 
the problem. 

I borrowed a copy of Tandy's Dy- 
namic Memory Test program from a 
friend and ran it at normal speed with 
no problems. At the 50 percent speed 
increase, everything checked out until 
the 16K/32K boundary, when the sys- 
tem crashed. The 100 percent speed in- 
crease immediately locked up the com- 
puter. 

P.L. 
Lawrence, KS 

Yes, you can make the expansion in- 
terface operate at high speed. You have 
several points where problems could 
foul up your high-speed modification. 
First is the memory. The expansion in- 
terface is much more critical of timing 
constraints than the keyboard unit. Re- 
member, the expansion interface is far- 
ther away from the CPU than the key- 
board RAM. 

Electrons in metal move at about 
3 x 10 10 centimeters per second. There 
are 1 x 10 9 nanoseconds (ns) in a sec- 
ond. So in one nanosecond, the elec- 
trons move about 30 centimeters (al- 
most 12 inches). This may not seem like 
much, but if you're using RAM rated at 
250 ns (time required to respond to a 
signal from the address bus and put the 
addressed byte's data on the bus) in the 
EI, the added distance may be just 
enough to cause problems. 

In other words, RAM that performs 
flawlessly in the keyboard can fail in the 
expansion interface. You can see the 
same problem occur at normal speed by 
using 400 ns memory in the EI instead 
of the standard Radio Shack 300 ns 
memory. 

Furthermore, at 3.54 MHz, each 
clock pulse defines a 282 ns window. If 
you slow down the signal too much by 
the address-decoding integrated circuits 
(ICs) and support chips, the RAM 
won't get the information on the data 
bus until it's too late. 

The* best solution is to use the fastest 
memory possible; 150 ns is great, 100 ns 
is the best (but very hard to find, and ex- 
pensive). That lakes care of memory. 

Remember that the Model I was an 
experiment, designed for the tinkerer. It 
wasn't designed for clock speeds of over 
1.77 MHz. This means that the digital 
components weren't designed for faster 
speeds either. That is, the units can't re- 
spond to the orders from the CPU fast 
enough to deliver or process the re- 



quired information within the amount 
of time allocated by the clock frequen- 
cy. Result: system lockups. 

Some of the components are capable 
of operating at 5 MHz, but many begin 
to fall behind the CPU at that speed. 
Even some Z80 CPUs can't operate at 
the higher speed and have to be re- 
placed. And for the EI, the greater dis- 
tance to the EI, plus the additional 
memory-decoding ICs, can make the 
difference between high speed opera- 
tion or a locked up computer. 

Also, you say you don't have any of 
the EI reliability modifications. Well, 
Radio Shack didn't come up with those 
modifications for the fun of it. They 
were developed as a solution to the 
common complaint of Model I owners 
about EI memory problems. The reason 
you've never had to make the modifica- 
tions is that you didn't have the memory 
in the EI to cause the problems. All the 
modifications were made to correct 
memory problems. If I were you, I 
would seriously consider having those 
modifications made. 

If you want better explanations about 
speed-up problems, and instructions on 
what you can do to correct them, call 
Holmes Engineering. ■ 

Terry Kepner is a freelance writer and 
programmer, and the vice president of 
Interpro. He's been writing about mi- 
crocomputers since 1979. 



Frequently Needed Numbers 

Radio Shack, National Parts Divi- 
sion, 900 East Northside Drive, 
Fort Worth, TX 76102, 817-870- 
5662, M/C and Visa accepted, each 
order has $1.50 handling charge. 

IJG Inc., 1260 West Foothill Blvd., 
Upland, CA 91786, 714-946-5805. 
Publisher gf TRS-80 Disk and 
Other Mysteries ($22.95), Micro- 
soft Basic' Decoded and Other 
Mysteries ($29.95}, The Custom 
TRS-80 and Other Mysteries 
($29.95), Basic Faster and Better 
($29.95), Machine-language Disk 
I/O and Other Mysteries ($29.95), 
TRSDOS 2.3 Decoded and Other 
Mysteries (Model I) ($29.95), How 
to do it on the TRS-80 ($29.95), and 
the Electric Pencil Word Processor 
($89.95). 




* See Ust of Advertisers on Page 291 
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THE SECRETS OF PERFECT MEMORY: 
ONE AND ONE HALF EARTH DOLLARS 



AT LAST: THE WHOLE 
TRUTH ABOUT FLOPPIES. 

Amazing book, reveals 
all! 

How to keep from 
brainwashing your disk 
so it never loses its 
memory. 

How fingerprints can 
actually damage disks. 
Unretouched Kirlian 
photographs of UFO's 
(Unidentified Floppy 
Objects)! The incredible 
importance of making 
copies: the Department 
of Redundancy Depart- 
ment- and what goes on 
when it goes on! Power- 
ful secret methods that 
scientists claim can ac- 
tually prevent computer 
amnesia! All this, and 
much more . . . 

In short, it's an 80- 
page plain-English, 
graphically stunning, 
pocket-sized definitive 
guide to the care and 
feeding of flexible disks. 
For The Book, ask your 
nearest computer store 
that sells Elephanr 
disks, and bring along 
one and one half earth 
dollars. 

For the name of the 
store, ask us. 

ELEPHANT MEMORY 
SYSTEMS Marketed 
exclusively by Leading 
Edge Products. Inc., 
information Systems 
and Supplies Division, 
55 Providence Highway, 
Norwood. MA 02062. Call 
toll free J -800-343- 84 J3. 
in Massachusetts, call 
collect (6171 769-8150. 
Telex 951 -624 
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See us at 

H/Fall '83 

November 28-December 2 1983 
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RELOAD SD 



by Amee Eisenberg 



With every turn of its drives, your 
computer's floppy disk controller 
(FDC) is on the lookout for errors. The 
Cyclic Redundancy Check (CRQ safe- 
guards the accuracy of your data by 
performing a quick calculation on a full 
sector of data. The CRC byte, the ex- 
pected solution to the CRC calculation, 
is just one kind of information encoded 
on your disk by the disk drive. 

To help you better understand how 
this works, I'll explain disk drive and 
disk technology. Demystifying the disk 
operating system's cosmos may make 
your computing life a little happier. 

The Disk Drive 

A disk drive does three things: it spins 
a disk, positions a read/write mecha- 
nism, and communicates with the flop- 
py disk controller (FDQ chip. When 
these processes happen correctly, your 
computer reads from or writes to your 
disk. It's something we take for granted 
until an error message appears on the 
screen. 

Your stomach turns, you pound the 
reset button praying that it isn't so, and 
you begin to wonder just what HIT the 
table or where that sector could have 
gone. The real question is just what is 
the drive doing wrong? 

Spinning the disk is technology with 
which everyone who owns a record 
player is familiar — a motor turns a plat- 
ter on which you place a disk. Your disk 
drive spins at 300 rotations per minute 
(rpm), a speed that could make The 
Beatles sound like mosquitos. Just as a 
speed variation on your turntable 
makes your records sound bad, a speed 
variation on your drive means bad disk 
input/output (I/O). 

While most manuals suggest that a 
speed deviation of plus or minus 5 per- 
cent is permissible, I get nervous at any- 
thing greater than plus or minus 1 .5 per- 
cent. By the time you've got a 5 percent 
deviation, you'll also notice plenty of 
disk I/O problems. Many programs are 
available that measure the drive's spin 
speed. Owning one is vital for diagnos- 
tic purposes, although actually adjust- 
ing the speed requires the derring-do to 
try open heart surgery on your comput- 
er (thus voiding your warranty) and in- 
finite patience. I suggest you let a pro- 
fessional do it. 

A stepper motor (stepper motors 
move discrete distances one step at a 
292 • 80 Micro, December 1983 
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heartbreak of 

CRC errors 



time) positions the read/write head. Lo- 
cating and relocating the tracks on your 
disk depends on the accuracy with 
which the stepper motor moves the 
read/write head. Like the tone arm on 
your turntable, the stepper motor can 
position the read/ write head to 'play' 
any track; unlike a record player, the 
read/ write head, as the name implies, 
also records data onto the disk. 

If your disk I/O problems are un- 
predictable, that is they come and go, 
watch for a pattern. Does the computer 
read and write fine when you turn it on 
but become undependable after it's 
been working awhile? Suspect your 
head alignment. A head that's margin- 
ally aligned may read fine when you 
first turn on the computer, but as the 
machine heats up, the alignment shifts. 
Again, the easiest solution is taking it to 
a professional. 

Information exists on a disk in the 
form of magnetic pulses. The head 
reads more magnetically positive bits as 
logical ones, the less positive bits as logi- 
cal zeros. The read/write head picks up 



TRSDOS Model I 

5 sectors = 1 gran 

2 grans = 1 track 
10 sectors = 1 track 

TRSDOS Model III 

3 sectors = 1 gran 

6 grans = 1 track 
18 sectors = 1 track 

DOSPLUS Model III 
6 sectors = 1 gran 
3 grans = 1 track 
18 sectors = 1 track 

LDOS Model III 
6 sectors = 1 gran 
3 grans = 1 track 
18 sectors = 1 track 

Table. Some examples of different track alloca- 
tions. 



these bits in a series, that is, one after 
another. The Z80 microprocessor at the 
heart of your TRS-80 computer reads 
information 8 bits at a time, a method 
known as parallel. One of the FDC's 
jobs is collecting the serial input and 
sending it to the Z80 in parallel. 

The FDC navigates the disk by first 
using the index hole and then using 
markers written on the disk by the disk 
operating system (DOS). The FDC 
looks for two kinds of markers, sector 
headers and clock bits. Both are written 
when you format a disk. 

The Disk 

When you look at a disk, a few things 
are apparent. First, a floppy disk is 
made of two parts, one sandwiched in- 
side the other. The inside is a shiny, 
metal-oxide-coated, circular piece of 
mylar plastic (the disk) that slides freely 
inside the square piece of plastic (the 
shell) that envelops it. Six asymetrical 
holes are cut into the disk's shell. 

The large hole in the center gives the 
disk drive a place to grab the disk. To 
spin the disk in its shell, stick two 
lingers through the center hole, spread 
them to apply pressure to the inside rim 
of the disk, and turn. Do not touch the 
disk's surface! A small hole in the disk 
will appear in the round window to the 
right of the center hole. This is the index 
hole, which the FDC uses as the ab- 
solute landmark of its location on the 
disk. 

The two small half circles punched in 
the bottom of the disk are alignment 
notches. They help insure that the disk 
is set securely in the drive. The square 
notch cut into the side of the disk is the 
write-protect notch. If this notch is filled 
in (by taping a lable over it), the FDC 
will not let the read/write head write on 
that disk. To get your computer to write 
on a write-protected disk, remove the 
label. 

The oval window cut at the bottom of 
the disk's shell is the place where your 
drive reads the disk. When you see how 
small this head access window is, you 
appreciate how finely tuned the disk 
drive is. It adjusts the read/write head 
to find between 35-40 (and on some 
drives 80) separate positions (tracks) in 
an area less than 1 Vi inches long! 

The disks you're familiar with are 
soft-sectored, which means that the 
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Merry Christmas 

Incredible Savings on Complete Systems! 

2095.00 








Model 4 128K 2 Disks & RS-232 
Gemini 10X Printer & Cable 
Hayes Smartmodem 300 & Cable 
Visacalc Spreadsheet 
Scripit Word Processor 
Versatile Data Base 
Smartcom Modem Software 
TRSDOS 6.0 Operating System 




Model 4 64K 2 Disks 8c RS-232 
Okidata ML-82A Printer & Cable. 
Hayes Smartmodem 300 & Cable 
Visacalc Spreadsheet 
Scripit Word Processor 
Versatile Data Base 
Smartcom Modem Software 
TRSDOS 6.0 Operating System 



Professional Software for your Model I, III, or 4. 

Visacalc Spreadsheet — 1 00% machine language with lull screen 
cursor control. Make Projections, Reports, Graphs, and more! 
Scripit Word Processor — 100% machine language full screen text 
editor. Insert, Delete, Justify, Center, Underline, and more! 

LutUlty 1.0 — Complete LDOS filter system. 100% machine lang. 
Includes: Host, IDC, and RTFD (Rational Text File Display). 



Computers 

Model 4 64K 2 Disks 1499.00 

Model 4 128K 2 Disks 1579.00 

Eagle II 64K 2 Disks 1695.00 

Eagle IV 64K 10 meg. 2995.00 




Printers 

Okidata ML-92 469.00 

Okidata ML-82A 389.00 

Gemini 10X 319.00 

Gemini 15 429.00 




FREE SOFTWARE FREE SOFTWARE 

With any purchase that totals over $1000.00, you may select any 
two programs from this advertisement tor free! If you would 
like to have a free Defendoids game program, simply call our 
order line and say % Merry Christmas'. We will send it to you 
for FREE! All you pay for is the shipping and handling. 



Softronics 

Computer Systems 



918-749-6211 

Include 3% shipping. $1 00 minimum OB i*std«nti i 

5% tax. Can tof prtc*< on other product* Mew 
and ara liability iub|ect to chang*. Opon 10 a.m. to 
n. to 11 a 
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space on their surfaces is partitioned by 
the DOS software, rather than through 
a "hard," or permanent, manufac- 
turing process. Because the sectors 
aren't created in the manufacturing 
process, DOS designers can divide the 
disk space arbitrarily. 

The DOS 

The smallest unit of information a 
DOS reads or writes is called a sector. 
Sectors are clumped together as gran- 
ules or grans, and grans are gathered 
into tracks. Different DOSes use dif- 
ferent patterns of space allocation; 
some divide a track into two grans with 
10 sectors per gran, another uses three 
grans of six sectors per track. This is 
why some DOSes can't read disks writ- 
ten by other DOSes. (See the Table for 
some examples of common DOS alloca- 
tions.) 

Information contained in a sector is 
of two types, the information you write 
(data) and the information the DOS 
writes (sector header). System informa- 
tion includes an identifying address 
mark (a sort of flag saying "Here's 
some location information"), the track 
number, the sector number, the sector 
length, and the CRC bytes. Combined, 
this information creates a heading for 
your data that lets the computer retrieve 
it when you need it. 

In addition to these sector headers, 
the DOS writes another kind of marker 
on the disk. Called clock bits because 
they're written by the FDC's 1 MHz 



clock, they create spaces between them 
that hold data. They are, in a sense, the 
carton; your pieces of data are the eggs. 

Using the index hole on the disk, the 
FDC finds the beginning of a track. 
Using the clock bits, the FDC locates 
the spaces where the data resides. When 
it reads an I.D. address mark (the num- 
ber FE hexadecimal coming after a 
gap), the FDC knows it has found a sec- 
tor. Reading the sector header tells it 
what track and sector it has found. A 
lot of space on your disk is taken up just 
defining and identifying the space you 
wish to use. 

Every time it reads a sector, the FDC 
comes across 2 bytes of information 
that are directly related to the accuracy 
of its last write. These are the CRC 
bytes. Their value, as mentioned earlier, 
is determined by a calculation per- 
formed on the value of all the other sec- 
tor bytes. When the FDC reads a sector, 
it performs this calculation on the data 
it has just read. 

If the value matches the value of the 
CRC byte on the disk, all's well. If the 
values don't match, the computer prints 
an error message on the screen and 
quits. Depending on the software con- 
trolling the disk I/O, the error message 
says either "CRC error" or "parity er- 
ror." Either way, it's bad news. 

Utilities are available that might 
straighten out a problem disk: Debug 
on TRSDOS, SuperZap on NEW- 
DOS80, and Super Utility Plus, to name 
a few. But honestly, the best medicine 



Article 

Side A 

Channds of Communication 
Chameleon Code 
Assembly-Language Disk I/O 
Real World Control— Part II 
Real World Control— Part II 
Real World Control— Part II 

SidcB 

Real World Control— Part II 
Real World Control— Part II 
Real World Control— Part II 
Real World Control— Part II 
Real World Control— Part II 

tSource code not available on cassette. 

•EDTASM is a trademark of Radio Shack 
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for any disk problem is preventive. 

Preventive Medicine for Your Disks 

Make a back-up copy of every impor- 
tant disk! At 80 Micro, we use only 
third-generation copies of our DOSes. 
The original sat in the disk drive long 
enough to make a copy of itself, our 
working master. The working master 
comes out of its envelope only to create 
a back-up, the copy we actually use. 
This policy sounds neurotic — until 
somebody does one of those ten thou- 
sand things that trash disks. But, when 
that happens, we don't get stuck sitting 
around waiting for the manufacturer to 
replace our disk. 

The same holds true for data disks; 
unless you love typing, keep up-to-date 
back-ups on your data files. It takes 
time, but ten minutes a week now may 
save you hours trying to reconstruct a 
blown disk later. 

The rule to remember is, if it doesn't 
have a back-up, it will develop an error. 
Back up your disks! 

The second great preventive measure 
is to keep your drives well maintained. 
Invest in a diagnostic disk and test your 
drives once a month. If the disk speed 
varies more than 5 rpm in either direc- 
tion (faster or slower), get it fixed 
before it causes problems. 

Buy a disk drive cleaning kit and use 
it. Dirt on your read/write head acts 
like sandpaper on your disk, an un- 
desirable condition. 

Finally, a reminder of stuff you al- 
ready know. Open and close your disk 
drive's door gently. If you slam it 
around day in and day out, it will break. 
Since the door is part of the mechanism 
that holds your disk in place, a loose or 
crooked door will result in disk I/O er- 
rors. In a worst-case scenario, a door 
off its hinges renders the drive in- 
operable. 

Store your disks in their envelopes, 
away from dust and magnets. Remem- 
ber, the telephone and the speaker in 
your cassette recorder have magnets. 
Keep your disks away from them. The 
top of your video display screen is also a 
bad place for disks. It generates enough 
radio frequency interference to garble 
your disks. 

Your disk drive, disks, and DOS 
work together in a complex system 
designed to guard against errors, but, as 
with any sophisticated technology, it 
requires care on your part to keep it 
working. ■ 
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TRS-80 MODEL 16 

XENIX 

•CONSULTING 

•SYSTEM CONFIGURATION 

•INSTRUCTION 



INTERACTIVE 

SYSTEMS DESIGN 

SUITE 201, 170 BROADWAY 
NEW YORK, N.Y. 10038 
(212V233-6923 „ M 



TEACHERS! 

sifliw mn mm 

The complete griding package 
for the TRS-80 Model III or 4. 
16K tape or 32K disk version*. 
Maintain Multiple class lilts. 
Use nuiber or letter grides. 
Weighted test scores allowed. 
Nike chmges fist md easily. 
Print or display diss lists, 
scores md gride averages. 
65 pige nnuil, sieple session. 
Automatic diti protection. 
Price: $75.00 „83 

Orders and inquiries, write: 

Tink»r Techniques 
435 Green way Ave. 
Trenton, NJ 08618 



TRSDOS ^CP/M 



reformaTTer 

Model II users! Convert files between 
TRSDOS and CP/MI 

■ REFORMATTER runs under TRSDOS 

■ Operates on single drive system 

■ Converts in both directions 

■ CP.'M operating system not needed 

■ All TRSDOS record lengths supported 

■ Initializes blank CP/M diskette 

■ Displays or dumps CP/M files 

■ Manipulates CP/M directory under 
TRSDOS ^380 

$249.00 from stock. CPM— IBM. 
TRSDOS~DEC. and CP,'M— DEC ver- 
sions of REFORMATTER also available at 
$249.00 from MicroTech Exports. Inc.. 
467 Hamilton Ave.. Palo Alto. CA 94301 
Tel. 415/324-91 14 TWX: „ 

910-370-7457 MUH-ALTOS X •■ 



PRESERVE 

SO MICR( 

WITH 

BINDERS & FILE CASES. 



|L 



Keep your issues uf 80 Mil rn handy and prole< led in 
handsomr and durable library Tile boxes or binders. 
Both styles are bound in dark K'eeu lealheretle with 
Ihe ma^a/ine Iorii slampiil in sold. 

Kile boxes: each file box holds 12 issues, with spines 
visible for easy referem e. 

$5.95 each. 3 lor $17.00. 6 for $.10.00 
Binders: each binder holds 12 issues and opens Hal 
loi I'ii- i 1 1 . 1 1 1 i 1 1 •_: . 

$7.50 each. 3 for $21 75. H for $42.00 
(ISA postage paid. Korean orders must include 
$2.50 per ilcm.| 

Ph iisi stale tears desired I IIIBO In I9H4). 
Si-mi i heck or money order to: 

Jesse |ones Box Corp.. I'D Box 5120. Philadelphia. 
PA 19141, please allow H to 8 weeks for d.lix.rx. 
Sorry, no C..O.D. or phone Milan, 



UPGRADE Your Model 4 from 64K to 



128K 



For Only 



»89 95 



Kit includes 8 - 64K RAM chips & 

REQUIRED PAL device You must 

already have 64K installed or order 

separately below 

Upgrade $CQ95 
For Only D%J 

(Kit includes 8 - 64K RAM chips & 
REQUIRED jumper ) 



64K 



16K 



For 
Model 3 



$ 15 



95 



Kit includes 8 - 16K RAM chips 
Rated @ 150 nanosecond access times 



Logix 



P.O. Box 18962 
AUSTIN. TX 78760 
5 1 2/445-6427 

Add $2 00 tor snipping Texas Residents add 5S Sales Tax 
No C D s. certified chec* 01 Money orders lor quickest 
delivery Personal checks subject lo clearance 



\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 

prices and information. Dealer 
inquiries invited. COD. and 
charge cards accepted. 

VtSA' 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401. InCal. call 
(800) 592-5935 or 
(805)543-1037 

•207 



micro 

Single Back Issues 




January 1980 to June 1980 3.00 

Single back issue 
July 1980 to May 1983 3.50 

Single back issue 
June 1983 on 4.50 

Add $1.00 per magazine lor shipping. 

10 or more back issues 

add S 7.50 per order for shipping. ® 

Back issues'Alln. Mail Order 
80 Pine St 'Peterborough, NH 03458 

v See List of Advertisers on Page 291 



TRS-80 SOFTWARE 

Write tor our incredible 
catalogue of over 100 
pages, containing hun 
dreds ot programs (or the 
Model i and III. Colour 
computer programs available in the Fall Cata- 
logue is $5 00 refundable on your first order All 
software is unconditionally guaranteed for life" 
Canadian manufacturer and distributor for 
Molimem Ltd of England 



fSSSFrw\ 



DEALERS WELCOME 

GAMES/ DOS/UTILITIES/ 
BUSINESS PROGRAMS 



♦ 



LOOS $159 95 

MULTIOOS $129 95 

ACCEL 4 $139 95 

FROGII $ 2395 



•POWERMAIIPIUS $19995 

•AIRBUS $ 41.95 

■DATAWRITER $18995 

•DRIVERCOMPILER $ 43.95 



•JUMBO $ 40.95 'ENIGMA $ 36 95 

FULLY SUPPORTED 
COMPUTER SOFTWARE 

•T«o*>n«'» ol '•ndy Corpo'ttion 

JSOFT 

P.O. Box 1437. WINNIPEG. Manitoba R3C 2Z4 
V (204) 942-0963 CANADA 



Trend 
Software Package 



1. Bar Charts 

2. Linear Regression 

3. Statistics 

4. Histograms 

$99.95 






(Add $150 for S & H) 

(PA Residents Add 6% Sales Tax 

Maks Checks or Monty Orders Payable To: 

eSe-LEctioe ^ofttvaxz cSyitsmi 



Si 



4757 Liberty Avenue 
Pittsburgh. PA 15224 

^53 
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The Over-The-Top Sheet Feeder from Gradco Systems Inc. 



Cassette Sheet Feeder 

A unique over-the-top 
sheet feeder for daisy wheel 
and matrix line computer 
printers is being sold by 
Gradco Systems Inc., 3421 
West Segerstrom Ave., Santa 
Ana, CA 92704, 714-549- 
9175. 

The unit features a single- 
cassette, 500-sheet capacity 
feeder. To operate, place the 
loaded cassette under the 
printer, and when printing 
begins, paper automatically 
feeds over the top of the 
printer directly into the 
printer's platen. The mecha- 
nism is completely enclosed, 
with no frames or holders lo- 
cated above the printer's pro- 
file to obstruct your view. 

The feeder accommodates 
a wide range of paper sizes 
and envelopes, as well as 
business forms, and auto- 
matic stacks of printed ma- 
terial. You can easily change 
from sheet to fan-fold feed- 
ing. An indicator light and 
button located at the front 
of the unit provide auto-stop 
and jam-release functions. 

You can install this over- 
the-top sheet feeder on many 
printers, including those 
from C. Itoh, Diablo, Qume, 
NEC, and Brother, among 
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others. Pricing ranges from 
$600-$700 depending on 
your printer model. 
Reader Service ^ 551 

Hamming Around 

All you ham operators out 
there can now receive and 
transmit Morse code on your 
Model I, III, or 4 with this 
software-only Morse Code 
Interface. This 12K machine- 
language program has special 
routines that check incoming 
signals to make sure that they 
are valid code and not noise. 
Bursts of noise are ignored 
and only valid code is pro- 
cessed and displayed on the 
video screen. 

Another routine lets you 
view the incoming signal to 
aid in optimizing the receiver 
control settings. The pro- 
gram samples the received 
code bits and automatically 
adjusts them to the proper 
speed. 

The transmitter mode fea- 
tures five programmable 
buffers (200 characters total), 
a type-ahead (working buff- 
er), and user-selectable send- 
ing speeds up to 70 words per 
minute. 

Comp-Code 1.0 costs just 
$26.95 from Gary Woodall 
Software, P.O. Box 284, 



Plainfield, IN 46168, 317- 
271-2565. Dit-dah-dh-dit! 
Reader Service * 579 

Project Planning 
Program 

Project managers can at- 
test to the work and time in- 
volved in getting a project on- 
to the drawing board and 
then setting it in motion. 
Now you can reduce those 
headaches with Plantrac, a 
comprehensive, menu-driven 
planning and control system. 

It guides you through net- 
work creation and amend- 
ment (up to 12,500 activities), 
time resource and cost analy- 
ses, scheduling, updating, 
and reporting (including a us- 
er-designed report format). 
Plantrac generates bar- 
charts, I/J, and Precedence 
networks on your screen, 
printer, or plotter with criti- 
cal path activities high- 
lighted. 

A key feature of this pro- 
gram is the resource schedul- 
ing (levelling and limiting) 
component that allows dif- 
ferent schedules based on re- 
source requirements and 
availability. In addition, you 
can generate progress out of 



sequence that can be undone 
if necessary. 

Plantrac operates under 
TRSDOS 2.0 on the Models 
II, 12, and 16. It costs $3,000 
from Computerline Limited, 
755 Southern Artery, Quincy, 
MA 02169, 617-773-0001. 

Reader Service v 562 

Floppy Pockettes 

If you've been stuffing 
your notes concerning a par- 
ticular disk in an envelope, or 
have written cryptic notes on 
the disk label only to have 
them smear the next day, 
Floppy Pockettes may be of 
some use to you. With these 
special vinyl disk envelopes, 
you can store a 3- by 5-inch 
card in the clear pocket, giv- 
ing you plenty of room for 
notes. 

The 12 envelopes come in a 
wide variety of colors for col- 
or coding your disks: red, yel- 
low, green, light and dark 
blue, brown, beige, frosted 
clear, white, grey, orange, 
and woodgrain. They fit in- 
side a hinged smoke-plastic 
box for additional protec- 
tion. 

The 12 Floppy Pockettes 
with the disk box sell for 
$7.95; the 12 Floppy Pock- 




Keep your notes and disks together with floppy pockettes. 



DOES STRING COMPRESSION HAVE YOU 
TIED UP IN KNOTS? 

LET TRASHMAN™ CLEAN UP THE MESS! 



THIS PROGRAM IS A MUST FOR EVERYONE WHO USES BASIC 
can reduce BASIC'S string compression lime delays by 9b% or more. 




ON A TRS-80 Why? Because it 



n 


SECONDS DELAY 


PERCENT 


STRINGS 


NORMAL 


TRASHMAN 


IMPROVEMENT 


250 


11 8 


07 


94 


500 


458 


16 


965 


1000 


179.6 


35 


98 


2000 




78 


M • 



(All timings done on TRS Model I Model III 15% Imater. out pel 
improvements identical Listing o' timing program available on request ) 



SAVE TIME WITH FASTER 




You can use FASTER to 



FASTER speeds up 
most TRS-80 BASIC programs 
by 20-50%. Its helped hun- 
dreds of satisfied people and 
it can help you. Detailed in- 
structions make it easy to 
use. FASTER analyses your 
BASIC programs whll+ they 
run. then displays a simple 
change, usually one line. 
that sequences program vari- 
ables so the ROM will find 
them faster. 
speed up programs you've 



bought, as well as programs of your own. Since it isn't a 
compiler, your BASIC programs can be read and changed 
afterwards. FASTER works on business programs, models, 
and games. The more complex your program, the better the 
results. 

Does FASTER really work? Yesl Just check the reviews in 
Personal Computing. May. 1981. p. 116: FASTER Is effec- 
tive and easy to use"; 80 U.S. Journal. April. 1982. p. 106: 
'1 recommend TASTES to everyone": and 80 MICRO (April. 
1962. p. 40): "If you... would like s significant increase la 
Ike run-time speed, then bay FASTER." 

FASTER runs on the TRS-80 Models I and III. 16-46K tape 
or disk, and ail major operating systems. S29.95 

QUICK COMPRESS" takes oniy 276 byte, of 
memory, and removes the blanks and remarks from even 
the largest BASIC program in less than 3 seconds. It pro- 
duces smaller, faster programs without altering their logic. 

$19.95 
$39.95 



SPECIAL: FASTER and QUICK COMPRESS: 



WHAT S STRING COMPRESSION? 

When a BASIC program changes a siring (words, names descrip 
tions). it moves it to a new place in memory, and leaves a nole in 
the old place Eventually. ail available memory gets used up and 
BASIC has to push the strings together to tree up some space. This 
takes time Lots of time The computer stops running for seconds or 
minutes, and you may even think it's crashed' . 

Yes' String compression is what's been causing all those in- 
tolerable delays. The keyboard won't work, and until an the strings 
have been coiieued. you |ust have to sit and wait Then things run 
for a while, until string compression is needed again And again 

It you're using your computer for business, that wastes you' 
money If you're using it personally, it wastes your time 

WHAT'S THE SOLUTION? 

As soon as you start using TRASHMAN. those delays will almost 
disappear The program is very easy to use. so you don't have to be 
a computer programmer to take advantage of it It's written in 
' machine language and uses only b78 bytes ol memory tor itself 
plus two bytes tor each string ' in your program it works with 
other machine language programs and all the maior operating 
systems 

HOW WELL DOES IT WORK? 

If you use it with a BASIC program that has only a few M 
very little time is wasted in string compression, and TRAShmV- 
be only slightly helpful But. in programs that use hundreds or 
thousands ol strings, including large string arrays. TRASHMAN is 
just what you need. It you have any remaining doubts, just look at 
the chart, and then get yourself a copy as last as possible 

TRASHMAN is available on disk 

for just $39.95. 

ATTENTION SOFTWARE PUBLISHERS: 

Trashman may be licensed for use with your packages 

Call for details 



erratic disk dbPves? 




You can avoid unnecessary disk 
errors and repair bills by using 

RPM. This easy-to-use program 
measures the rotational speed and 
fluctuations of your disk drives, and 
warns you if they are running too 
fast, too slow, or unevenly. 

Incorrect or erratic speed is a 
common cause of unexplained disk 
errors and loss of data. RPM s docu- 
mentation explains how to delect and correct these problems 
quickly and easily. As 80 MICRO (April. 1962. page 41) 
said: "II your drives have problems I recommend RPM 
before paying to gel it repaired." 

RPM is supplied on diskette for the TRS-80 Models I and 
III. We suggest you order a copy before you need it. 

$24.95 
ORDER FROM TOUR LOCAL SOFTWARE 
DEALER, OR CALL NOW, TOLL-FREE: 

(800) 824-7888, Operator 422 

FOR ORDERS OR INFORMATION CALL: 
(213) 764-3131, or write to us. 




Dept. G. Box S60. No. Hollywood. CA 91603 -» 



TOUtSi W» ace«pt VISA. Ma.L.Cotd. chtkt or •ven ea«h. PImm add $2.00 Ui.pping handling within U.S.A oc Canada and ti 00 
oi.iimi C O.D. chaig* i» 12.00 In U.S. only. W* thip within on* day ol receiving orders. In Calil. add t%\ %al»* tax 



DISCOUNT 

TRS-80 

COMPUTERS 



UP TO 25% OFF! 

Call or Write for Price List & Catalog 

918/456-6759 



NEW PRODUCTS 



WEBSTER ELECTRONICS 
1027 S. Muskogee 
Tahlequah, OK 74464 




LOWEST PRICES 
IN THE U.S.! 
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MODEL 4 OWNERS 



PEACHPAI 4 ACCOUNTING FOR YOUR MODEL 4 



Now, for the first time, TRS-80 Model 4 owners can 
buy professional accounting software to run under 
TRSDOS 6.0. This is the Peachtree Series 4 
accounting package which has been one of the lost 
popular CP/M based accounting packages for several 
years. The package includes: 

* General Ledger 

- Up to 800 accounts 

- 1000 transactions per period 

- 99 departments / optional departmental 

income statements 

- User defined financial statements 

* Accounts Receivable 

- 500 Accounts 

- 700 transactions per period 

- Posts transactions to GL 

- Mixed open-item and balance-forward accounts 

* Accounts Payable 

- 500 Vendors 

- 500 transactions per period 

- Auto or manual select of invoices to pay 

- Prints checks and detailed stubs 

All three packages for just $495.00 

These packages have been adapted to TRSDOS 6.0 by 
Compu-Systems Software and include the standard 
CP/M packages with the TRSDOS 6.0 diskettes and 
complete documentation. 



COMPU-SYSTEMS SOFTWARE 

212 Skylark Ct. 

Norman, OK 73069 

(405) - 377-8570 

Call or write for brochures on these and other 
Compu-Systems Software products. »»447 




The Mini-T-Switch lets your peripherals share a common component or a CPU 
I/O port. 



ettes alone are $5.95. Sam- 
ples, two Floppy Pockettes, 
are available for $1. They are 
sold by CDC Serious Soft- 
ware, 13715 Vanowen St., 
Van Nuys, CA 91405, 213- 
997-9692, 213-780-2958. 
Reader Service * 559 

Hi! What's Your Name? 

Now you can produce 
customized name tags, table 
tents, and labels for any occa- 
sion with NAMETAGR. The 
program's data entry routine 
is highly efficient. It lets you 
skip, back-up, or ditto. You 
can select your name tag for- 
mat from the file or custom- 
ize your own. The program 
takes full advantage of the 
dot-addressable feature of 
dot-matrix printers by letting 
you design and print your 
own logo. 

The package includes two 
5 l /i-inch disks, 30 bulldog 
holders, 400 pin-feed name 
badge stock, 240 labels (3 Vi 
by 1 inch), 120 labels (4 by 2 
inches), and a manual. Avail- 
able for Models I and III, it 
costs $79 from ETS Center, 
P.O. Box 651, Willoughby, 



Minuteman: An emergency power 
supply and voltage regulator. 




OH 44094, 216-946-8479. 
Reader Service »^ 561 

Mini Switch 

The ABS Mini Switch ends 
the hassle of plugging and 
unplugging your data cables 
for different operations. It 
provides push-button switch- 
ing between any two ports (A 
and B) and a common port. 
Typical applications include 
two terminals switching be- 
tween one modem, one ter- 
minal switching between two 
computers, and a computer 
switching between two 
printers. 

Available from Western 
Telematic Inc. (2435 South 
Anne St., Santa Ana, CA 
92704, 714-979^)363), the 
ABS Mini Switch costs $89. 

Reader Service • 568 

Shot Heard 

'Round the World 

Minuteman is a new unin- 
terruptible power supply 
from Para Systems (2409 D 
Ave. J, Arlington, TX 76011, 
817-6400637). It is designed 
to protect your microcom- 
puter from power failures, 
brown-outs, and voltage 
surges. When a power fluctu- 
ation does occur, Minuteman 
immediately switches from 
A/C power to its own emer- 
gency battery power for up to 
15 minutes. This gives you 
time to save your data and 
shut down your system with- 
out losing valuable input and 
programming hours. The 
unit automatically switches 
back to A/C when power is 
restored. 
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Minuteman also features 
voltage regulation and surge 
protection as well. The unit 
provides standby power for 
microcomputers and word 
processors with a power rat- 
ing of 200 watts or less. It 
sells for $395. 

Reader Service • 563 

Bringing It AD Together 

The Micro Matrix II is a 
line-controlled central ex- 
change for up to eight RS- 
232C, current loop, and TTL 
(transistor-transistor logic) de- 
vices. It features a patented 
circuitry that lets you transfer 
data anywhere in your net- 
work as long as the devices 
are under software control. 

Providing 64 memory- 
mapped connection points, 
set-up is simplified by firm- 
ware that includes prompts, a 
command menu, connection 
displays, and ports handled 



by user name. The Micro 
Matrix II uses IK RAM of 
non-volatile storage for 16 
different switching arrange- 
ments. All 64 connection 
changes occur within 7 mi- 
croseconds with no switching 
glitches or transmission inter- 
ruptions. 

Priced at $795 for the 
single-board configuration 
and $995 for the complete en- 
closure, the Micro Matrix II 
is sold by Digital Laborato- 
ries Inc., 600 Pleasant St., 
Watertown, MA 02172, 617- 
924-1680. 

Reader Service • 565 

Customized 

Adventure Software 

Give your friend or loved 
one a unique and personal 
gift on the next special occa- 
sion: bitCard. BitCards are 
challenging text and graphics 
adventures whose themes re- 




TV Micro Matrix II: A software-controlled data switch that connects RS- 
232C, Current Loop, and TTL devices. 

s See List of Atfrertisers on Page 291 




LOWER PRICES 
LONGER LENGTHS 



DATA TRAC C-06, C-12, C-24 



From the leading supplier of Computer 
Grade Cassettes, new, longer length C-12's 
(6 minutes per side) provide the extra few 
feet needed for some 16K programs. 

<<~5> Premium 5-screw shell with leader 
^^ —BASF tape 

<<2^ Internationally acclaimed. 
Nu ^^ Thousands of repeat users. 

<^s> Error Free • Money back Guarantee 



CASSETTE 
STORAGE CADDY 




Holds 12 
cassettes * o boxes 
includes edge labels 
and Index card 



500 C-12's — 380 each.wi.bei, 

Shipping Si 7 500 add 4c 



500 Boies 13« ••. • snipping S10. 500 




TRACTOR FEED 
• DIE-CUT BLANK 
CASSETTE LABELS 




BASF Quali metric Flexi-Disc— Lifetime Warranty 
SVk" Single Side. Double Density, Soft-Sectored 

NEW! MICRO CASSETTES In convenient short lengths. 
MC-10 I Same superior tape in premium shell 
MC-20 I WITH LEADERS. Supplied complete with 
MC-30 I box (fits Epson & Sharp micro drives). 

_ Call: 213/700-0330 £S5?SS SET" 
ORDER [\mail TO: MM lCFComouter more 

NOW . . . 1/ 9525 Vassar Ave. #80 , Chatsworth. CA 91311 

p — — am am sap — ORDER FORM ■ SB — i SB — i — ■■ i 



Each std cassette 
includes two YORK 10 
labels only Boxes are 
soM separately We 
prefer to ship by UPS 
as being the fastest and 
safest it you need ship- 
ment by Parcel Post. 
check here D 

NOTE Additional 
charges outside 48 
Continental States 
Shipments to AK. HI. 
and USA possessions 
go by Priority Mail. 
Canada & Mexico- 
Airmail 
All others— Sea Mail 



ITEM 1 DOZEN 


2 DOZEN 


TOTAL 


C-06 □ 7 00 


□ 1300 




C-12 3 7 50 


z; '400 




C-24 □ 900 


- 1700 




Hard Boa ^2 50 


4 00 




Blank i at* s J 300M00 


n 20 0O/10O0 




Storage Caddy @ S2 95 aa Oty 




Flan-Oiac 3 26 95/10 


'J 12000'50 




MC*6 CAS*. 1 DOZEN 


"MRU 




MC-10 'J 16 50 


□ 32 50 




MC-20 D 1800 


D 34 50 




MC-30 H 1900 


□ 36 00 




sua TOTAL 




Cast rawdents add salas tax 




SHIPPING/HANDLING Aer asaaffly 


except SSI special) 


350 


Outs** 46 Continental States -Additional $1 per caddy 
par do* caaaenei, pet doz boxes, par 10 decs 




TOTAL 





Check or M O Charge to 

endoaed □ Cradl Card D VISA ~ MASTERCARD 

G PLEASE SENO QUANTITY DISCOUNTS 

Card No. 



#80 

^156 



__Exp. 



Name 



Address . 
City 



State/Zip 

Phone . 



Signature - 

Computer make & model Disk? (y/n) 
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The Next Generation: 

SUPERLOG 

ADVANCED ELECTRONIC NOTEBOOK 
BYKSoft 

Over the past two years. LOG Electronic Notebook has quietly been creating a revolution in 
personal information management. Designed to emulate a familiar pencil and notebook, LOG 
Electronic Notebook can do for random information what a spreadsheet program does for 
numbers. 

Now, even the best has been improved! KSott is pleased to announce SUPERLOG, the next 
generation of the LOG tamiry. SUPERLOG is not a patch! It is a totally rewritten version of the 
original LOG concept, hjty compatible with the LOOS 5.1.3 operating system currently 
endorsed by Tandy. 

SUPERLOG retains al of the versatile features of LOG while adding many new options 
requested by professional users: Floppy or Hard disk. Any number of LOG files per diskette 
1 to 32767 pages per file. Password protection and error checking. New text editing com- 
mands include automatic text Wrap -Around, Expand and Delete tor entire lines, a Page Copy 
command, and an Undo key to reverse editing changes. Cursor motion is more flexible with 
new key commands plus a Forms simulator The SEARCH function is greatly enhanced with a 
Wild-Card character, case-independent search, and multiple word search at 1 pages/sec- 
ond. 

Also Note: SUPERLOG is now tuty interrupt activated; it may be accessed from practically 
any foreground task including LDOS Utilities. LBAStC, LSCRIPT. EDAS. etc with non- 
destructive return to the foreground program No other information management program is 
this versatile! 

Write or call Today! Well be glad to tel you about SUPERLOG and what it can do for you! 

SUPERLOG Specify Model I or HI . $119.95 

LDOS 5 1 3, 46K, and 2 Drives required 

(Model IV version to be offered soon.) 

LOG TRSDOS versions. Models I, III still available 

KSott (601)992-2239 



318 Lakeside Drive 
Brandon. MS 39042 



Mastercard and Visa accepted. 

Add $5 00 for shipping and handling. 



(TRSDOS is a trademark of Tandy Corporation) 
(LDOS is a trademark of Logical Systems Inc.) 



NEW PRODUCTS 



Baudy House 

Computer Products 

950 Scott Lake Road • Pontiac. Michigan 48054 
(313)683-8388 



UTILITYS MODEL 1 & 3 



SuperUtility Plus3.1 $59.05 
Lazy Writer still only. . . $145.00 
Zorloff II word pro $00.05 



COMPUTER & MODEMS 



Model 4 complete with RS232 
64K 2disk drives .... $1000.00 
Model 1 00 8k with modem cable 

and comuserve $775.00 

Lynx modem $245.00 

Hayes 300 modem $245.00 

Hayes 1 200 modem. . . $545.00 



• GAMES * 



PRINTERS 



Epson FX-80 only $540.05 

C. Itoh Prowriter851 0. . . $375.00 

Epson Print Buffer $130.05 

Epson ribbons 2 for $12.50 



Panik(disk) $17.05 

Panik (cass) $15.00 

Defiance (disk) $10.05 

Hyper light patrol $12.00 

Demon seed $10.05 



DISKETTES 



Verbatim Data Life Diskettes 

1 Box $27.00 

2 Boxes $25.00 

5 boxes or more $24.75 

10 boxes $24.25 

No name disks ss/dd . . . $10.05 



SLIM LINE DRIVES 



40 track single sided . . . $205.00 
40 track double sided. . . $275.00 
80 track single sided . . . $315.00 

Single power/case $45.00 

Double case/power $05.00 



Mutildos 1/3 Operating system only $05.00 

Newdos/80 1 /3 Operating system only $125.00 

Dosplus 3.5 Operating system only $115.00 

Shipping add $3.00 to order in U.S. out of U.S. Add $5.00 Most 
orders shipped in 24 hours Prices subject to change Visa/Master 
Card, Checks accepted. Checks need 1 days to clear C.O.D.s add 
$2.00 to order. ^ 184 



late to a specific holiday or 
event. Their unique feature is 
that you can order them cus- 
tom-programmed. An indi- 
vidual lucky enough to re- 
ceive a bitCard as a gift will 
find several personal refer- 
ences to himself as he pro- 
ceeds through the adventure 
(e.g., his name found on a 
note uncovered in a locked 
drawer). 

BitCards also deliver a per- 
sonal holiday greeting to 
your friend(s) in whatever 
words you wish. Your mes- 
sage appears as part of a 
dazzling climactic animated 
graphics scene — the reward 
for successfully completing 
the adventure (impatient play- 
ers can jump to this final 
scene by using a password). 

Available for the Models 
I, III, and Color Comput- 
er, bitCards cost $16.95 each 
from bitCards, 120 South 
University Drive, Suite F, 
Plantation, FL 33317, 
305^73-4741. BitCards are 
available for Christmas, Val- 
entine's Day, birthdays, 
graduations, and other holi- 
days and milestone occa- 
sions. 

Reader Service >x 556 

Put It on Display 

Bush Industries Inc. (312 
Fair Oak St., Little Valley, 
NY 14755) makes a versatile 
desk for your personal com- 
puter. Finished in Arcadian 
hickory vinyl veneer, the desk 
(Model CT- 100) measures 34 
by 33 by 18 inches with a full 
width platform above the 
desk surface for your moni- 
tor, disk drive, and printer. A 
storage shelf below the work 
surface, also full width, is 
designed to hold manuals, 
software, and accessories. 

It has casters for easy 
maneuverability, and you 
can use the desk as a student 
work center or typing desk as 
well. It is priced at $69.95. 
For further information, 
contact Felderman/Sharp 
Communications Inc. at 



216-464-7252. 
Reader Service *s 558 

Model 100 Memory 

The IM-100 is an 8K RAM 
memory module that plugs 
directly into the existing sock- 
ets of your Model 100 with 
no modifications to the sys- 
tem. You can add up to three 
of these plug-in modules to 
upgrade the portable com- 
puter to a total of 32K RAM 
memory. 

Each memory module sells 
for $75. If you buy two or 
more units, the price is re- 
duced to $70 each. For fur- 
ther information, contact 
Holmes Engineering, 5175 
Green Pine Drive, Murray, 
UT 84107, 801-261-5652. 

Reader Service »^ 554 

Raiders of the 
Lost Pyramid 

An adventurer, you are 
looking for the hidden buried 
entrance to a pyramid that 
holds priceless treasures hid- 
den for thousands of years. 
Your only tools are a crude 
map (a cube with ancient 
markings), a partial hiero- 
glyphics dictionary, and a 
special navigation box. After 
you discover the entrance, 
you'll meander through 
rooms and chambers filled 
with one death trap after 
another. You are to unravel 
all the mysteries of this an- 
cient pyramid and find all the 
treasures. The catch? Get out 
alive! 

Infidel is the newest prose 
adventure game from Info- 
com. Its realistic environ- 
ment is a result of the re- 
search the adventure's author 
did on pyramids and Egyp- 
tian history. The game fea- 
tures Interlogic, a develop- 
ment system that lets you use 
complete sentences instead of 
the standard two-word com- 
mands. Infidel recognizes a 
600-word vocabulary, so you 
shouldn't have much trouble 
communicating. 

Infidel costs $49.95, and is 
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SECRETARY, STU DENTS, 
YOU CANT TYPE RIBS? 

Try BIB/RITE 

to produce bibliographies in a standard 

form* to learn or to teach a standard 

bibliographic form 

Prompts for elements and for form, sort by author 
and by category, merge keyboard and disk or tape 
input, semiautomatic journal title entry, edit, print 
with heading, margins, automatic paging. 

Maximum of about 150 citations in 48K. 200 for 
non-disk Basic. Best for fewer than 100 citations. 
Slow for 150-200. 

Available for tape or disk use. Disk recommended. 
For TRS-H0 Model I Level II with lower case. 
Model III, or Model 4 in Model 111 mode. Uses 
about 14K. Need 32K minimum and printer with 
caps, lowercase, and underline. Apple, CP'M with 
\t Basic. Model II. 12. & 16 versions in process. 

One computer, individual user S45.95 * S2 50 
postage and handling. One computer, multiple 
users $150 ♦ $2.50 postage and handling. Up to 10 
user's guides for multiple users, three sent if not 
specified. User's Guide only (24 pp. 8Vi" x 11") 
$3.50 ♦ $1 postage and handling. Applies to pur- 
chase. 

On approval to institutions. Dealer inquiries 
invited. 

Robert E. Litke, Ph.D. 

432 Cottage Avenue 

Vermillion, South Dakota 57609 

Technical questions: 
Phone (605) 624-2948 evenings 

• 452 
*APA, 1983, Other forms on demand. Trademarks: 
TRS-80 Tandy Corp.; CP/M Digital Research; like 
MBasic Microsoft Corp.; Apple Computer, Inc. 



Put your TRS-80 
in touch with 
IBM's universe 

Now you can have full IBM 
communications capability through one of 
Innovative Data Technology's 1/2" 
magnetic tape peripherals. 

Featuring industry- standard interfaces, 
rapid data transfer rates, full operating 
and command subsets and a wide 
selection of models and configurations, 
IDT s magnetic tape subsystems 
provide economical and reliable 
data/program interchange, 
40M bytes of storage and | 
disc back-up. All IDT sub- 
systems come complete and 
include tape transport, 
formatter, intelligent 
controller, computer resident 
coupler, cables, documentation 
and software. But most 
importantly, they help put your 
system in touch with the IBM universe. 



O.E.M., dealer/distributor discounts available. 




TD-1012-3 

Tape 

Subsystem 




IIMNCAATIVF 
DATA 



4060 Morena Blvd. • San Diego, CA 92117 
(619) 270-3990 • TWX: (910) 335-1610 



DAJA Eastern Regional Office: 

TECHNOLOGY PO Box ,09$ . McLean, VA 22101-1093 
(703) 821-1101 • TWX: (710) 833-9888 

•*377 IBM Is a trademark of International Business Machines Corp. 

TRS-80 is a trademark of the Tandy Corporation 



T80-FS1 



Simulator 



Available for Model I or Model III. $25.00 
on cassette or $33.50 on disk (with 
enhancements) All versions require 16K. 




If you order direct, please specify whether you have Model I or 
Model III (the media are different) and whether you want disk or 
cassette. Include $1.50 and indicate UPS or first class mall. Illinois 
residents add 5% sales tax. Visa and Mastercard accepted. 
If you don't yet own a disk, don't fret. You can upgrade anytime. 
Cassette users may send back their cassette (but not the manual) 
along with $10 (first class shipping included) and receive the disk 
version. 



See your dealer! 



LOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, IL 61820 
(217)359-8482 
Telex: 206995 



Sw Ust of AoVert/sers on Page 291 
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HERE 



ED 



is ! 



FAST "Data- Saves & Loads 

FOR MODEL I or HI 

PLUS: Hi-baud Stvt/ Load/ Verity o< BASIC programs, 
memory blocks, And numeric arrays; Hi-baud FAST 
Save/Load of 'data' and string arrays with no 
re-programming hassle; Chain-load BASIC programs; 
Save screen to tape; LIST slowdown; long pgm 
names; password protection... and much more. 

ALSO: Model I: Debounce; print-screen feature; 
supports E/I dual-recorder ops; DI$K compatible. 
Model III: Set CASS hi/low; set time, date; 
control break Key; turn clock display on/oft. 

State Model I or III, memory size, recorder, 
your special needs, etc. Cassette only.... $39 

P.Pd. 




Urit« or call for sort info and/or your copy of the 

<& Cassette #a*ette 

a valuable collection of ^Kl 

good stuff for tapists. JBB 



mm 



SOFTWARE 



Phone (417) 326-7154 



P.O. BOX 328 
BOLIVAR, MO 
65613 



WANTED; 

Buyers & We II pay the shippin 

•CALL FREEH800) 6544058- 

"Call For Reduced Prices At Various Quantities" 



\ferbatim. 

045 

35-0 
345 

4 4 - s 

095 

340 
395 



51." sin side 
4 dblden 

el" dbl side 
°4 dbl den. 

c1" sin -side 
°fl quad 

el" dbl -side 
°* quad 

8" 

8" 
8" 



sin side 
sin-den. 

sin side 
dblden. 

dbl side 
dblden. 



Head Cleaning 

Kits... 945 

k Refills. 14§5 



Dysan 

395 



:l" sin side 
*• dbl den. 

-]•' dbl- side 
} 4 dblden. 

sinside 
quad 

dbl side 
quad 

sm side 
sin-den. 

sin side 
dbl den. 

dbl side 
dbl den. 



8" 
8" 
8" 



145 

3^ 

445 



We Stock 

"Bulk-Packed" 

Diskettes 



\\" sin side 
'a dblden 

:T* dbl side 
'a dblden. 



8" 

8" 

8" 



Scotch' 
3 2 - 5 

045 

3OO 
395 



sinside 
sin den 

sin side 
dblden. 

dbl side 
dblden 



Disk Minder 

•Smoked Plastic 
•Holds 75 Disks 



Prices per ea. 
10 per box the 



Di$ette4 

Connection 



Dealer Inquiries 
Welcomed 



P0 Bom BM 

Bwtwny OK 

73008 



jj^ '(Continental U.S. only. Add 3* on orders under 40*) VjjC 



NEW PRODUCTS 



available for both the Models 
I and III. For further infor- 
mation, contact Infocom 
Inc., 55 Wheeler St., Cam- 
bridge, MA 02138, 617-492- 
1031. 
Reader Service »■" 550 

VisiCalc Mentor 

Master the VisiCalc elec- 
tronic spreadsheet in a matter 
of hours with VisiCalc Pro- 
gramming: No Experience 
Necessary. It is a self- 
instructional disk and guide 
that gives you hands-on 
learning experience with Visi- 
Calc. 

You begin with the basics 
and progress through ad- 
vanced functions while si- 
multaneously building a 
working Profit Analysis 
model. A self-pacing Check- 
point system lets you correct 
errors or review any part of 
the tutorial at any time. In 
addition to the Profit Analy- 
sis model, there are five other 
program templates included: 
Time Management, Future 
Cash Flow Analysis, Port- 



folio Valuation, Retirement 
Planning, and a Loan Repay- 
ment Scheduler. 

The slipcase package con- 
tains a spiral-bound 236-page 
manual with the sealed disk 
affixed to the inside front 
cover, and a command refer- 
ence card. The Model III ver- 
sion has a suggested retail 
price of $59.95. It is sold by 
Little, Brown and Company, 
200 West St., Wakham, MA 
02154, 800-343-9204, 617- 
8900250. 

Reader Service • 555 

Teach Your Computer 
to Lisp 

A fast machine-language 
Lisp system is now available 
for you Models I, III, and 4 
owners out there. The system 
is designed to satisfy virtually 
all your needs, so it has fea- 
tures such as pixel graphics 
and floating-point routines in 
addition to a full range of 
Lisp functions. 

The Lisp Interpreter fea- 
tures full recursion, function 
tracing and error trapping, 




Learn VisiCalc in a few short hours with this self -paced guide. 
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WERE SERIOUS 
ABOUT FUN! 

Software for 

Radio Shack's TRS-80 

MODELS 11/12/16 

• GAMES • ADVENTURE 

• BUSINESS • LANGUAGE 

• EDUCATION 

CALL OR WRITE TOR TREE 
BROCHURE AMD MORE IPirORMATION 

£* Rizzo Data 
<^ Systems Corp. 

577 Burlington Rd. P.O. Box 458 
Bridgcton. NJ 08302 0356 

609/4517979 " 5,fl 



CIRCUIT SOLVER I 




You don i have lo be an 
engineer lo make produc- 
tive use of this program A 
large clear manual leads 
you through the use of Cir- 
cuit Solver usmg sample 
problems which have prac- 
tn.:al application 



Features 

• Simple) Circuit Entry 

• Circuit Listing 

• Circuit Storage i 
Retrlval 



Easy Circuit Editing 
Supports Op-Amps 
Many Useful Sample 
Circuits 



ORDER • 
CSI I00C 
CSM01C 
CSI 102C 



PETCBM64- 



APPLE* 

TRS80- 



$34 95 
34 95 



M M 



Include $2 SO snipping and handling 
' PET CAM 6e" APPLE and TRS BO art ' Ttad*na'*% 
of Commodore Apple Computt' and Tandy «esp 



SHS SOLUTIONS 

1430 N LATROBE 
SUITE 2A 
CHICAGO II 606$ 1 



■«J2 




• Raise* & tilt* TV monitor for easy viewing 

• Allows CC keyboard lo slip under monitor 

(or more desk space 

• Matching silver-gray fiberglass 
•$37.50 • $2.50 shipping 

80 DEMI-CASES 

• Models for LNW or MOX I a II Boards 
•$32.50 * $2.50 shipping 

N.YS Rmaidonlt Add 7% U* •* ' N 

SYRACUSE RAD CENTER 

Box 125, Devvitt, N.Y. 13214 

"Specializing in Electronic Packaging" 



DISCOUNT COMPUTERS 

100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY — FULL WARRANTY 



24K MODEL 100 799.00 

16K MODEL 4 799.00 

64K MODEL 4. 2DR, RS232 1579.00 

80K MODEL 12, 1DR 2499.00 

80K MODEL 12, 2DR 3149.00 

256K MODEL 16B, 1 DR 3898.00 

256K MODEL 16B, 2DR 4510.00 

256K MODEL 16B, 1 DR W/HD 5439.00 



DMP 100 PRINTER $ 299.00 

DMP 200 PRINTER 599.00 

DMP 500 PRINTER 1029.00 

DMP 2100 PRINTER 1599.00 

DWP 410 DAISY 1095.00 

DWP DAISY WHEEL II 1499.00 

12 MEG HD MODEL 11/12/16 2369.00 

ALL RS SOFTWARE 20% Off 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 

(817)825-4027 

NOCON A ELECTRONICS • Box 593 • Nocona.TX 76255 



• 232 



tvvasixteen 

/niagazine 



xgpF ONLY 

MAGAZINE FOR 
MODEL II & 16 
FSERS 



USE 



two sixteen magazine 
131AEaaKOr-.gr tK. 
LaacaaXcr, Pa. 17603 
-522 <7 17) 3*7 33*34 




NODV1II 
DIET 
. PROGRAM 

£-4L ,$69.95 



"TAKE A BYTE". "* \gd 

MAeXTeM LOSI OK OAJM *f IGMT 

»i» row tus ae Pouo n Penalty ona Moom i h 

and 

The NOPVILL OICT WIOOHAM 

• Calculate caloric and nutrtttre lood Intake 

• Iveluete nulHrhrt value ol your dvel 

• Compare dally diet lo indirMual ADA Criert 

• Create peraonaiifad dally meal* and manue 

• Han •eried dally menua ba n d on aound nulriiion 

• Save 'acorda ol detfy maata and menua lo* future alenning 

• Print nutrition cfterta lood mael menu end grocery Mala 



5L 



BNOOvm So'twere 
34 Nod Hoed 
nregehaid Conn 0»d77 




MUrN ho*,"i Mm 
|i|Wace»manaiaOeeyr>ea»m aauoancia iWOAichawt 

nititr ■nmMMiurn ui nm mmnri ithi'i 

111 M Hmmiuihi eSCAl LIST Data Fee E 

141 1 aaejecad oau y mcnu i ist Oeta rm lure* 

1 Ji GnoctMT LIST Hocaem Module 

« >M , i»,uSt»tM»Nu»i mckiaene Owni end 



• SeeUsfot AtTverT/sexj on Psge 291 



80 Micro, December 1983 • 303 



NEW PRODUCTS 



property lists, 180 predefined 
Lisp functions, trigonometric 
and exponential functions, 
visual display capability, ab- 
breviated quoting, and much 
more. The Lisp Editor is a 
standard, expression-orient- 
ed editor that features general 
pattern matching for search- 



ing and substituting. 

The system runs on TRS- 
DOS, LDOS, and NEWDOS, 
and includes a formatted disk 
with a Lisp Interpreter, a 
Lisp Editor, a differentiator 
and algebraic simplifier, a 
manual, and a poker player. 
Priced at $79.95, the system 




Volksmodem: An inexpensive direct-connect modem. 



requires one disk drive and 
48K. It is sold by Artificial 
Intelligence Technologies, 
2121 NE 152nd St., Red- 
mond, WA 98052, 20^644- 
3068. 
Reader Service • 572 

Dial Direct! 

Volksmodem is an inex- 
pensive direct-connect mo- 
dem from Anchor Automa- 
tion Inc. (6913 Valjean St., 
Van Nuys, CA 91406, 
213-997-6493). This means 
that you no longer have to 
worry about missing a phone 
call just because your phone 
lines are tied up to an acoustic 
modem. With Volksmodem, 
a simple flip of a switch lets 
you either go on line or make 
and receive phone calls. 

The modem has a sug- 
gested retail price of $69.95. 
You have to purchase com- 



puter adapter cables sepa- 
rately. Both the RS-232 and 
Radio Shack adapter cables 
are priced at an additional 
$12.99. You can buy Volks- 
modem at major department 
stores and with mass mer- 
chants nationwide. 
Reader Service • 560 



How to 
Sell Your Programs 

You've slaved for months 
without sleep, living on cof- 
fee and root beer, trying to 
finish your program. Now 
you're done, and you're 
ready to stand the computer 
industry on its ear. But where 
do you go? Whom do you 
show your priceless program 
to? Programmers' Pipeline 
may be the answer. 

Programmers' Pipeline is 
an electronic listing service 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



CONVERT YOUR PARALLEL PRINTER TO SERIAL 



The UPI serial printer interfaces allow an ASCII serial printer 
to be connected to the parallel printer port of the TRS-80 
computers or any other computer which has a Centronics 
compatible parallel printer port. 

Software compatability problems which normally result 
when a serial printer is used are totally eliminated because, 
the computer "thinks" that a parallel printer has been con- 
nected. Special driver programs and changes to the operat- 
ing system are not required with computers designed to 
work with a parallel printer. 

The UPI interfaces are completely self contained and ready 
to use. A DB25 socket mates with the cable from your serial 
printer. The ribbon cable attaches to the parallel printer 
port of your computer. The UPI interfaces convert the out- 
put of your parallel printer port into serial data in both the 
RS232-Cand 20ma. loop formats. Switch selectable features 
include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per word 

• Odd, Even, or, No Parity 

• Baud rates 110 to 9600 

UPI-3VB for TRS-80 I & III $149.95 

UPI-2VB for TRS-80 II & 16 $149.95 

UPI-3VB-6 for TRS-80 I & III with 6 ft. cable $159.95 

UPI-2VB-6 for TRS-80 II & 16 with 6 ft. cable $159.95 

Models for most other computers available at $159.95 



NEW SERIAL TO PARALLEL INTERFACES 

The SPC SERIAL to PARALLEL interfaces convert serial ASCII 
data into parallel format for use with Centronics type paral- 
lel printers. A DB25 socket accepts serial data from your 
computer. The 36contact ribbon connector plugs inloyour 
parallel printer. Can be used to add a second parallel printer 
port to computers which reliably support both serial and 
parallel printers. 

Switch selectable options include the following: 

• 7 or 8 Data Bits per serial word 

• Odd or Even parity for serial word 

• Parity or No parity for serial word 

• 1 or 2 Stop Bits per serial word 

• 300. 600, 1200, 2400, or 4800 BAUD 



SPC-1 as described above 
SPC-CC with DIN plug and cable 
for the TRS-80 Color Computer 



$89.95 
$69.95 



All prices U.S. funds. VISA, MASTER CARD, COD, Purchase 
Orders accepted from schools, major corporations, and 
government agencies. Shipping and Handling on U.S. 
orders $4.00. Ten day return period. Ninety day warranty. 



bd 



BINARY DEVICES 

11560 TIMBERLAKE LANE 

NOBLESVILLE, IN 46060 

(317) 842-5020 ^106 



TRS-80 iv. a trademark of TANDY 
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Now First For Any Dos . . . 



EBASIC 



Extended Basic for the Model I and Model III. Adds 
graphics, sound and line-labeling to Basic. Works with 
DOS PLUS 3.5,LDOS, NEWDOS80, TRSDOS, and 
MULTIDOS. $49.95 



Assembly language programming has reached a new era. 
Unlimited nesting of conditional assembly. 
Unlimited nesting of INCLUDING files. 
Absolutely will not accept a bad OPCODE. 
Positively the fastest full featured assembler. 



ZEUS 

Editor Assembler 

INTRODUCTORY 
Price $79.95 



• Built In hex and decimal calculator. 

• Partition EDTASM format source text on load 

• Automatic syntax check on line entry. 

• Forward and reverse scrolling. 

• Conditional assembly. 

• Include source text from disk file. 

• Over 34,000 bytes for source text. 

• Creates object code for 794 instructions 

• Creates object code 2% to 3 1 /2 times faster. 



Other Products Available From C.E.C. 

MULTIDOS Version 1.6 for either the Model I or the Model III $99.95 



Z'DOS 



Version 1.0 for either the Model I or the Model III 



$39.95 



BOSS/RENUM90 Machine language Basic program debugging/renumbering 

utility. 

BOSS/RENUM90 (tape) $24.95 

or BOSS only (disk) $15.95 



COSMOPOLITAN ELECTRONICS CORPORATION 

5700 Plymouth Road . Ann Arbor, Ml 48105 
Technical Line Ml orders (313) 668-6660 Toll Free orders 800-392-3785 



Add $3.00 shipping ft handling. 

Foreign ord«r» add $19.00. 

Michigan reakJanta add 

4% aalM tax. COO add $1.90. 

Personal chacka taka two waafcs 

to claar. VISA ft Maatareard 

accaptad. 



See Us! of Advertisers on Page 291 
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that posts a description of 
your software program to 
dozens of companies looking 
for new software to add to 
their product lines. They post 
your description within min- 
utes after receiving it, day or 
night. They reinforce this on- 
line service by sending you a 
periodic hard-copy follow-up 
mailing of your listings. 

Programmers' Pipeline 
deals directly with software 
companies. They have no 
agents, commissions, or hid- 
den fees. The initial program 
listing service under one pro- 
gram category costs $20. Ad- 
ditional program categories 
cost $5 each. An optional 
blind-box service that re- 
ceives and forwards re- 
sponses to your program de- 
scription is available for an 
additional $10. 

If you'd like to see the Pro- 
grammers' Pipeline in action, 



call via modem: 213-516- 
9432. The system asks you 
for your first name; respond 
with Pipeline. It then prompts 
you for your subscriber num- 
ber; enter 80 Micro. It's that 
easy! 

For further details, contact 
Programmers' Pipeline, P.O. 
Box 666, Glendora, CA 
91740, 213-914-4317. As a 
bonus, if you mention 80 
Micro, you'll receive a free 
copy of Checklist for Program 
Authors. Merry Christmas! 

Reader Service ^ 573 

Blushing Computers 

Add vivid color to your 
Model I or UJ with CHRO- 
MAtrs, a color graphics 
peripheral from Micro Con- 
trol Systems Inc. (1590 
Broadway, Hewlett, NY 
11557). CHROMAtrs uses 71 
easy commands in addition 
to standard Bask commands 



to let you quickly plot points 
and lines, do 3-D rotations, 
translations, and create sprite 
graphics. 

CHROMAtrs offers you 
15 brilliant and distinct colors 
with which you create your 
own arcade-type games. It 
also lets you add joystick and 
paddle game action, as well 
as exciting sound effects. 

The peripheral attaches 
easily to your Model I or III 
without affecting your Radio 
Shack warranty. Each unit 
costs $199 and comes com- 
plete with documentation. 
You can get more informa- 
tion from the Promotional 
Services Group at 516-781- 
0153. 

Reader Service * 578 

Sharing Your System 

Ball Technical Services 
now makes full multi-user ac- 
counting software for your 



Model 16 that lets you oper- 
ate up to three terminals si- 
multaneously with the same 
accounting program. The 
available programs (Accounts 
Receivable, Accounts Payable, 
General Ledger, Payroll, and 
Order Entry/Inventory Con- 
trol) all operate under the 
RM/COS multi-user operat- 
ing system. This lets you print 
from remote terminals. 

The programs have full 
record-locking capability. If 
a second operator requests a 
record that is being processed 
by someone else, it's flagged 
to say, "Wait, somebody's 
looking at the record." 

RM/COS requires 256K of 
RAM to support three users 
and an additional 63K for 
each added terminal. It is 
three times faster on your 
Model 16 than on any other 
multi-user operating sys- 



MODEL 12 

2 DISKS 
$3250.00 


DISK DRIVES 
COLOR DRIVE 
COLOR DRIVE 1 
5 MEG HARD DISK 


$310.00 
230.00 

1725.00 






12 MEG HARD DISK 


2699.00 




COMPUTERS 
PC-2 POCKET $169.00 
PC-3 POCKET 79.95 
MODEL 100 8K 675.00 
MODEL 100 24K 799.00 
MODEL IV 16K 845.00 
MODEL 16 128K 2D 4699 00 


PRINTERS 
OKI DATA 80 $299.00 
OKIDATA82A 365.00 
OKIDATA83A 569.00 
OKIDATA84 960.00 
OKIDATA92P 439.00 
OKIDATA92S 505.00 


DMP-100 
DMP-120 
DMP-200 
DMP-400 
DMP-500 
DMP-2100 


$299.00 

399.00 

535.00 

999.00 

1159.00 

1750.00 


MODEL 3 to 4 UPGRADE KIT 699.00 
MICRO DESIGN 


GEMINI 10X 290.00 
GEMIN1 15 409.00 


CGP-115 
P.C. PLOT 


199.00 
175.00 


UPGRADED MODEL 4 1479.00 


DAISY WHEEL II 


$1700.00 




64K COLOR COMPUTER 299.00 


DWP-410 


1050.00 






SILVER REED 


659.00 




MODEL 4 $1629.00 


ALL SOFTWARE 15% OFF 




64K 2 Disk RS232 


n^\^pw f 


*^%n 


n 


AMBUR SCREEN 


BODEX C 


a)R 


P- 


j For Model 4 $89.00 


224 East Main St. Marlboro Mass. 


Phone 1 617 465 5115 




HOURS M-Fri. 10-9/Sat. 9:30-6 




or 461 1027 | 


Pnces subject to change without notice 


UPS items shipped FREE! 




^38' 


Not responsible for typographic errors 


We can ship C.O.D. TRS K „ . „.„.„,.,, 


ot Tandy Co'(K>'»l>0" 
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Now - Add External Monitors To Your Model III 




Plugging in VIDEO MOO Ufa you plug m your 
TV or ewtr* Monitor tor Big Scr»#n Viewing »nd 
Romot* D.lpl.y 

Gf*«t addition (of ditpUying Mom* G«m»t, Clatt- 
room Instruction*, and prvMrrting information at 

tfufinatl rn##tlngt 

Standard faaturet include: 

- Monitor and/or TV Hookup*. 
• FtM 64 character wida acraan display. 

- Worfci witfi any program or operating tyttam. 

- No cutting or toldaring required for installation 



EJB ELECTRONIC SYSTEMS 

2902 Eggert Road 
Tonawanda, N.Y. 14150 Mfg. of TfiiTallill 

(716) 837-9411 Computer Product. 



VIDEO MOD only 1/6995 
ship. O- handling $2.00 

NY residents add , v 

7% sales tax 



A STATIC y a^T 

MONSTER? %mb 

Static electricity is probably the most ^iV' 
persistent problem faced by the average .* 
personal/micro-computer user Static can 
cause erratic or erroneous data transmis- 
sion, loss of program, damage to discs 
and accessories and even computer 
component failure All this is costly, annoy- 
ing and unnecessary 1 ' 1 

The Static Control Computer Mat puts 
static protection at your fingertips where it 
belongs Simply touch the mat before 
touching the computer or any accessories 
and static is safely drained oft to the mat 
and is sent hurrying oft to ground before it 
can become a problem There is no ZAP or 
spark and by periodically touching the 
mat while operating the computer, you 
win remain static sate it is the effective 
economical approoch fc static control in 
the home or office 

The Static Control 
Computer Mat. 



89.95 



DELTA ELECTRONICS, INC. 

Industrial Electronics Distributor 

174 Main St., Norwalk, CT 06851 

(203) 847-7285 



COD 

I 







ORDERS CALL COLLECT 
PHONE LINES OPEN 24 HOURS 




VISA 



C.O.D. 



MasterCard 



A COMPLETE PRO FOOTBALL PREDICTION PROGRAM 

FOR THE 1983 NFL SEASON— INCLUDING PLAY-OFFS 

* * * • * 

'20 MIN DATA INPUT PER WEEK WILL GIVE YOU 

THE EDGE 



$0095 



29 



- FEATURES - 

• DISPLAYS PREDtCTEO 51 ORE! 

• DISPLAYS ACCUMULAltl > MAIS l | 

• DISPLAYS AVERACl STATS/TEAM 

• HARDCOPY PRtD - STATS - AVE 

• AUTOMATIC OPPONENT INPUT 

• VI 1X3 STORE DATA - NO SAVE' 

• UPDATEABU FOR i<r«4 



NAME. 



ADDRESS 



CITY. 



■>T_ 



ZIP_ 



PIK'EM 29 95 D STAT SER 35°° □ 
Ml □ Mill □ APPLE D IBMPC □ 
VISA D MC D PAY ENC D 



IT 



CARD EXPIRES 



INCLUDES: DISC 
DOCUMENTATION 



TRS-80 MODEL I ,' III 
IBM PC 
APPLE 

REQUIRES 32K 



If PROGRAM IS BOUGHT AFTER 
SEASON STARTS — ALL PREVIOUS 
STATS NECESSARY TO UPDATE WILl 
BE INCLUDED — NO CHARGE. 



STATISTICS NEEDED TO RUN THIS 
PROGRAM ARE AVAILABLE IN- 
LOCAL NEWSPAPERS 

OR. 
MARATHON WILL FURNISH ALL 
NECESSARY STATS IN AN EASY TO 
Kl M ) ONE PAGE FORMAT FOR 19 
WEEKS 
STATS ONI V »35°* 



OTHtR PROGRAMS 

• PIK EM 9M FOR USFl • 

• HOME BUDGET PLANNER • 

• LETTER WRITER • 

Marathon Software Dept 

P. O. Box 1 349 
Jacksonville, Texas 75766 
Phone (214) 586-8212 -2«' 



" 



^ See Ust ot Advertisers on Page 291 
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ii 2 * 

NDN: 

MODEL 1. B, and 4 CDMPRHBLEJ! 
CP/M 2.2 and3.BCOHPRTIBLE!! 

5DDN = 

IBM M5-00S and DVH-B6 COMPflTIBILrrY! i 

PLUS add up to 1 Megabyte of RAMI ! 

High Speed RRHDISK is coning! 

5Y5TEM5 START AT *1999 

Includes: LNHBB-2+, Hi -Res Green Monitor. One 

DisK Drive, CP/M 2.2. DQ5PLU5, Microtern, 

Electric Pencil. Electric Spreadsheet. Chartex, 

and the LNU 5nal I Business and Professional 

Accounting Softiare Series. 

CALL U5 FOR THE BEST PRICES AVAILABLE 
IN STOCK NOW! Ready for mediate delivery! 

EXCELLONIX 

C7143 973-1939 ** C2133 650-5754 - 267 



NEW PRODUCTS 



D»o«o»ooo»a»a«a»a«a«o«oa»oa»a»a«a«o«a»Q»D»Q»D»D»a»D»a»D»D»ooa»Q» 



FREE 5 MEG HARD DRIVE 



from 



(fifiltt. Olliyjiffiifpy/ 




Just purchase one of our integrated software pack- 
ages at our low price of $2495. and we will install it on 
a 5 Meg hard drive ready to plug in and go. Now avail- 
able for the TRS-80 Mod HI/4 and soon IBM-PC. Over 
30 types of businesses and professions supported. We 
also carry Local area and multiplexed networks. Call 
or write for our current list of applications. 

CALL 203-828-0359 



869 Mill Street 

E. Berlin, CT 06023 



Dealer inquiries invited 



tem — with half the memory. 
And it's IS times faster than 
TRSDOS. 

You can update existing in- 
stallations of Radio Shack's 
three-disk accounting pro- 
grams (26-4601, 26-4603, 26- 
4604, 26-4605, and 26^607) 
to the multi-user RM/COS 
version for $300 per program. 
Or buy RM/COS separately 
for $750, with each program 
costing $599, or purchase 
RM/COS with all five ac- 
counting programs and Sales 
Analysis for $3,150. 

For additional informa- 
tion, contact Ball Technical 
Services, 211 North First St., 
Mt. Vernon, WA 98273, 800- 
426-2070, 800-545-6244 (WA), 
206-33^6605 (Canada). 

Reader Service ** 576 

Yo, Ho, Ho and a 
Bottle of Rum 

Dancing Sailors is the 
dual-pen version of the 
DMP-40 plotter from Hous- 
ton Instruments. It enables 
you to generate two-color 
plots or plots using different 
line widths without having to 
intervene. A simple command 
directs the plotter to place the 
alternate pen in plotting posi- 
tion. Since both pens are car- 
riage mounted, pen changes 
are fast and easy. 

The DMP-40-2 plotter 
costs $895 from Houston In- 
struments, 8500 Cameron 
Road, Austin, TX 78753, 
512-835-0900, 800-531-5479. 
Both RS-232 and Centronics 



parallel versions are avail- 
able. 
Reader Service *-* 581 

Let's Draw 

Creative-Art is an ad- 
vanced utility to design 
graphics on your Model III. 
The program has over 25 
commands to let you draw 
circles, lines between points, 
rectangles, frames, and a sin- 
gle-key screen invert. Other 
commands include filling in 
and erasing parts of the 
screen, storing the screen in 
one of five pages of memory 
and displaying them later. 

The program also handles 
text. An alphanumeric mode 
lets you place text anywhere 
on the screen. This is helpful 
when you generate reports 
and graphs. You can store 
screens on either cassette or 
disk. The package includes a 
sample program to retrieve 
the screen from disk or cas- 
sette for use with your own 
program. 

Creative-Art is available 
for the Model HI for 16K, 
32K, and 48K cassette sys- 
tems, and for 32K and 48K 
disk systems. Both the 32K 
and 48K versions store more 
pages and handle more points. 
All versions cost $30 for cas- 
sette and $40 for disk. Con- 
tact Creative Software Enter- 
prises, Route 1, Box 222-A, 
Ana, IL 62906, 618-833- 
7797. All registered owners 
receive free updates for one 
year. 

Reader Service • 577 




The Dancing Sailors Plotter gives you two-color plots. 
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SuperSCRIKITc insert pgs for Mod III disk explains/ 
expands training manual; ALSO combines reference 

manual info. Includes chart $14.00 

Profile III Plus* 106 insert pgs for Mod III manual, 
plain English explanations/examples. 2 16x22 charts 
show where you're going . $14.00 

General Ledger insert pgs for Mod III Disk Manual. 
Tells HOW accounts interact and produce state- 
ments. 19x25 2-color wall chart shows Cycle. P&L, 

Balance Sheet. Terms $14.00 

THEORY Section of CL above Whys, How Comes of 
CL. 20 pages of pure Gen Ledger Theory $5.00 

• * * 2-COLOR 19*25 COMMAND WALl CHARTS " • 
Super SCRIPSIT* commands with explanations and 
tips in highly visible form . . $4.00 

VMCalcC ALL commands at a glance $4.00 

GL Mod III Disk helps grasp cycle, terms, P&L & Bal 

Sheet (index for manual) $4.00 

BASIC* most often used Mod III Disk com- 
mands with details, samples, examples . $4.00 
Plus Command* used to set up files, screens, reports, 
labels of Profile III Plus' $4.00 
I • Copyright* of Tandy or VfeJCorp or Microsoft 



Send cash, check, money order to: 

CREST SOFTWARE ^ 

2132 Crestview. Suite »6 • Durango. CO 81301 

(303) 247-9518 

Viw mc j' noted, include c*rd ■ and expiration dan- 

(Add $2.00 Shipping — We use UPS) 



Re-ink any fabric ribbon for 
less than 5C. Extremely simple 
operation. We have a MAC 
INKER for any printer. 
Lubricant ink safe for dot 
matrix printheads. Multi- 
colored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
satisfied customers. 

154" + 



Mac Switch lets yon share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors — never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals with 
MAC SWITCH. Total 
satisfaction or full refund. 

19900 




CSmmiter 



npui 
nds 



Mac Inker 
& MacSwitch 



100 N.W. 86th Ave. 
Portland, OR 97229 
503/297-2321 



Do your own taxes like an expert 
with TAX/SAVER! 



TAX/SAVER® The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type in your figures and you've done your own tax return. 

• Output to video or printer. (Compatible with overlays or NELCO 
official 1040.) 

• Tax deductible. 

• Manual: Tax information, lists of deductions, tax glossary. 

• TAX/SAVER® completes long and short forms, itemized 
deductions, interest, dividends, business income, capital gains, 
income averaging, self-employment tax, and the deduction for 
couples when both work. 

• 40% Discount on yearly updates. 

Reviews and Users' Comments: 

About TAX SAVER*: 

"This is a very valuable tool" — R. Perry. Personal Computing Magazine. 

"Tax Preparation Software '. December 1981 

"This is the perfect program for those doing taxes for others (. . .good for an 
individual, too!!) — B.M.. Missoula, MT (Professional Preparer) 

About TAX FORECASTER": 

"VERY HANDY!" — T Pettibone. Software Critic". 1982 



TAX/FORECASTER", a quick tax planner for 1983 1984, lets 
you see how financial decisions will affect your taxes. Merely 
change one or more entries to see your tax refigured. 

PROFESSIONAL TAX, FORECASTER" adds disk storage of 
client tiles and income averaging This tax tool is a must! 

Orders will be filled in late January to allow inclusion of new tax iaws. 

TO ORDER: 



"Cupyri9hi 1"*U 



'Kegisv red trademark 0: Tandy Curp 



Call collect 203-968-0933 or mail this coupon to: 
Micromatic Programming Co. 
Cedar Corners Station, P.O. Box 16735 "** 

Stamford, CT 06905 

Please enroll me in member's service and send: 

D TAX SAVER* (a- $149.95 Manual Included 

□ TAX FORECASTER" (6. $69.95 

□ PROFESSIONAL TAX FORECASTER" 

a $99.95 (requires 48Kl 
($15. off any TAX FORECASTER" with TAX SAVER") 
D Tax Form Overlays (set of 61 § $39 95 
Add $3.50 l>n postage and handimy. CI residents add 7 salts lax. 

□ Please send me more information 
Please check one 

TRS 80* Model I □ 32K. 2 drives □ 48K. 2 drives 
TRS 80* Model 111 D 32K. 2 drives. D 48K. 2 drives 













State 




*r 


□ Check 
Card No 


D Master Card 


D Visa 


h up rifltp 



S*» Ust of Advertisers on Page 291 
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DISKETTES 

Imaxi 



i.HHiiiiim 



95 ll/DD 
I SOFT SECTOR 

-r. SV «" 

aO DS/DD 

I SOFT SECTOR 



IIOUU IV (ilMIt HMl 



'VERBATIM •qftiect. 83." 



fMEMOREX 



• OPT IICT. 83.' 



'Add SS* 00 H * ndlin » ' n USA 

^£ C.O.D. 4S 

5 Q /o Tax in Fin. Only 

APO/Bdx No's & Canada 

Add 3. BO Shipping 

MEGA gj 6VT6 

• I N o ultf I I S V 

4699 S.Mf. 4Bth Straat 

Ft Laudtrdalt, Florida 3331 4 

30S-SB7-1 1 30 



1BOO-327-1Q1 3 



Oat ■ 
Library Cass 
With Es.Box 

or 



<}nJ& 



S*l.ao 



■ SaT PRICE — -7. ., r- 



maxell 



Buy 5 to 9 Bancs 



Mastic Storage ^\mff/^ 

Flip n File Box y^jl 

■Ida 78 Mini OlakaJ ' JW^/Vi 

■ l!?r o fe OFF , A Ll 



u e< 



maxell 



>t a 

Complete 

Computer 

laintamnoa Kit 

or 

^a im o »oOFF 



Clad inytln 



"A. 



•199 



tltr. Ouk-t 




Computer 
Protection 

KLEEN 

LINE 

CONDITIONER 



Prevents: 

• Computer Damage 

• Bros soul Interruptions 



• Lightning Spike Damage 

• Disruptive Line Noise 

• Program Errors 



Regulator • Filter • Suppressor 

KLR-250A 250 Watt Load $291.95 

K LR-250 A- 1 SO 250 Watt Load; Patented 

Filter Isolated Sockets $346.95 

KLR-500A 500 Watt Load $390.95 

KLR-500A-1SO 500 Watt I^ad; Patented 

Filter Isolated Sockets $445.95 

Shipping: $12.75 Land: $45.50 Air 

Ask Your Local Dealer 

£E7* Electronic Specialists, Inc. 

1 7 1 South Main Street. Box 389. Natlck. Massachusetts 01 760 



Toll Free Order Desk 1 -800-225-4876 

MasterCard, VISA American Express 






NEW PRODUCTS 
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No More Headaches 

Solve your complex prob- 
lems with Brainstormer, a 
powerful software program 
that helps generate potential 
solutions. The program works 
by building a description of a 
problem in terms of the themes 
and variations which affect 
its solution. Brainstormer an- 
alyzes the description of the 
problem to generate ideas for 
potential solutions. You re- 
fine the process by control- 
ling the occurrence of par- 
ticular themes and variations 
until the program produces a 
sufficient quantity of poten- 
tial solution strategies. Brain- 
stormer generates up to 10 
billion idea probes for any 
user-specified problem. 

Some potential applica- 
tions for Brainstormer in- 
clude increasing flexible 
thinking, discovering new 
products, targeting new mar- 
kets, and exploring organiza- 
tional problems. Brainstorm- 
er is available for Models I, 
III, and 4. It costs $50 for a 
single machine, $100 for 2-10 
machines used by a single or- 
ganization. For information, 
contact Soft Path Systems, 
c/o Cheshire House, 105 
North Adams, Eugene, OR 
97402, 503-342-3439. 

Reader Service f 567 

Video Upgrade 

Expand the video display 
on your Model III to 24 lines 
by 80 characters with Holmes 
VID-80 video upgrade. It is a 
plug-in printed circuit board 
that not only expands your 
display to 24 by 80 but that 
also lets you use the CP/M 
2.2 operating system. 

VID-80 features include 
56K of user memory (64K 
RAM), the ability to read and 
write numerous disk formats, 
8-inch drive support, CP/M 
compatibility, and UCSD 
P-system compatibility. 

The VID-80 board retails 
for $279.50, and the CP/M 
2.2 operating system sells for 
an additional $120. Other op- 



tions, such as an additional 
64K of memory (112K total) 
and the CP/M 3.0 operating 
system are also available. The 
board requires no trace cuts 
or soldering for installation. 
For further information, con- 
tact Holmes Engineering at 
5175 Green Pine Drive, Mur- 
ray, UT 84107, 801-261-5652. 
Reader Service ^ 552 

New Vision 

Get rid of your screen's 
glare and see what you're 
programming or writing with 
Panelgraphic's Video Filters. 
Treated with an anti-glare 
coating, the filters make a 
dramatic improvement in the 
readability of your computer 
screen. Characters boldly 
stand out on a professional- 
looking dark background 
without reflection. 

The filters are easy to in- 
stall with self-adhering tabs. 
They cost $19.85 each from 
Panelgraphic Corp., 10 Hen- 
derson Drive, West Caldwell, 
NJ 07006, 800-222-0617, 201- 
227-1500. Major credit cards 
are accepted for large orders. 

Reader Service • 570 

Terminal Emulator 
Program 

All you Models II, 12, and 
16 owners can now commu- 
nicate with Digital Equip- 
ment Corporation (DEC) 
host mainframes over asyn- 
chronous (dial-up) lines with 
the VT52 Terminal Emulator 
program. The emulator sup- 
ports all VT52 features and 
permits the use of any pro- 
gram requiring full-screen 
cursor control. 

Common applications in- 
clude interactive full-screen 
text editing, electronic mail, 
and the more sophisticated 
games. The emulator func- 
tions as a normal dumb ter- 
minal when communicating 
with non-DEC hosts. 

The VT52 Emulator costs 
$175, including a User's 
Manual and a keypad editing 




FINGER PRINT is a plug-in module 
that lets you instantly select 10* 
special print functions at your fingertips. 
Tap your printer's panel buttons to 
instantly select the functions you need. 
But, seeing is believing... 



dant to use cospressed to get sore coiuans on your spreadsheet" vou qot it 1 
h-l «s? «=e? crl «~\ doubl o-wx czl «=? r~ie?«=*cd± r~i<zj "P EI «=». S 
Want to emphasize print on your final dra-ft? No sweat! 

f i i e d o f p i •" 1 n t 1 n q o n t h e p e r f o r a t: i o n ? 



V 



With automatic perforation ski paver, it doesn't happen' 
W a d t t o a s e i t a 1 i c s t o m ake a paragraph stand oat '? S imp 2 e ' 

HrnrnH Fine Print tor s contract or (oolnotn on a raport? Mith Fln,ir p rint juit tap tha button*' 

Even combinations like doable emphasized italics are no problem/ 

That's just a sample of how FINGER PRINT turns your Epson MX 80/100 or IBM 
PC printer into a hard working printer.. .and FINGER PRINT has Buffer Clear and Left 
Margin Control, too! 

FINGER PRINT will not interfere with normal printer operation. ..and installs 
easily, without soldering. It comes with complete operating/installation instructions, 
control panel reference label, and it's WARRANTED FOR 1 FULL YEAR. 

*For Graftrax-Plus equipped printers. Italics and Fine Print cannot be selected on non-Graftrax-Plus models. 



$89.95 Look for FINGER PRINT at your 
local computer dealer. For the name of a 
dealer near you, or additional information, 
call (213) 914-5831. To order directly, 
call toll free: 800-835-2246, Ext. 441. MC/ 
Visa/COD orders accepted (include $1.50 
s/h...CA residents add sales tax). 




FINGER 

PRINT 

DRBSSELHAUS COMPUTER 

PRODUCTS 

We make technology easy to live with. 
837 E. Alosta Ave.. GIendora,CA91740 



We welcome dealer inquiries 



* See List of Advertisers on Page 291 
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THE SOFTCORE 
SOFTWARE CO. 

9 SoutHmoor Cifde. Kettering. OH 45429 



"TOO MUCH" 

FOR 
RADIO SHACK! 

Radio Shack REFUSED to 
include MISADVENTURE 
*1 in their SOURCEBOOK 
due to our description of 
the game! 



#0201 Misadventure #1 [Madam Rosa's Massage Parlor] 
#0202 Misadventure #2 [Wet T-Shirt Contest] 
'#0203 Misadventure #3 [Sewers of Moscow] 
'#0204 Misadventure #4 [Casino of Pleasure] 
#0301 Donne' Bugg [Adventure-decoder] 
'#0401 Mystery Of The Keys [COLOR computer only] 

•With Sound 

Our MISADVENTURE SERIES consist o( CHALLENGING and FUN 
adventure-type" programs that may occasionally be a bit naughty! 

MYSTERY OF THE KEYS for the color computer is a graphic puzzle as 
addicting as "The Cube" and similar to "The Link" 4k and up 

IN MISADVENTURE #1 the player has to make his way from the sleazy 
deserted WHARFS, gain admittance to the ancient SPEAKEASY, and 
attempt to discover the hidden photographs of the politician's beautiful 
daughter 1 Brave the deadly alleys, hallways, and traps. Avoid the 
BOUNCER and the other characters of questionable reputation! Play in 
the rigged CARD GAME if you dare! Discover why the old man died with 
a smile on his face! Find out why the WINO prefers cheap booze! Above 
all. try to escape without needing any iniections of penicillin! ! ! 

DOHNE' BUGG is our best-selling ADVENTURE-DECODER! Are you 
STUCK in a machine-language ADVENTURE GAME' This program will 
display on the screen all VERBS that interact in the game, all 
LOCATIONS & OBJECTS you will find, and all ACTIONS that result! A 
MUST FOR THE SERIOUS ADVENTURER! Note: will not work on Model 
III disk systems! 

All programs (except «0401) work on 16k MODEL I & III. * 379 

S15 EACH — we pay postage! 

Immediate shipment! Check, credit cards, or phone otter [12-4 p.m.] 
Dealers and Distributors welcome— please inquire. Hint Sheets Available! 



Service, Selection, & Price! 

Nobody beats us on Computer Systems. 



TRS-80 Model 4 Super Business System 

System Includes: 

• Model 4 64K 

• 2 Disk Drives 

• Okidaia 92 Printer 

• Super Scripsit & 
Printer Driver 

• Profile Plus 

• Printer Cable 

• Printer Stand 

• Lemon Surge 
Protector 

• Computer Dust Cover 

• Printer Dust Cover 



NEW PRODUCTS 




• 3200 Sheets Fan Fold Pape 

• Box of 3M Diskettes - 

• 3M Head Cleaner UMy 



List Price $3489 
$ 



2788 




SPECIAL HOLIDAY 
PRICES ON 

Color Computer, 
Model 1 0O, 
Printers for your TRS-80 
Accessories and Software. 

In Stock for Holiday Delivery! 

These are a sample of the computers & accessories we 
have in stock, ready to ship Don t give up service and 
selection — call us. The only thing we discount is price. 



ORDER TOLL FREE: 800-526-5313 
COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480-219 
In New Jersey Call 201-728-8080 ^133 




template. It is available from 
IMPACC Associates, P.O. 
Box 93, Gwynedd Valley, PA 
19437, 215-699-7235. 
Reader Service * 582 

Get Rid of the Surge 

The SL Protector from 
Transtector Systems (East 
5250 Seltice Way, P.O. Box 
1299, Post Falls, ID 83854, 
800^35-2537, 208-773-1521) 
is a transient overvohage pro- 
tection device designed spe- 
cifically for personal com- 
puters. 

Measuring approximately 
3 cubic inches, the SL Protec- 
tor plugs directly into any 
standard UO-voh outlet and 
accepts all standard, three- 
prong plugs. It automatically 
cleans incoming electrical 
power lines of overvokage 
transients and spikes, pro- 
tecting your computer's sol- 
id-state components from 
damage. The unit responds to 
a transient in five billionths 
of a second, and features an 
instant reset to provide con- 
tinuous protection. 

The SL plug is UL listed, 
sells for S99, and comes with 
a 90-day replacement war- 
ranty. 

Reader Service »^ 553 

Computer 

Carrying Case 

There's no need to be 
afraid to take your computer 
with you on your next busi- 
ness trip as long as it is safely 
packed away in one of the 
computer carrying cases from 



Cases Inc. They offer two 
hardware cases, the Flight 
Form and the C-Series case. 

The Flight Form case is 
made of high-impact ABS 
plastic laminated to plywood. 
The outer panels of the case 
are slotted to lock into ex- 
truded aluminum tracking, 
forming a protective cage 
around your computer. The 
corners are finished with 
riveted steel for maximum 
strength. This case is de- 
signed to withstand the most 
rigorous handling. It could 
probably survive the famous 
baggage gorilla. 

The C-Series case is de- 
signed for easy handling and 
convenience. It's made of 
Philippine mahogany cov- 
ered with a tough vinyl outer 
lining. It provides your com- 
puter with protection in less 
demanding traveling or ship- 
ping environments. 

Both cases feature form- 
fitted foam lined interiors 
and track mounts to hold 
equipment securely in place. 
They also accommodate 
books, papers, and software 
for your computer and you 
can specify custom interior 
configurations. 

The C-Series is available in 
either black or brown. Prices 
start at $120. The Flight Line 
cases come in white, black, 
and royal blue. It costs $284 
for the Model HI, $318 for 
the Model II, and $331 for 
the Model 12. Accessories in- 
clude special clasps, strap- 
ping, and even custom print- 

Conlinued on p. 316 




The Flight Form case: Now there's no excuse not to take your computer with 
you on your next trip. 
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Computer Shopper pages aren't sticK because they 
were designed tor one purpose, to put buyers in 
touch with sellers at the lowest possible cost This 
resulted in bargains on new and used equipment and 
software 

Individuals nationwide are able to list their pre- 
owned items tor onfy a few dollars This created hun- 
dreds of classified ads in over 100 big 1 1x14 pages 

And to make sure there were enough buyers for 
advertisers, the subscription price was set low too* 

So strike your first deal by taking advantage ol 
the low subscription price. 12 issues for $15 That's 
a $8 40 discount off the newsstand pnce Money 
back guarantee For latter service (MasterCard and 
VISA) Call 305-269-3211. -39 

camPureR shoppbr 

407 S. Washington Ave. • P.O. Box F587 
Titusville, FL 32781 



VITRMIN and 

MINERAL DEFICIENCY 

CHART 

Your coaputer all eneiuze your muvi to 192 questions 
corcermq your body and then prnt ■ chart tncwny probable 
defe*ncn» of 33 wtea»is and anerela plus proteri and fat 
Buck questions as. Do your eyes hurt arien you go out into 
the sun'' Is your hair beginning to grey'' Do you sleep eel? 
etc etc ) 

Cows cmpktt erth 58 questennares 50 ofer* Nutritional 
prograH form, instructor)* on i mipletng the Nutritional 
fores froa your coaputar generated chart, and an e»ee»ent 
instruction aanual and a 5 1/1 inch disk This prograa can put 
you into a business of your oan sating nutritional p'ograas 

*». a. BOX 31S TRQNfl. CALIF. 'JIS63 

rCR H0M15 I/III/H SW 619 372-5355 

c o o rw w*£Y rjprjcES $89.50 

RRE WSH CMOS ^ 14 q 



TRS-80 III / IV 

• BOOKKEEPER * 

Perfect For Small Business 
TIME DOME Has Preloaded File 

• SCRIPSIT MAILER • 

LETTERS - ENVELOPES - LABELS 
made by Scnpsit 

• SERVICE-BILLER * 

Bill By Rate Chart 
From To Date 

• BOOKKEEPING * 
MACHINE 

Printed LEDGERS STATEMENTS 
1400 Accounts Receivable 

$34.50 EACH PROGRAM 

(714) 774 9383 

M A. K WORKSHOP 

9791 ORANGE AVE 

ANAHEIM. CA 92804 ^287 




DISK BACKUP 

ONE MEGABYTE ON A C-60 

MODELS I or III 

includes D.sk to Onrt Copy 

Auto Mmad Density Recognition 

Supports most Double Density Boards 

Configuration Mode For Your System 

Hassle Free Cassette Recorder Operation 

Set Volume Control to Meaimum and Forget It 

Tape Disks at Computer dock Speed* to 4 MHZ 

Auto Retrieve! of Taped On* with Formatting 

vV« Backup Most Popular Dos Made Disks 

Includes Cassette Recorder Controller. 

Power Supply. Computer Ribbon Cable Disk & Manual 

Minimum Requirements Model i or III Computer 

One Dove Recorder with Cable. 32K of Memory 

NEW PRICES 

Bata-DTS Mdl I $109 95 & $ 3.50 H/S 

Bata-DTS Mill III $1 13 95 & $3.50 H/S 

Send tor free copy ot manual. "Reduced Size" 

BETA ENTERPRISES INC. 

14049 Settlement Acres Dnve 

Cleveland. Ohio 44 142 

(216)362-6191 " 25 



INVESTMENT SOFTWARE 



PORTFOLIO MANAGEMENT SYSTEM 

ideal lor the private investor Keeps tract* ot 
up to 200 stocks '00 options. 100 mutual 
tumls and 100 bonds Produces a 
comprehensive portfolio breakdown and 
printed portfolio summary $2995 

Investment Club Management System 

The perfect system lot pi i vale investment 
duos Handles a>< current club holdings, 
including up to 50 members 10 accounts 
200 slocks 100 options 100 mutual 'units 
and 100 bonds Produces complete reports 
including a portfolio summary smgie member 
status member listing and overall dub profit 
Summary $69 95 

Both programs are 100% machine language 
and require a 48K MOD l/lll/IV 2 disk drives 
and any 80 column printer Specify compute' 
and printer type when ordering 



RENRAD SYSTEMS - 24 « 

3205 MESA OR OCEANSIDE CA 92054 

(619) 721 6783 

Cash cr>eck or money order Add $2 50 

for postage and handling COD add 

S3 OO extra CA residents add 6% tax 



81 Dysan 

^CORPORATION 



Soke your daw. protoiema. bssy 100%euHac# 
•aaaed Dyaan dssfceHee AH order, chapped 
from elock. wMikn 24 hour*. Call toil FREE 
(800) 235-4137 lot prtcee and Information. 
VW and Maater Card accepted 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 (In Ca) call 
(805)543-1037) 



.-207 



R.I. ST Inc. ANNOUNCES 

SPEECH 
SYNTHESIZER 

<SALE> 



$59 



FREE 



MtA* im rowin 

form' 



P*M,t* a - I »»!■■, Pmujf.ini 
S|.i-i-i I. S.nlh.' .. . M. iiiu.il 



TRS80 Models I. Ill 

Apple II. II* 

ZX80/81 TS1000 

Com 64. VIC 20 

Ragulmrly 589.95 
Now Only S59.95 

Complete or Starter 
Kits Available 



' 10 Day Money-Back Guarantee " 
Send Cher » o' M O COOaddSl SOlo HIST inc 
Oepi GZiO 3 PO 8<j«499Ft Hamilton station 
Bioomyn NY ' 1209 ?i? 259-4934 ^388 

NYS RESIDENTS ADD 8 .*• tax 




ATTENTION DEALERS! 

RS-232 BOARD FOR TRS-80 

MODEL 3 or 4 



Functionally equivalent to the Radio 
Shack RS-232 Board. Meets E1A RS- 
232C specifications. Programmable 
baud rate from 50 to 19.200 baud. 
Programmable parity Word length 
and stop bits. Full or half duplex oper- 
ation. 

mimfiCE (303) 794-2074 

TECHNOLOGY inc 
5994 South St Paul Way 
Littleton. CO 80121 

Volume discounts 
available. 



One year 
warranty. 



.88 




TRS-80 

COMPUTER 
DISCOUNTS 



Factory Direct 
Best Prices Anywhere 
No Out-of-State Taxes 
100% Radio Shack Warranty 
Free Price List 

SCOTT TASSO 
ASSOCIATES 

175 E North Delsea Drive 
Vineland. N J. 08360 
800-2570426 
NJ 609-691-7100 ^510 



• See Ust ot Aoverr/sers on Page 291 
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MODEL 4 DRIVE KITS $299 



MODEL 4 STUFF 
MODEL 4 COMPUTERS 

all include an RS232 

No charge for shipping on any Compuklt Computers 

64K one single headed drive J7495. 

64K two single headed drives Jt695. 

64K two double headed drives $1895. 

128K aystems add only $99. 



MODEL 4 64K UPGRADE $62.95 
64K TO 128K UPGRADE $82.95 

prima grade pro-tested RAM with instructions 



MODEL 4/III RS232 KIT $69.95 

completed and teated ready for installation 



Model I, III, 4 green phosphor 
antiglare CRT Kit $89. 



a complete new CRT, not a filter 



MODEL 4 DISK DRIVE 
UPGRADE KITS 

All of the Compuklt Model 4 Disk Drive Upgrade Kite 
contain these features that other companies usually do 
not provide. Switching power supplies * Tandon disk 
drives * 64K of Modal 4 RAM * Sound * and an Easy to 
Use installation Manual. Requires only a screwdriver (no 
soldering) The no drive upgrade 

kit S299. 

One drive upgrade kit $499. 

Two drive upgrade kit $699. 

Two double headed drive kit S699. 



MODEL III to MODEL 4 
UPGRADE $750. 

Converts your Modal III into a Modal 4 (except for 
Cabinet and dlak drives). Includes new keyboard, 64K 
RAM, Sound, and free Installation (required). Ship ua any 
working Modal III, even if it'a not all factory equipment, 
and gat back a Modal 4, in your case. 



£ 



a* 



MODEL III DISK DRIVE 
UPGRADE KITS 

All of the Compuklt Modal 3 Diak Drive Upgrade Kite 
contain these features that other companies usually do 
not provide. Switching power supplies * Tandon diak 
drives * 32K of Modal III RAM * Compukit Doctor * and 
an Easy to Uae Installation Manual. Requires only a 
screwdriver (no soldering). 

The no drive upgrede $279. 

One drive upgrade kit $47g. 

Two drive upgrade kit $579. 

Two double headed drive kit $879. 

TANDON DISK DRIVES 

Perfect for replacement or add on drive for Any 5 " drive 
ayatam. 

TM100-1 40 Track Single Sided $199. 

TM1 00-2 40 Track Double Sided $299. 

TM50-1 20ms trk-trk Single Sided Thinline $149. 

TM50-1 6ms trk-trk Single Sided Thinline $169. 

TM50-2 6ms trk-trk Double Sided Thinline $219. 

T M55-2 microprocessor Double Sided Thinline $249. 

Single case with extenders with drive above $49.95 

Dual caaa with extenders for drives above $79.95 

Two Drive Cable $24.95 



64K COCO KIT $62.95 



COCO DRIVE O 

$379. 

with a Tandon Thinline 

SPECIAL INTRODUCTORY PRICE 

DUAL DRIVES $529. 






*te 



MODEL 4 SOUND UPGRADE 
$29.95 

No soldering required. Includes instructions 

COMPUKIT DOCTOR $29.95 
Dlak baaed diagnostic software package for the Modal I, 
III, and 4 




COMPUKIT CORPORATION 



WdWkaj Inlormatkoo 

w assajl vim, Wm mmmt, fJaa fsjaa l sm sal 0— tot Cassai lei aeMWei 

•Npptng. Oi*mi received on penonal checks are IwM tor ctoarencc. 
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1-71 3-480-6000 order line 1-800-231 -6671 
16206D Hickory Knoll, Houston, Texas 77565 



COMPLETE MODEL lll/IV 
HARD DRIVE $1095. 



COMPLETE PRIMARY DRIVES 
MODEL III & IV 

5 MEG $1095. 
10 MEG $1395. 
15 MEG $1695. 

MODEL I & LNW 

5 MEG $1145. 
10 MEG $1445. 
15 MEG $1745. 



^ 



COMPLETE SYSTEM FEATURES 

TANDON DISK DRIVES 

WESTERN DIGITAL 1002 DRIVE CONTROLLER 

ONE YEAR WARRANTY 

SWITCH SELECTABLE HOST 

POWER ONE HD POWER SUPPLY 

HD COOLING FAN 

SIZE 8 1/4"X6V2"X13" 

ALL DRIVES RATED AFTER FORMAT 

COMPLETE READY TO PLUG IN (JUST ADD YOUR DOS) 

SUPPORTS NEWDOS 80 V2.S, DOSPLUS 3.41, 4.0, 3.5. IV, LDO 

and soon TRSDOS 6.0 

SECONDARY DRIVES 

5 MEG $695. 
10 MEG $995. 
15 MEG $1295. 

(READY TO PLUG INTO YOUR PRIMARY DRIVE) 



33 MEG MODEL PRIMARY 

HARD DRIVE (BY QUANTUM) $2395 

MODEL I & LNW $2445. 



NEW PRODUCTS 

READY FALL 83 CALL ON A VAIL ABILITY 

21 MEG TAPE $649. 

Will Work on any Hard Drive System That uses DOSPLUS or NEWDOS 

MODEL 3/4 BOOT ROM $39.95 

ALLOWS YOU TO BOOT DIRECTLY FROM YOUR HARD DRIVE 
FOR DOSPLUS and NEWDOS SYSTEMS ONLY 

MULTIPLEXER $995. 

ALLOWS UP TO 4 COMPUTERS TO ACCESS A HDS HARD DRIVE 

Includes Master Control Unit and Cable I Host Adapters tor externally 
connecting 2 Computers 




HARD DRIVE SPECIALIST adi " isionof Compukit Corporation 



1800-231 6671 

** SeeUstof Advertisers on Page 291 



1 713-480-6000 



16206D Hickory Knoll Houston, Texas 77059 -« 
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The Perfect 

Companion 

For Your 

New Portable Computer 

There's a new and exciting computer on the block — Radio Shack's 
TRS-80* Model 100 Portable Computer It promises to be one of the 
most significant advances in personal computing of the 1980s 1 

And. now, there's a new and just-as-exciting magazine specifically 
devoted to your Portable Computer It is called PCM— The Portable 
Computing Magazine, and it is published by the same people who bring 
you the most popular Color Computer magazine In the world — the 
Rainbow 

PCM— The Portable Computing Magazine sells for S3 per copy and 
S28 a year by subscription If. after seeing your first issue, you find it is 
not for you. just let us know We'll happily, cheerfully and immediately 
refund your entire subscription payment We're that confident that you'll 
love PCM After all. it is The Portable Computing Magazine! 



PCM 



THE PORTABLE COMPUTING MAGAZINE 



9529 U.S. Highway 42 

P.O. Box 209 

Prospect. KY 40059 

(502) 228-4492 

YES! Sign me up for a year 1 1 2 issues) of PCM— The Portable Computing 
Magazine 

Name 

Address 

City 



Stale 



O Payment Enclosed 
Charge □ VISA 

Account » 

Signature 



Zip 



□ MasterCard □ American Express 
Interbank # (MC only) 



Card Expiration Date — 



Subscriptions lo PCM— The PortaW* Computing Magaxm* are $28 a year in 
me Un.ied Slates Canadian and Mencan rate is S35U S Surtacerateeisewnere 
S64 U S Air mail S85 US All subscriptions beqm with the current issue Please 
allow f>-6 weeks lor first copy „ 

►-296 



NEW PRODUCTS 



FREE 

business software 
directory 

• Radio Shack's Model 1, 2, 3 & 16 

• CPM: Xerox, Alto... 

• IBM Personal Computer & compatibles 



"(DBMS) is GREAT!" 



-publisher of 80- US 



"(GL) superior to either the Osborne (SBSG & Taranto) or 
Radio Shack ... MA1L-X has a greater capacity. ..more 
flexible than (R.S.)" -columnist of 80-microcomputing 



"imperceptively fast . 
workhorse" 



(DBMS) is a good and reliable 
-publisher of Interface Age 



Data base manager, integrated accounting package (AR, AP, 
GL & Payroll), inventory, word processing, and mailing list. 
Compare and be selective ! Top-quality software at mass- 
production prices ! 



&S 



Micro Architect Inc. 

6 Great Pine Ave. Burlington, MA 01803 

617-273-5658 



• 149 
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ed logos. To place your order, 
or to inquire about a custom- 
ized case, contact Cases Inc., 
13102 Stone Ave. North, Se- 
attle, WA 98133, 206-365- 
5210. 
Reader Service • 566 

Computer Talk 

Modems have been placed 
on a diet at Universal Da- 
ta Systems! Their new LP 
modem series is entirely pow- 
ered by your telephone line, 
eliminating the need for 
bulky, heat-producing power 
supplies or plug-in power 
modules. This results in a 
functional and attractive 
low-profile design that pro- 
vides full modem features in 
a sleek, under-telephone 
package. 

The five modems in this 
line each measure about 1 by 
6 by 9Vi inches, and use a 
standard RS-232 connector. 
They are designed for easy 
operation: A mode switch in- 
vokes answer or originate 
operation, and a talk/data 
switch simplifies transfer of a 
telephone call to the com- 
puter, allowing you to switch 



from voice to data communi- 
cations. 

Prices for the LP modem 
series range from $145 for the 
0-300 baud modem to $445 
for the 1200 bits per second 
model. All are available from 
Universal Data Systems Inc., 
5000 Bradford Drive, Hunts- 
ville, AL 35805, 205-837- 
8100. 

Reader Service • 578 

More Memory 

RAMPAK is a 64K RAM 
upgrade for the Model 4. It is 
available in two different ver- 
sions: RAMPAK-I to upgrade 
a 16K to a 64K, and the 
RAMPAK-n to upgrade from 
64K to 128K. The latter al- 
lows programs like MEM- 
DISK to take advantage of 
the Model 4's bank switching 
mode throughout the entire 
128K. They cost $96 and $1 10 
respectively. 

For those of you who want 
to upgrade from 64K to 128K 
using your own 64K RAM 
chips, RAMPAK-PAL, a pro- 
grammed array logic chip, is 
available separately. It costs 
$34.95. 




The LP modem series from Universal Data Systems. 



VA •- &wm.RmMter l fm 



MIKROKOLOR 

TRS-80* MODEL 100 COLOR GRAPHICS 

High resolution color graphics lor graphs, charts, games, 

animal ion. business applications, teaching, scientific 

display. Allows full sized color text and graphics as featured 

in 80 Micro magazine. May & June 1983 

Display on any sized Color Monitor or Color TV with 

modulator. 

256 x 1 92 Color Graphics ■ 1 5 colors plus transparent 

3 dimensional Sprite planes - Simultaneous display 
of planes 

4 Modes of operation available: 
1. - TEXT: 24 lines - 40 characters per line. 6x8 

matrix, 256 user def ineable characters 

2 - MULTICOLOR 64 x 48 Color Graphics, 

3 - GRAPHICS t: 256 x 192 Color Graphics, 24 

lines - 32 characters. 8x8 matnx. 2 colors per 
character 

4 - GRAPHICS 2 Same as Graphics i except 16 

colors per character. 



SPRITES: Active in all but text mode, 32 prioritized 3-0 
planes, 15 colors plus transparent, easily provides 
animated graphics with simultaneous display of all sprites 
Composite Video Output (NTSQ. Comes with sample 
programs and instructions. No hardware modifications 
necessary, plugs into expansion socket Uses Texas 
Instruments TMS9918A Video Display Processor. On 
board RAM uses no system memory space 

User manual only - S5.00. Money Order, COO, checks or 
credit card Personal checks must clear. COD add $2.00. 
Visa Mastercard add 4%. Calif, residents add6% sales tax 
DEALER INQUIRIES INVITED. 

$235.00 Assembled and tested. 

$195.00 Kit with instructions 

•TRS-80 Trademark of Radio Shack/Tandy Corp. 



ANDREASEN-S ELECTRONICS RESEARCH & DEVELOPMENT, Inc 

Technical Assistance: Box 5686, Vandenberg, Ca 93437 

To Order 1 548 Monterey St, San Luis Obispo, Ca 93401 ph (805) 541 -6398 - ' 172 



VSS-80 

Viewgraph Slide System for Business, School & Home 
For your TRS-80 Model I/III . . . $79.95 

• Efficient Viewgraph Data Base 

• Hi-speed Graphics including 4 shadings 

• Supports many popular printers 

FUTURE PROJECTS CORP. (203) 775-3062 

P.O. Box 11, Hawleyville, CT 06440 



PACKER Machine language program that edits all or pari 
of your Basic program to run faster save memory, or 
ease editing The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic, inserts spaces and renumbers lines 
SHORT— deletes unnecessary words, spaces, and REM 
statements PACK— packs lines into maximum multiple 
statement lines including all branches MOVE— moves 
line or blocks of lines to any new location on program On 
2 cassettes for 16K 32K & 48K 
For TRS-80 Mod I or III Level II or Disk Basic $29 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM format 
tapes Includes verify routines The Model III version 
allows use of both 500 and 1500 baud cassettes speeds 

For TRS-80 Model I or III Level II 515 95 

CASSETTE LABEL MAKER A mini word processor to print 
cassette labels on a line printer includes 50 peel - and - 
stick labels on tractor teed paper 
Fqr TR-80 Model l of III Level II & Printer . S17 95 

PRINT TO LPRINT TO PRINT Edits your Basic program in 
seconds to change all Prints to LPnnts (except Print<a or 
Pnnt*i or LPnnts to Prints Save edited version 

For TR-80 Model I or III Level II S1295 

FAST SORT ROUTINES for use with Radio Shacks 
Accounts Receivable. Inventory Control I. and Disk 
Mailing List Systems for Model I Level II Sorts in 
SECONDS' You II be amazed at the time they can save 
Supplied on data diskette with complete instructions 
FAST SORT tor Accounts Receivable ... Sl9 95 

FAST SORT for Inventory Control I $19 95 

FAST SORT tor Disk Mailing List (specify data diskette of 

cassette tor i drive system) S14 95 

ALL THREE ROUTINES $44 95 

Prices subject to change without notice Call or write for a 
complete catalog Dealer inquiries invited VISA and 
Mastercharge accepted Foreign order in US currency 
only Kansas residents add 3°° sales tax 
On-line catalog In Which it a FORUM-80: 31P>«82-21 13 
Or call our 24 hour phone (316) 683-4811 or write: 



COTTAGE SOFTWARE 

614 N HARDING 

WICHITA KANSAS 67208 
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TRS-80 is a trademark of Tandy Corporation 
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cornpuSfTTe 

AT WHOLESALE PRICES 

-Thousands of Satisfied Customers- • 
Computer Hobbyists-Public School Districts-Government Agencies 



Blank Diskettes 

Soft Sector-Single Sided- Double Density 




ill 



*22?* 



20 



$J99* 



50 



$ VJ* 



100 



•fit* 



^^nTusforr^ yTe^nue/ope^rH^ 
10-pack CustorrfCase *3 50 50-pack Case *22« 



ITS SHIPPING (10-201*3 150 100) *6 




—~> 1 





Blank Cassettes 


—> 




100% Error-Free 


& Fully Guaran 


teed 


1 rivil h 


12 


21 


*>h 


J Mi- 


".00* 


C-05 


.69 


.59 


.49 


ll 


36 


C-10 


79 


69 


.59 


.49 


.39 


C-15 


.89 


79 


69 


.59 


.49 


C-20 


.99 


B9 


.79 


.69 


.59 


C-30 


1.09 


99 


.89 


.79 


.69 


Box«f 


.26 


.21 


.20 


.16 


.13 


"250/500 Quantities without labels. 


With labels Add 4C 


UPS SHIPPING 


llM i 








^ 










J 



200 '4 1 *' " "'. shipping & handling 
1000 s 18 ,s ' *3 shipping 4 handling 
These labels are for cassettes 

2665 E. Busby Road 

Oak Harbor, Wash., 98277 „i32 



TAPE-PACK SPECIAL 

6 Each: C-5, C 10. C-20. C-30 




Tape 
Caddy 

r M 5l-.pi 




pping & handling 



£*iJ^ '/uJWj-^ 



Orders 1-800-553-0035 Ext 80 
ONLY 1-800-528-6050 Ext 3005 

Inquiries 1-206-675-6143 



*■ St* List ot Advertisers on Page 291 
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WIBASIC 



TM 



^ "WITTSOFT INTEGER BASIC 4> 

GENERATE MACHINE CODE USING BASIC! 

Machine code runs hundreds ot times (aster than BASIC - but is difficult and 
time consuming to write Basic programs can be written quickly - but run slow 1 
Now you can write and debug your programs in WIBASIC - then compile to high 
speed Z80" machine code 1 

POWERFUL 

WIBASIC isn't a patch to disk basic - it is a fully interactive memory 
resident interpreter compiler, and editor' It doesn't use high memory so device 
drivers, utilities, and USR routines are compatible 

Perfect for generating GAMES, UTILITIES, USR routines or other 
applications that require the speed of machine code Compiled programs run on 
the Model I or III using most any DOS' It supports most BASIC statements and 
functions using integers and strings (including multidimension arrays'), but 
does NOT use floating point operations or functions It is NOT suitable for busi- 
ness or scientific programming but could be used to generate USR routines to run 
with such programs 

UNDERSTANDABLE 

Over 1 00 pages ol documentation cover all aspects of the system From a step 
by step walkthrough of a sample programming session to modular programming 
techniques and program chaining for advanced users We've even documented the 
subroutine entry addresses to allow assembler programmers to combine compiled 
and assembled programs' 

AVAILABLE 

On unprotected disk with manual for TRS80* l/lll $89.95 

Add S5 lOverseas S1 0) Postage & Handling 




1 302 - 41 st Street • Orlando, Florida 32809 

TO ORDER ^337 

Send Check or Money Order Credit Card orders include acct number and exp 
date or call TOLL FREE 1 -800-327-4459. FLA residents or technical 

queries call 1-305-423-5683. FLA orders add 5% sales tax 
•WIBASIC'- WittSoft Inc Z80» Zilog Inc TRS80* Tandy Corp ; 1 983 WittSoft 



Checkbook-Checkwrtter H H available 'or 
TRS-80 - MOOC 
TRS-80' Cokx Computer 







NEW PRODUCTS 



I — ^T Product Continuous fan folder: 
Vl check! *'tH On-wmaowea 
t-i- J envelope* chec*boc* 0'nder and 
software designed esoecu 
outer um 'O the home. Vou can t get con- 

flCK anywhere I 
world. 

r— yf Savings: Special package - m 
Y eluding software — to get you 
L-S — ' started 900 checks, i00 envelopes 
and srnder- 559 95. 500 checks, 300 
envelopes and hmder $79 95 BoM 
our versatile Checkbook Check-writer II 
program that wil nave you printing your 
checks trie aay you receive them 

SPECIAL BONUS 

• Each SSOtri customer— 50 \ erf your oreer. 

• Each 500tf\ customer —vour coer *r* 

• Eicri 1 OOOth customer vout or J. 

and free chee* reWs for Me. 



firf 



uarariTee. Our checks and ac- 
cessories are guaranteed to please 
you and guaranteed compatible 
with your bank In fact, if you order a 
special package and aren't satisfied 'o> 
any reason simply return it for a full refund 
(including postage) and you can keep the 
Checkbook<heck-wrtter II program 

Now CHECK WITH US ..Order a special 
package with moneyback guarantee 
ist enclose a voided check for 
encoding information with your order Or 
send today for our free information 
package We guarantee you'll be pleased 

M C , AWEX orders welcome 
Shipping S9 00 USA, $5.00 Outside USA 



.230 



SYNERGETK SOLUTIONS 

4715 SHEPHERD RD • MUlBf «V. Fl 33860 • PHONE 813:6*6 655! 







All upgrades are available 
from VR Data, 777 Hender- 
son Blvd., Folcraft, PA 
19032, 215-461-5300. 

Reader Service * 575 

Options on Options-80 

Options-80A is an ad- 
vanced version of the Op- 
tions-80 program, a tool to 
maximize investment return 
on stock options. This newer 
version includes Black-Scholes 
modeling, phis expanded han- 
dling of covered option writ- 
ing and put option spreads. 
You can enter prices in frac- 
tional form, and print graphs 
in alphanumeric symbols so 
that you can use any printer. 
Plot or tabulate returns as a 
function of either actual or 
annualized percentage change 
in underlying share price. 

Another feature of Op- 
tions-80A is analyzing invest- 
ment return on puts, calls, 
and spreads while taking 
account of commissions, 
risk, dividends, and time-cost 
money. 

Both Options-80 and Op- 
tions-80A are available for 
Models I, III, and 4 with disk 
drives. They cost $125 and 
$170 respectively plus $5 for 
post and packaging. Send 
your orders to Options-80, 15 
Stow St., Concord, MA 
01742. 

Reader Service • 569 

Complete Protection 

Now you can protect ail 



your voltage-sensitive equip- 
ment from power surges and 
spikes with PTI Industries' 
Protector. The plug-in unit 
offers 0.1 nanosecond re- 
sponse time to surges and 
provides complete noise fil- 
tering from 100kHz to 
lOOMHz. 

The Protector is the first 
unit to offer brown-out noti- 
fication when the line voltage 
drops to 100 volts. A reset 
button safeguards your equip- 
ment from initial line surges 
that inevitably follow a black- 
out condition. 

This surge, noise, and 
brown-out protector costs 
$69 from PTI Industries, 
4740 Scotts Valley Drive, 
Scotts Valley, CA 95066, 
408-438-3870. 

Reader Service • 564 



The Big Switch-a-roo 

The Mini-T-Switch lets 
you reduce the number of mo- 
dems and printers in your use 
by almost half, while still al- 
lowing you virtually endless 
system configurations and 
fast CPU-peripheral hook- 
ups. How? The unit has two 
T-switches, each of which 
can enable two peripherals to 
share a common third com- 
ponent or a CPU I/O port. 

It functions either as a 
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A fast (0.1 nanosecond response 
lime) surge and spike protector. 



Switch between your computer and 
its peripherals with the AB Mini 
Switch. 



CHURCH DONATIONS 



Computer Program for TRS 80 

Model! I. II. III. IV. 12 * 16 

IBM/PC 



-307 



RECORDS. STORES * REPORTS 

Gtves printout ot collections totals to date as wet as 

individual quarterly reports to congregation members 

•NOW AVAILABLE* 

Additional module* to provide 
Church Directory 
Word Processing 
Attendance Record 
Membership Profile 
General Ledger 

Radio Shack •*•*■»> 
Five-Star Rating 

Designed to fulfill administrative a financial reporting 
and record keeping needs of churches 



CUSTOM DATA 
Depl AC 
505-434-1096 



301 Eleventh Street 

P.O. Box 1869 

Alarnogordo.NM 88310 



SEND AND RECEIVE 

MORSE CODE 

•TRIPLE SPLIT SCREEN 
•SPEED: 1-200 WPM 



This outstanding 4K machine language program tor your 
Modal I. Ill or 4 hat • type ahead outlet active whMe 
copying. The computer generate* the tone ao only an 
audio amplifier li needed. A transmitter may be keyed. 
Send from keyboard. • messages, at random, or repeat. 
Received Morse Is decoded, displayed, and printed. I/O Is 
through the cassette Interface. Morse cursor* a. other 
feature*. 

Sltuttction guirmtud or your money back 

Cassette with instruction booklet only $19.95 
postpaid. 16k required 

ROGO Computer Product* 

4752 DeBeers Drive 
El Paso. Tt»M 79924 •" 343 




SAVE BUCKS 

ON VERBATIMS 

$25.95 ■ 

5 YEAR WARRANTY 



3l 



S/ng7e Sided / DOUBLE DENSITY SOFT SECTOR 
VISA and MASTERCARD ACCEPTED 

COMPUKIT ~— 




Subscription 



80 Micro does not keep subscription 
records on the premises, therefore 
calling us only adds time and doesn't 
solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 



BOmicrc 



® 



Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and enioy your subscription 



DISKETTES 

$15.95/boxofio- 

•5 25- SINGLE SIDED. SINGLE DENSITY 

MANUFACTURED BY ONE Of THE 

WORLDS LARGEST PRODUCERS 

ALL DISKETTES ARE SOFT SECTORS 

EACH DISKETTE IS CERTIFIED ERROR FREE 

5.25" SSOD $18.95/ BOX OF io 

5 25" DSDO$22.95/BOXOF10 

TWO BOX MINIMUM ORDER 

PLEASE ADO $1 50/BOX SHIPPING & HANDLING 

DEALER ANO CLUB INQUIRES INVITED 

(312)490-9239 
SHEPHERD MARKETING 

HB^, P.O. BOX 941339 

'"mjTj SCMMJM9UR6. ■.99194 

IL RES PLEASE ADO 6% SALES TAX 



GRADE BOOK 



• Disk program (one disk required) 

• Simple comprehensive 

• Teacher designed and acclaimed 

• In use for over 3 years 

• No computer knowledge required 

• Line printer optional 

• Guaranteed 



IBM-PC 
•36.95 



TRS-80 l/lil 
•34.95 



APPLE I 
•36 95 



Bram CompuTeasers IBM-PC APPLE *19 95 
Testmaster Series IBM-PC *19 95 each 
Boggei Word Game IBM -PC l 10 95 
Jeopardi TRS 80 I/Ml *9 95 
Factor Label (CAI) TRS 80 i/ni »29 95 
Grade Pomt Average IBM TRS-80 *7 95 



m 



COM PI 1 1\(. 



Dept 2 



SAVE MORE 

THAN EVER ON 

3M Scotch 

DISKETTES! 



BJoty20 1745,— ^ajQty. 20 

5' « SSQO— 96TPI 1 746) S2.89 ea 

5' 4 DSQD-96TPI (747) J3.95 ea 

iSpeoty soft 10 or 16 sector ) 

8 SSSOI740) $2.07 ea 

8 SSDO(74t) S2.54 «m 

B OSDO (743) $3.30 ea 

(Specify soft or 32 sector ) 

Save even more on quantity order*! 

Minimum Oder 20 Osaettes Add $3 00 shipping 

per 200 diskettes COD charge St 65 additional 

Visa • Mastercard • Checks 

For fast service, call 

DISK WOULD! 

Nationwide: 1 -800-621 -6827 

In Illinois: 312-944-2788 

DISK WORLD! " 348 

Suite 4806 • 30 Easl Huron Street • Chicago Illinois 606' 



AuttwnreO Distributor 
Information Processing Products 



^ S— List ot Adimtisers on Page 291 



Drain., ng 



Bnarc 



» Cycles unea. Pamsjrush. T ert Animation 
• Fill Mirror Image. Inverted Screen. Enlarge 
• Ssvn graphics » BASIC program 

• Screen dump to printer full or hall size 
• Disk or tap* storage 
e Model i. ill. 4 
* Documentation included 



Tape $24 99 



Dis«S2SS 



Manual only S5 00 



Send Chech or Money Order (Indicate model) 
J I A Alloc uln 

P.O. Baa iaa* 
Wh..:on Stltion M.ryl.ntt 20*02 

• Purchase price may Oe applied to tape or disK at later dal 
Maryland residents add 5% sales tax 



DATA COMPACTOR 

Increase data storage capacity 

1/3 to 100% without using 

machine-code! 

These routines are written in BASIC 

SOURCE CODE which may be 

integrated into user's programs in 

direct sequence or as subroutines 

This manual will show you how to 

do it yourself. 

Send $49 95 8. $2.00 USA shipping 

Demo disks available with mergeable 

routines for CP/M or TRSDOS 

compatible routines for TRS-80. 

II. or III. 

Specify CPM or TRSDOS 8. add $ 1 9 95 

for S'/t" disk or $24.95 for 8 disk 

Dealers Invited Hi C 
EDWARDS L ASSOCIATES 
P.O. BOX 42 1 58 
COLUMBIA, S.C 29240 
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COPYCAT 

Disk backup utility 



Now you can have a solution to the problem of 
protected software backup. 

COPYCAT* is the most powerful disk backup utility yet 
designed for the TRS-80 Computers. It will automatically 
make a fast, exact copy of your master disk regardless 
of protection schemes used including CRC errors, dual 
density tracks, mixed sector lengths and irregular I.D. 
pack. 

COPYCAT* is intended for your personal use only in 
making backup copies for your valuable protected soft- 
ware. 

COPYCAT' runs on a 48K, 2 disk drive TRS-80 
models 1,111 or 4. Specify model number when ordering. 

All orders are processed within 24 hrs. 
Non-certified checks require (2) weeks for bank clearance 

COPYCAT© . $ 34.95 

Add $2 00 for postage and handling 
California residents add 6% sales tax 

OMNISOFT R€S€flRCH 

2170 W. Broadway, #501 A 

Anaheim, CA 92804 

(714) 772-5000 

Dealers inquiries welcome 



^36 



NEW PRODUCTS 



DllnDATo 

OvuV 

The Disassembler That Ever 



Disassembler That Even 
Tracks Down DATA!!! 



Outputs 



instead of the meaningless 'equivalent' . ^^ 



H37F7 DEFM Cass^ 
DEFB 03H 



AB25 LD BE 
ID H.C 
LD (HL).E 
LD (HL).E 
CCF 

JFt NZ.S'5 '.etc 
' AUTOMATICALLY identities such data areas 

• Outputs tuiiy-iabeied Radio Shack 'or APPARAT"eDTASM' -format code to 
display, printer cassette or disk (Printer output fully paginated I 

» Relocates itself to any desired RAM area up or down by as little as one byte or 

as many as required 
» Loads programs from cassette Or disk and displays entry points 

• Runs on TRS^BO Model I {Level II). Model III. or Model 4 (in Model III mode). 
16K or more, cassette or disk 

• 1354-12 (Model l/lll cassette Version 2) $34 95 

■ 1354-22 (Model Ml 4 diskette. TRSDOS' format Version 2) $39 95 

Registered Trademark Tandy Corp " Registered Trademark APPARAT inc 



Copies vi rtu a I ly all formats of cassette files 111 \C3CJ 
< AUTOMATICALLY senses input cassette density 1 " (Model III) 
i Allows Mod ill user selection of output density each file 
• 1366-10 (Model U 1 1 cassette) 




Profeswonal Software lor both Novice and Expert 




Software 



To order phone (513) 435-4460 
(M-F 9am -5pm EST) or 
send check or money order to 

Pro/ Am Software 
220 Cardigan Road 
Cenlervitte. Ohio 45459 

• 260 



Visa and MailerCard accepled 
Wnen ordering via card include card 
number expiration dale, your name. 
address and phone number 
dSOfth 



Mppmg i 



I S F unUS only *00 M 00 
15 00 

COO orders S3 00 additional per .1 
Oft.0 res>dents piease add 6S Sates 



i pe* flan 



desktop unit or in a 19-inch 
rack. Its nigged rotary switch 
with silver alloy-plated con- 
tacts is rated at a 10,000- 
operation life expectancy. 
The aluminum enclosure con- 
trols EMI/RFI emissions. 
Each module has an interlock 
for quick and easy installa- 
tion. You can piggyback the 



device to increase computer 
productivity. 

The Mini-T-Switch is 
available for a risk-free 
45-day trial period in versions 
compatible with either coax- 
ial or EIA RS-232 connectors 
priced $125 and $230 respec- 
tively. For further informa- 
tion, contact Inmac, 2465 



DIFFEREN'Prj^cK 




Take your frustrations out on your computer with Byte Bat. 

Bash It Up! 

Every one of us, at one time or another, has felt com- 
pelled to smash the video screen on our computer. Some 
of us (admit it) have even done so . . . but the pleasure de- 
rived from such actions was short-lived when the bills 
came in. Now you can beat up your computer to your 
heart's content with the Byte Bat. 

Specifically designed to serve as a frustration shunt, 
the Byte Bat features a number of digital interface 
modes, plus BAUD rates (Basic Aggressive Units of Dis- 
satisfaction) from one to 12,675,432. The device is com- 
patible with all computers and operating systems, mak- 
ing it the first universally compatible foam ware. 

Each kit comes complete with one Byte Bat, a poster 
showing the device in use, a button, a user's manual, 
and a warning decal that alerts all who approach that 
"This computer-friendly liveware is protected by Byte 
Bat." The Byte Bat is sold for $9.95 from your local 
computer dealer. If they are out of Byte Bats you can or- 
der your own for $12.50 from MicroTie Systems Corp., 
P.O. Box 8112, Walnut Creek, CA 94546, 800-227- 
3900, 800632-2122 (CA). 

Reader Service v 574 



New product listings are based on information sup- 
plied in manufacturers' press releases. 80 Micro has not 
tested or reviewed these products and cannot guarantee 
any claims. 
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Complete Business 
Software Package 



TRS-80 MOO. 11/ 12/ 16 
FLOPPY OR HARD DISK 



vj 



VJjanaral |_tdg«c 
Account! r«y«bl« 
Account! rf*calvabla 
Inventory 




NOW: 



RYEAR 



Payroll W/ Job Coating 

o Prectlca Managamant 

o Structural Qng Inoorlng 

o R.H.w.d |n April 80 MICRO 



Software Modules All Interactive 



P.O. BOX 223 - DCPT. A 
NEWTONVILLE, N. Y. 12128 



(518) 271-6825 




w ' ' ' '■"■' ' ' 



DOTDRAW 

MICRO-ART 

NEWDOT 



GRAPHICS 

DISK BASED SOFTWARE 

TRS-80 MODEL 1. 111. IV 

Includes Printer Options for EPSON 

■Im Tamil <"V W 

— For the Young & Young at Heart. 32K $27.50 

■~ Powerful Graphic Designer for Adults. 48K $37 50 
"-" Tools & Entertainment for Programmers. 48k $47 50 
FREE Catalog & Information ^33 

Write or Call 
ISLAND TECHNOLOGIES 
P.O. BOX 856 
STATE COLLEGE, PA 16801 
(814J 234-4589 



• >•••<•••••••••••••>•••••••••••••••••••(>*••••■■'■■'•>■'•■- 



TECHNOLOGIES 



RATE BASE: 

130,000 

ISSUE DATES: 

• Nov./ Dec. • May /June 

• Jan. /Feb. • July/Aug. 

• Mar./Apr. • Sept./ Oct. 

The complete publication for 
the beginner or inexperienced 
computer owner Targeted to 
reach the impressive computer 
market of the future . . . people 
who are planning to buy. . .or 
owners of hardware ready to 
upgrade. Computers 84 talks to 
them in plain language, explaining 
your products and suggesting 
applications. 

For further information, contact: 

Ed Knobloch. Advertising Director 

1515 Broadway. New York. NY 10036 

212-719-6572 

A CBS PUBLICATION 




L If PIOIUCTS. IIC 



II LEVEL IV MEANS FOUR LEVELS OF EXCELLENCE II 

/QUALITY /VALUE /SERVICE /SUPPORT 



IB 




PREMIUM GRIDE TRSQETS 

BI'UDINQ A PREMIUM GRADE MICROCOMPUTER 19 A CLAIM FEU COMPANIES CAN 
MAKE. AND EVEN FEMER CAN BACKUP. ME 00 IT EVERY DAV . EACH LEVEL IV 
COMPUTER SYSTEM IS CAREFULLY ASSEMBLED FROM PRE-TE8TED COMPONENTS OF 
THE HI8HEST OUALITY. AND TESTED FOR PERFORMANCE TO A LEVEL FAR ABOVE 
THAT FOR WHICH IT HAS DE9I8NED. AFTER BURN-IN, EACH UNIT IS 
DELIVERED MITH THE FAMOUS LEVEL IV 90 DAY LIMITED, PARTS AND LABOR 
WARRANTY (COPIES AVAILABLE ON REQUEST). 

A LEVEL IV COMPUTER IS DESIONED TO BE COMPLETELY COMPATIBLE WITH THE 
MOUNTAIN OF SOFTWARE AND HARDWARE READILY AVAILABLE FOR IT. ANY ITEM 
THAT WORKS ON OR ATTACHES TO, A STANDARD R/B UNIT WILL FUNCTION WITH 
OUR VERSION. 

CONSIDER THESE OPTIONS TO ENHANCE YOUR COMPUTERl 

.40 AND BO TRACK 8INOLE AND DOUBLE HEAD DISK DRIVES 

WINCHESTER DRIVES 6.4 ME3 THRU 31 MEO 

CPU SPEED-UP MOD'S. MORE THAN DOUBLE YOUR SPEED 

SO COLUMN, 24 LINE DISPLAY, AND CP/H FOR MODS 
.MODS AND MOD4 DISK UP-BRADE AND MEMORY KITS 

BUILDING A MODS OR MOD4 WITH THE ADOVC CAPABILITIES iFRTAINLV MAKES 
IT A PREMIUM ORAOE UN I • , BUT OUR MOST IMPORTANT PRODUCT IS 
OF TF.R-THE-8ALE-8ERVICE-AND-8UPPORT . 

NOW FOR THE SURPRISE. BABE PRICE FOR OUR *4K MOD4 IS ONLY $| 099*UU 

REMEMBER LEVEL IV MEANS "OUALITY .VALUE 'SERVICE "SUPPORT 

SOME HAY SET CLOSE TO OUR PRICES. BUT NONE WILL MATCH OUR VALUES. 



CALL FOR OUR CURRENT LOW DI8C0UNT PRICING 
IN-STATE C3133 535-6200 OTHERS 800-B21-330S 
WE ACCEPT PAYMENTS BY VISA. M/C, CHECK. COD 
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3 COMPANY STORE LOCATIONS. 

NAIL k PHONE ORDER CENTER 
32429 SCHOOLCRAFT ROAD 
LIVONIA, MICHIBAW 48190 

COMPUTER BALE* CENTER 
1B2 NORTH 20TN STREET 
BATTLE CREEK, MICMIBAN 

PULL LINE A/8 BALES CENTER 
134 SOUTH PRONT STREET 
DOMABIAC, NICHIBAN 49047 



ASK ABOUT OUR 

mm 
muMs 

DISCOUNT PROGRAM 



YOUR DNE-5T0P 

COMPUTER 

SHOPPING CENTER 




Where is that 
Movie?' 

Find it quickly, ee&ily with 

PIDEOTkPE 




Takes the work out of managing 

your video library: easy to use • 

stores over 1 ,000 titles • prints 

numbered labels • lists by tape and/ 

or title • searches by tape, title, or 

performer • very fast • ready to use 

TAPE 

f "** TRACKER is a 

* — * " ***•■ real lime saver, 

and the price is 

right. Make 

your life easier. 

order today. 

toll free: 

(800)824-7888, 
oper. 422 

EQUIPMENT: 

TRS80 I or III. 

48K,2dl*ks 



NEW PRODUCTS 



SPECIAL 

INTRODUCTORY 

PRICE: 

$29.95 



Dep't.C.Box560 

No. Hollywood. C A 9 1 603 

(213)764-3131 

TERMS: VISA. MC. checks. COD. Please add S2.00 shipping In U.S. or Canada, 
tS.OO overseas, sales lax in Ca. Most orders filled ivilhin 48 hrs. 






MAKE IT 

EASY 

TO 

SAVE 

your copies of 

micro* 

Your magazine library is your prime reference source— keep it 
handy and keep it neat with these strong library shelf boxes. 
They arc made of white corrugated cardboard and are dust resis- 
tant. Use them to keep all your magazines orderly yet available 
for constant reference. 
Self sticking labels are available for the following: 
80 Micro 73 Magazine Radio Electronics 

Microcomputing QST Personal Computing 

inCider CQ Byte 

Desktop Computing Ham Radio Interface Age 
One box |BX1000) is $2.00. 2-7 boxeslBXIOOl) are $1.50 each, 
and 8 or more boxes (BX1002) are $ 1 .25 each. Be sure to specify 
which labels we should send. 

Call TOLL-FREE for credit card orders: 

1-800-258-5473 

Or use the order form in this- magazine and mail to: 



micro 



a 



Attn: Book Saks, Peterborough, NH 03458 

LJSHIPPING AND HANDLING CHARGES $2.00 per order up to and 

including a quantity of eight 25< for each additional box ordered. 7J 
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Augustine Drive, Santa Clara, 
CA 95051, 408-727-1970. 
Reader Service ^ 571 



3-D Graphics 

Broaden your imagination 
by creating three-dimensional 
views on your Model III with 
Surface Plot. The program 
lets you enter an equation of 
the form Z = F(X,Y) where Z 
is the height above the sur- 
face for a given X, Y coordi- 
nate (e.g., entering the equa- 
tion Z=10-X*X draws a 
hill). You can view the final 
picture from any position in 
space so you can see an image 
from underneath, above, or 
even inside a hill or valley on 
the plot surface. You can also 
specify the size of the result- 
ing image. 

Surface Plot automatically 
removes hidden lines for best 
results. You can save finished 
plots on disk or print them on 
any of 20 popular printers. 
The program requires the use 
of Grafyx Solution in order 
to work (Grafyx Solution is a 
plug-in, clip-on board that 
gives you 98,304 points in a 
512 by 192 matrix). 

The program, 12 hi-res pic- 
tures, and manual cost S39.95 
from Micro-Labs Inc., 902 
Pinecrest St., Richardson, TX 



75080, 214-235-0915. 
Reader Service ^ 557 



Getting Through the 
Paperwork 

Use Paperwork, a word- 
processing package, to get 
through your paper work 
quickly and easily. The pack- 
age consists of a Line/Screen 
Editor that offers global re- 
placement, searches, text line 
movement, and line inser- 
tions without having to posi- 
tion the cursor within the 
desired lines; a Mailing List 
Address data base that lets 
you merge name and address 
information into letters, en- 
velopes, and mailing labels; 
and a System Output capabil- 
ity that provides you with 
hard copies of letters, docu- 
ments, envelopes, labels, ad- 
dress data base lists, phone 
lists, and text file copies with 
assigned line numbers. 

This well-rounded word- 
processing system is available 
for the Models II, 12, and 16 
operating under CP/M. It re- 
quires 64K of RAM and costs 
just $69.95 before Christmas, 
$99.95 afterwards. For more 
information, contact Harris 
Micro Computers Inc., 2560 
North 560 East St., Provo, 
UT 84604, 801-373-1605. 

Reader Service • 580 




An example of what Surface Plot from Micro-Labs Inc. can do for you. 







Don't waste another second waiting for your printer to finish 
before you can use your computer again. With Microbuffer" 
printer buffers you can print and process simultaneously! 

MICROBUFFER. 

SO WHAT ARE YOU WAITING FOR? 



Another fine product from i = PRACTICAL 

SPERIPHCRALS 



31245 La Baya Drive, Westlake Village. California 91362 
[213) 991-8200 • TWX 910-336-5431 



That's what you get with the LNW80 Model 2— undoubtedly 
the most versatile, powerful and fully equipped microcomputer 
in its class today A machine so superior in concept and design, 
that it will define the standards of microcomputer performance 
tor years to come. 

VERSATILITY 

The LNW80 2 performs wonders with the most complete 
library of software available to any microcomputer on the 
market today Every LNW80 2 comes complete with this 
outstanding library of Business Software LNW SMALL BUS- 
INESS AND PROFESSIONAL ACCOUNTING SERIES" 
General Ledger, Accounts Receivable, Accounts Payable, 
Payroll; ELECTRIC SPREADSHEET "; ELECTRIC PENCIL" 
WORDPROCESSOR; MICROTERM MODEM PROGRAM; 
CHART EX HIGH RESOLUTION BUSINESS GRAPHICS 
CHARTING PROGRAM; CP/M 2.2 ; DOSPLUS '; LNW 
BASIC ;MICROSOFT BASIC" In addition to a comprehensive 
line of LNW80 2 Software, it is also fully compatible with soft- 
ware from TRS80" (Models 1. 3.4). CP/M" and Cromemco" 
worlds - a capability which gives you access to the most 
extensive and mature libraries of business, scientific, engineer- 
ing and entertainment software applications So no matter 
how far you expand into user applications, the LNW80 2 will 
expand right along with you 

POWER 

The LNW80 2 performs miracles with the computing power 
of 96K RAM (standard) of user memory matched with a 
mass storage capability which handles 5%" floppy disks and 
5V 4 " hard disk drives And while the unit comes with built-in 



controllers for 5%" and 8" floppy disks (single/double sided, 
single/double density, up to 4.5 Megabytes capacity), the 
LNW80 2 also gives you the unique ability to read and write 
diskettes from a greater variety of other popular computers 
than does any other microcomputer. So regardless of how 
big you grow, you will never end up with thumb-twiddling 
down time while you expand to a more powerful system. The 
LNW80 2 will always have enough muscle to handle your 
biggest and toughest jobs. 

FULLY EQUIPPED 

The LNW80 2 was developed to anticipate the needs of bott 
expansion and compatibility So the computer was designed 
with enough built-in features to keep you from having to spenc 
a small fortune as you move down the road to higher levels 
of user sophistication Standard features include high and lov 
resolution graphics in both color and black-and-white, an 
asynchronous serial communication channel, and a wide vari 
ety of tape, printer, monitor and hardware expansion ports 
In addition, the LNW80 2 contains an array of quality construe 
tion features that fully justify its remarkable one-year limi- 
ted warranty. 

So if you re looking for a microcomputer that will satisfy you 
performance needs as you grow and develop, take a long, 
hard look at the LNW80 2. Its the one microcomputer built to 
meet the challenges of tomorrow-for a long time to come. 
For more information and the name of the dealer nearest yoi 

write or telephone; 

LNW Computers ^31 

2620 Walnut, Tustin. California 92680 

Telephone: 714/544-5744 
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